WITH Ada.Text_IO;
WITH Ada.Integer_Text_IO;
WITH Geometry;
WITH Geometry.IO;
PROCEDURE Test_Geometry IS
------------------------------------------------------------------------
--| Program to test package Geometry
--| Author: Michael B. Feldman, The George Washington University 
--| Last Modified: September 1995                                     
------------------------------------------------------------------------

  MyFig : Geometry.Figure;                 -- a figure   

BEGIN -- Test_Geometry   

  FOR TestTrial IN 1..3 LOOP

    Ada.Text_IO.New_Line;
    Ada.Text_IO.Put(Item => "     Trial #");
    Ada.Integer_Text_IO.Put(Item => TestTrial, Width => 1);
    Ada.Text_IO.New_Line;
    Geometry.IO.Get (Item => MyFig);
    Geometry.IO.Put (Item => MyFig);

  END LOOP;

END Test_Geometry;