From a0316025cfd20baa74d07ef1931c79282bce9fc6 Mon Sep 17 00:00:00 2001
From: Rod Kay <rodakay5@gmail.com>
Date: Sat, 3 Feb 2024 21:17:28 +1100
Subject: [PATCH] opengl.texture: Make 'GL_REPEAT' the default wrap mode.

---
 3-mid/opengl/source/lean/opengl-texture.adb | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/3-mid/opengl/source/lean/opengl-texture.adb b/3-mid/opengl/source/lean/opengl-texture.adb
index 1291a36..9a8f57a 100644
--- a/3-mid/opengl/source/lean/opengl-texture.adb
+++ b/3-mid/opengl/source/lean/opengl-texture.adb
@@ -265,6 +265,9 @@ is
       use type GL.GLuint;
       pragma Assert (Self.Name > 0);
    begin
+      gl.Binding.glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
+      gl.Binding.glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
+
       Tasks.check;
       glBindTexture (GL.GL_TEXTURE_2D, Self.Name);
       Errors.log;