Add initial prototype.

1-base/math/applet/demo/geometry/basic_geometry_demo.gpr

@@ -0,0 +1,26 @@
+with
+     "math";
+
+project basic_geometry_Demo
+is
+   for Object_Dir use "build";
+   for Exec_Dir   use ".";
+   for Main       use ("launch_basic_geometry_demo.adb");
+
+   package Builder is
+      for Default_Switches ("ada") use ("-g");
+   end Builder;
+
+   package Compiler is
+      for Default_Switches ("ada") use ("-gnat2022");
+   end Compiler;
+
+   package Binder is
+      for Default_Switches ("ada") use ("-E");
+   end Binder;
+
+   package Linker is
+      for Default_Switches ("ada") use ("-g");
+   end Linker;
+
+end basic_geometry_Demo;

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;