16 lines
292 B
Ada
16 lines
292 B
Ada
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;
|