File : test_async_graphics_window.adb
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;