gel.window: Add support for a Gtk window.
This commit is contained in:
@@ -1,9 +1,11 @@
|
||||
with
|
||||
openGL.Tasks,
|
||||
openGL.Errors,
|
||||
GL.lean,
|
||||
System,
|
||||
ada.unchecked_Conversion;
|
||||
|
||||
|
||||
package body openGL.Attribute
|
||||
is
|
||||
use GL.lean;
|
||||
@@ -103,12 +105,15 @@ is
|
||||
Tasks.check;
|
||||
|
||||
glEnableVertexAttribArray (Index => Self.gl_Location);
|
||||
openGL.Errors.log;
|
||||
|
||||
glVertexAttribPointer (Index => Self.gl_Location,
|
||||
Size => Self.Size,
|
||||
the_Type => to_GL (Self.data_Kind),
|
||||
Normalized => Self.Normalized,
|
||||
Stride => Self.vertex_Stride,
|
||||
Ptr => to_GL (Self.Offset));
|
||||
openGL.Errors.log;
|
||||
end enable;
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user