Win_IO is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation.
 

1. Animated Graphics_Window Example

with Ada.Text_IO; use Ada.Text_IO;
with Graphics_Windows;
use Graphics_Windows;

procedure Test_Async_Graphics_Window is
   Display : Canvas_Type:=Canvas(400,550,"Test Async Graphics");
begin
   -- Outer rectangle
   Set_Fill(Display,False);
   Set_Pen(Display,Blue,4);
   Draw_Rectangle(Display,(90,200),50,150);
   -- Inner rectangle
   Set_Fill(Display,Red);
   Set_Pen(Display,Red,1);
   for I in 1..146 loop
      Draw_Rectangle(Display,(92,202),46,I);
      Draw(Display);
      delay 0.05;
   end loop;
   Wait(Display);
   Close(Display);
   Put_Line("Test Completed");
end Test_Async_Graphics_Window;