44 lines
848 B
Ada
44 lines
848 B
Ada
with
|
|
opengl.surface_Profile,
|
|
opengl.Display;
|
|
|
|
private
|
|
with
|
|
eGL;
|
|
|
|
|
|
package opengl.Surface
|
|
--
|
|
-- Models an openGL surface.
|
|
--
|
|
is
|
|
|
|
type Item is tagged private;
|
|
type Items is array (Positive range <>) of aliased Item;
|
|
|
|
type View is access all Item'class;
|
|
type Views is array (Positive range <>) of View;
|
|
|
|
|
|
-- Forge
|
|
--
|
|
procedure define (Self : in out Item; surface_Profile : in opengl.surface_Profile.item'Class;
|
|
Display : in opengl.Display.item;
|
|
Window_Id : in Natural);
|
|
|
|
-- Operations
|
|
--
|
|
procedure swap_Buffers (Self : in Item);
|
|
|
|
|
|
|
|
private
|
|
|
|
type Item is tagged
|
|
record
|
|
egl_Surface : egl.EGLSurface;
|
|
Display : openGL.Display.item;
|
|
end record;
|
|
|
|
end opengl.Surface;
|