Add initial prototype.

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;

1-base/math/applet/test/modeller/test_modeller.gpr

@@ -0,0 +1,21 @@
+with
+     "math",
+     "lace_shared";
+
+
+project test_Modeller
+is
+   for Object_Dir use "build";
+   for Exec_Dir   use ".";
+   for Main       use ("launch_modeller_test.adb");
+
+    package Ide      renames Lace_shared.Ide;
+    package Builder  renames Lace_shared.Builder;
+    package Compiler renames Lace_shared.Compiler;
+    package Binder   renames Lace_shared.Binder;
+
+   package Linker is
+      for Default_Switches ("ada") use ("-g");
+   end Linker;
+
+end test_Modeller;