opengl-texture: Check for errors when setting wrap parameters.

This commit is contained in:
Rod Kay
2024-02-13 17:10:36 +11:00
parent 88dc115bad
commit 1937fb28c5

View File

@@ -265,10 +265,11 @@ is
use type GL.GLuint; use type GL.GLuint;
pragma Assert (Self.Name > 0); pragma Assert (Self.Name > 0);
begin 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; Tasks.check;
gl.Binding.glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT); Errors.log;
gl.Binding.glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT); Errors.log;
glBindTexture (GL.GL_TEXTURE_2D, Self.Name); glBindTexture (GL.GL_TEXTURE_2D, Self.Name);
Errors.log; Errors.log;
end enable; end enable;