Grafika w pascalu ,podmienianie stron

[owsik]

Witam.Napisałem przykładowy program

 

uses graph,crt;
var
karta,tryb,a:integer;
begin
    detectgraph(karta,tryb);
    initgraph(karta,tryb,'');
    a:=0;
    repeat
       setvisualpage(0);{wyświetla pierwsza strone}
       delay(10);
       setactivepage(1); {rysuje w pamięci  na drugiej stronie }
       cleardevice;       {czysci ekran}
       a:=a+1;
       rectangle(a,a,a+100,a+100);
    	  setvisualpage(1);   {wyswietla druga strone }
       delay(10);
       setactivepage(0);  {rysuje w pamięci na pierwszej stronie }
       cleardevice;         {czysci ekran}
       a:=a+1;
       rectangle(a,a,a+100,a+100);
    until keypressed;

end.

 

 

 

Proszę o podpowiedz co zmienić aby animacja nie migała lub o podanie lepszego sposobu na animacje w pascalu jeśli taki znacie .

[Integer]

dodaj może komentarze co oznaczają poszczególne linie kodu bo nie wszystko już pamiętam ,

żeby nie migało to można kolorem tła zetrzeć element który ma się przesunąć i na nowo go namalować w nowym miejscu,

ale tu się powinno podmieniać więc nie wiem, pamięta ktoś może jak to się robiło?