gel.window: Add support for a Gtk window.

This commit is contained in:
Rod Kay
2023-11-03 15:21:29 +11:00
parent 6a1d544e10
commit 0b4d19522b
17 changed files with 1340 additions and 26 deletions

View File

@@ -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;