with Ada.Text_IO; use Ada.Text_IO;
with Ada.Float_Text_IO; use Ada.Float_Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
with Sf.System.Clock; use Sf.System, Sf.System.Clock;
with Sf.System.Sleep; use Sf.System.Sleep;
with Sf.System.Time; use Sf.System.Time;
procedure Main is
My_Clock : sfClock_Ptr;
begin
My_Clock := Create;
sfDelay(0.05);
Put ("Time elapsed(s): ");
Put (asSeconds (GetElapsedTime (My_Clock)), Fore => 0, Aft => 3, Exp => 0);
New_Line;
Put ("Time elapsed(ms) since start: ");
Put (Integer (asMilliseconds (Restart (My_Clock))));
New_Line;
sfSleep(sfMilliseconds(1050));
Put ("Time elapsed(ms): ");
Put (Integer (asMilliseconds (GetElapsedTime (My_Clock))));
New_Line;
Destroy (My_Clock);
end Main;