Add initial prototype.

2022-07-31 17:34:54 +10:00
commit 54a53b2ac0
1421 changed files with 358874 additions and 0 deletions
--- a/1-base/math/applet/test/modeller/launch_modeller_test.adb
+++ b/1-base/math/applet/test/modeller/launch_modeller_test.adb
@@ -0,0 +1,15 @@
+with
+     ada.Text_IO,
+     float_Math.Geometry.d3.Modeller.Forge;
+
+
+procedure launch_modeller_Test
+is
+   use ada.Text_IO,
+       float_Math.Geometry.d3.Modeller.Forge;
+
+   the_Modeller : polar_Model := polar_Model_from ("gaspra.tab");
+
+begin
+   put_Line ("Done.");
+end launch_modeller_Test;