Add initial prototype.

3-mid/opengl/source/lean/text/opengl-glyph.adb

@@ -0,0 +1,60 @@
+with
+     ada.unchecked_Deallocation;
+
+package body openGL.Glyph
+is
+
+   ---------
+   --  Forge
+   --
+
+   procedure define (Self : in out Item;   glyth_Slot : in freetype_c.FT_GlyphSlot.item)
+   is
+   begin
+      Self.Impl := new GlyphImpl.item;
+      Self.Impl.define (glyth_Slot);
+   end define;
+
+
+   procedure define (Self : in out Item;   pImpl : in GlyphImpl.view)
+   is
+   begin
+      Self.Impl := pImpl;
+   end define;
+
+
+   procedure destruct (Self : in out Item)
+   is
+      procedure deallocate is new ada.unchecked_Deallocation (GlyphImpl.item'Class,
+                                                              GlyphImpl.view);
+   begin
+      deallocate (Self.Impl);
+   end destruct;
+
+
+   --------------
+   --  Attributes
+   --
+
+   function Advance (Self : in Item) return Real
+   is
+   begin
+      return Self.Impl.Advance;
+   end Advance;
+
+
+   function BBox (Self : in Item) return Bounds
+   is
+   begin
+      return Self.Impl.BBox;
+   end BBox;
+
+
+   function Error (Self : in Item) return GlyphImpl.Error_Kind
+   is
+   begin
+      return Self.Impl.Error;
+   end Error;
+
+
+end openGL.Glyph;