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

program lek;
Uses Graph,crt;
var
Gd, Gm: Integer;
Radius,i: Integer; w:word;
p:pointer;
begin clrscr;
Gd := Detect;
InitGraph(Gd, Gm, 'c:\tp70\bgi ');
if GraphResult <> grOk then begin
writeln(' GraphMode not insstol !');
Halt(1);
end;
SetFillStyle(7,5 );
Bar(100, 200, 200, 300);
w:=ImageSize(99,201,199,301);
GetMem(p,w);
GetImage(100, 200, 200, 300,p^);
i:=1; repeat
SetFillStyle(0,0 );
Bar(100+i-2, 200, 200+i-2, 300);
Delay(3);
PutImage(100+i,200,p^,1);
i:=i+2
until i>400;
{setcolor(6);
Rectangle(200,300,350,400);
SetTextStyle(DefaultFont, vertDir, 3);
OutTextXY(200, 330, 'colors');
settextstyle(defaultfont,horizdir,5);
outtextxy(100,100,' TTTTT');}
Readln;
CloseGraph;
end.