Add initial prototype.

3-mid/opengl/source/lean/model/opengl-model-box.adb

@@ -0,0 +1,37 @@
+package body openGL.Model.box
+is
+   --------------
+   --- Attributes
+   --
+
+   function vertex_Sites (Self : in Item'Class) return Sites
+   is
+      left_Offset  : constant Real := -0.5;
+      right_Offset : constant Real :=  0.5;
+
+      lower_Offset : constant Real := -0.5;
+      upper_Offset : constant Real :=  0.5;
+
+      front_Offset : constant Real :=  0.5;
+      rear_Offset  : constant Real := -0.5;
+   begin
+      return [Left_Lower_Front  => Scaled ([ left_Offset, lower_Offset, front_Offset],   by => Self.Size),
+              Right_Lower_Front => Scaled ([right_Offset, lower_Offset, front_Offset],   by => Self.Size),
+              Right_Upper_Front => Scaled ([right_Offset, upper_Offset, front_Offset],   by => Self.Size),
+              Left_Upper_Front  => Scaled ([ left_Offset, upper_Offset, front_Offset],   by => Self.Size),
+              Right_Lower_Rear  => Scaled ([right_Offset, lower_Offset,  rear_Offset],   by => Self.Size),
+              Left_Lower_Rear   => Scaled ([ left_Offset, lower_Offset,  rear_Offset],   by => Self.Size),
+              Left_Upper_Rear   => Scaled ([ left_Offset, upper_Offset,  rear_Offset],   by => Self.Size),
+              Right_Upper_Rear  => Scaled ([right_Offset, upper_Offset,  rear_Offset],   by => Self.Size)];
+   end vertex_Sites;
+
+
+
+   function Size (Self : in Item) return Vector_3
+   is
+   begin
+      return Self.Size;
+   end Size;
+
+
+end openGL.Model.box;