Add initial prototype.

1-base/math/applet/demo/geometry/launch_basic_geometry_demo.adb

@@ -0,0 +1,39 @@
+with
+     float_Math.Geometry.d3.Modeller.Forge,
+     ada.text_IO;
+
+procedure launch_basic_geometry_Demo
+--
+-- A simple demonstration of the geometry packages.
+--
+is
+   package Math renames float_Math;
+
+   use Math,
+       math.Geometry,
+       math.Geometry.d3.Modeller;
+
+   procedure log (Message : in String)
+                  renames ada.text_IO.put_Line;
+
+   the_Modeller : d3.Modeller.item;
+
+begin
+   declare
+      use float_math.Geometry.d3,
+          float_math.Geometry.d3.Modeller.Forge;
+
+      the_Model : float_math.Geometry.d3.a_Model := to_box_Model;
+   begin
+      log ("Box Model:     " & Image (the_Model));
+   end;
+
+   declare
+      use float_math.Geometry.d3,
+          float_math.Geometry.d3.Modeller.Forge;
+
+      the_Model : float_math.Geometry.d3.a_Model := to_capsule_Model;
+   begin
+      log ("Capsule Model: " & Image (the_Model));
+   end;
+end launch_basic_geometry_Demo;