Add initial prototype.

3-mid/opengl/source/lean/geometry/opengl-primitive.adb

@@ -0,0 +1,95 @@
+with
+     openGL.Tasks,
+     GL.Binding,
+     ada.unchecked_Deallocation;
+
+package body openGL.Primitive
+is
+   ---------
+   --  Forge
+   --
+
+   procedure define (Self : in out Item;   Kind : in facet_Kind)
+   is
+   begin
+      Self.facet_Kind := Kind;
+   end define;
+
+
+   procedure free (Self : in out View)
+   is
+      procedure deallocate is new ada.Unchecked_Deallocation (Primitive.item'Class,
+                                                              Primitive.view);
+   begin
+      Self.destroy;
+      deallocate (Self);
+   end free;
+
+
+   --------------
+   --  Attributes
+   --
+
+   function Texture (Self : in Item) return openGL.Texture.Object
+   is
+   begin
+      return Self.Texture;
+   end Texture;
+
+
+   procedure Texture_is (Self : in out Item;   Now : in openGL.Texture.Object)
+   is
+   begin
+      Self.Texture := Now;
+   end Texture_is;
+
+
+
+   function Bounds (self : in Item) return openGL.Bounds
+   is
+   begin
+      return Self.Bounds;
+   end Bounds;
+
+
+   procedure Bounds_are (Self : in out Item;   Now : in openGL.Bounds)
+   is
+   begin
+      Self.Bounds := Now;
+   end Bounds_are;
+
+
+
+   function is_Transparent (self : in Item) return Boolean
+   is
+   begin
+      return Self.is_Transparent;
+   end is_Transparent;
+
+
+   procedure is_Transparent (Self : in out Item;   Now : in Boolean := True)
+   is
+   begin
+      Self.is_Transparent := Now;
+   end is_Transparent;
+
+
+   --------------
+   --- Operations
+   --
+
+   procedure render (Self : in out Item)
+   is
+      use GL,
+          GL.Binding;
+   begin
+      Tasks.check;
+
+      if Self.line_Width /= unused_line_Width
+      then
+         glLineWidth (glFloat (Self.line_Width));
+      end if;
+   end render;
+
+
+end openGL.Primitive;