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.