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/lean/model/opengl-model-hexagon_column.ads
+++ b/3-mid/opengl/source/lean/model/opengl-model-hexagon_column.ads
@@ -0,0 +1,21 @@
+package openGL.Model.hexagon_Column
+--
+--  Models a column with six sides.
+--
+is
+
+   type Item is abstract new Model.item with private;
+
+
+
+private
+
+   type Item is abstract new Model.item with
+      record
+         Radius : Real := 1.0;
+         Height : Real := 1.0;
+      end record;
+
+   Normal : constant Vector_3 := [0.0, 0.0, 1.0];
+
+end openGL.Model.hexagon_Column;