40 lines
899 B
Ada
40 lines
899 B
Ada
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;
|