Add initial prototype.

3-mid/opengl/source/platform/egl/opengl-surface_profile.ads

@@ -0,0 +1,93 @@
+with
+     openGL.Display,
+     openGL.Screen;
+
+private
+with
+     eGL;
+
+
+package opengl.surface_Profile
+--
+--  Models an openGL surface profile.
+--
+is
+
+   type Item  is tagged private;
+   type View  is access all Item'Class;
+
+   type Items is array (Positive range <>) of Item;
+
+
+
+   --  Surface Quality
+   --
+   Irrelevant : constant Natural := Natural'Last;
+
+   type color_Buffer is
+      record
+         Bits_red        : Natural := Irrelevant;
+         Bits_green      : Natural := Irrelevant;
+         Bits_blue       : Natural := Irrelevant;
+
+         Bits_luminence  : Natural := Irrelevant;
+
+         Bits_alpha      : Natural := Irrelevant;
+         Bits_alpha_mask : Natural := Irrelevant;
+      end record;
+
+   function Image (Self : in color_Buffer) return String;
+
+
+   type Qualities is
+      record
+         color_Buffer        : surface_Profile.color_Buffer;
+         depth_buffer_Bits   : Natural                     := Irrelevant;
+         stencil_buffer_Bits : Natural                     := Irrelevant;
+      end record;
+
+   function Image (Self : in Qualities) return String;
+
+   default_Qualities : constant Qualities;
+
+
+
+
+   --  Forge
+   --
+   desired_Qualitites_unavailable : exception;
+
+   procedure define (Self : in out Item;   the_Display : access opengl.Display.item'Class;
+                                           Screen      : access openGL.Screen .item'Class;
+                                           Desired     : in     Qualities                := default_Qualities);
+
+   function fetch_All (the_Display : access opengl.Display.item'Class) return surface_Profile.items;
+
+
+
+   --  Attributes
+   --
+   function Quality   (Self : in Item) return Qualities;
+
+
+
+private
+
+   type Item is tagged
+      record
+         egl_Config : aliased egl.EGLConfig;
+         Display    : access  opengl.Display.item'Class;
+      end record;
+
+   default_Qualities : constant Qualities := (color_Buffer        => (Bits_red   => 8,
+                                                                      Bits_green => 8,
+                                                                      Bits_blue  => 8,
+
+                                                                      Bits_luminence  => Irrelevant,
+
+                                                                      Bits_alpha      => Irrelevant,
+                                                                      Bits_alpha_mask => Irrelevant),
+                                              depth_buffer_Bits   => 24,
+                                              stencil_buffer_Bits => Irrelevant);
+
+end opengl.surface_Profile;