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-remote_model.ads
+++ b/3-mid/opengl/source/lean/model/opengl-remote_model.ads
@@ -0,0 +1,15 @@
+package openGL.remote_Model with remote_Types
+--
+--  Provides a DSA friendly base class for 3D models.
+--
+is
+
+   type Item is abstract tagged
+      record
+         Id    : model_Id     := null_model_Id;
+         Shine : openGL.Shine := 200.0;
+      end record;
+
+end openGL.remote_Model;
+
+