Add initial prototype.

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

@@ -0,0 +1,24 @@
+package body openGL.Model.hexagon
+is
+
+   function vertex_Sites (Radius : in Real) return Sites
+   is
+      use linear_Algebra_3d;
+
+      the_Site  :          Vector_3   := [Radius, 0.0, 0.0];
+      Rotation  : constant Matrix_3x3 := y_Rotation_from (to_Radians (60.0));
+
+      the_Sites :          Sites;
+
+   begin
+      for i in the_Sites'Range
+      loop
+         the_Sites (i) := the_Site;
+         the_Site      := Rotation * the_Site;
+      end loop;
+
+      return the_Sites;
+   end vertex_Sites;
+
+
+end openGL.Model.hexagon;