opengl-texture: Check for errors when setting wrap parameters.
This commit is contained in:
@@ -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;
|
||||||
|
|||||||
Reference in New Issue
Block a user