asd / корзина / лекции по TP / Lecture_Pascal / graph / MOVBOLL

Uses Graph,crt;
var
 Gd, Gm: Integer;
 Radius,i: Integer;
 p:pointer;
 s:word;
 const
     a=100;
     b=100;
     ra=20;
     rb=20;
  begin
     clrscr;
      Gd := Detect;
      InitGraph(Gd, Gm, 'c:\tp70\bgi ');
    if GraphResult <> grOk then  begin Writeln('GraphMode not instalation');
                                       Halt(1)
                                 end
                           else
        begin
           SetBkColor(15);
           SetFillStyle(1,3);
           FillEllipse(a,b,ra,rb);
           s:=ImageSize(a-ra-1,b-rb-1,a+ra+1,b+rb+1);
           GetMem(p,s);
           SetColor(4);
           for i:=1 to 300 do
                           begin
                           SetTextStyle(4,0,8);
                           OutTextXY(200,200,'Wait');
                           GetImage(a-ra+i-1,b-rb-1,a+ra+i+1,b+rb+1,p^);
                           Delay(100);
                           PutImage(a-ra+i,b-rb-1,p^,NormalPut);
                            end;
            FreeMem(p,s);
            readln;
            CloseGraph
         end
    end.