Add initial prototype.

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

@@ -0,0 +1,90 @@
+with
+     openGL.Screen,
+     GLX;
+
+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;
+   type Views is array (Positive range <>) of View;
+
+
+   -------------------
+   --  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;
+
+   default_Qualities : constant Qualities;
+
+   function Image (Self : in Qualities) return String;
+
+
+   ---------
+   --  Forge
+   --
+
+   desired_Qualitites_unavailable : exception;
+
+   procedure define (Self : in out Item;   Screen  : access openGL.Screen.item'Class;
+                                           Desired : in     Qualities := default_Qualities);
+
+   function  fetch_All return surface_Profile.items;
+
+
+   --------------
+   --  Attributes
+   --
+
+   function  Quality    (Self : in Item) return Qualities;
+   function  get_Visual (Self : in Item) return access glx.XVisualInfo;
+
+
+
+private
+
+   type Item is tagged
+      record
+         glx_Config :        glx.FBConfig;
+         Visual     : access glx.XVisualInfo;
+      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;