Add initial prototype.

2022-07-31 17:34:54 +10:00
commit 54a53b2ac0
1421 changed files with 358874 additions and 0 deletions
--- a/3-mid/opengl/source/platform/osmesa/opengl-display.ads
+++ b/3-mid/opengl/source/platform/osmesa/opengl-display.ads
@@ -0,0 +1,30 @@
+with
+     Interfaces.C;
+
+
+package openGL.Display
+--
+--  Models an openGL display.
+--
+is
+
+   type Item is tagged private;
+
+
+   function Default                    return Item;
+   function screen_Id (Self : in Item) return interfaces.C.int;
+
+
+
+private
+
+   use Interfaces;
+
+   type Item is tagged
+      record
+         screen_Id  : aliased interfaces.C.int;
+      end record;
+
+end openGL.Display;
+
+