Скачиваний:
288
Добавлен:
04.03.2014
Размер:
1.5 Кб
Скачать

program kkk;
uses graph,crt;

var
gd,gm,x,y,i,lx, ly, rx, ry, xm, ym, dl, sh, size, dx,dy :integer;
k:pointer;
label
1;
begin
gd:=detect;
initgraph (gd,gm,'e:\tp5');
setcolor(6);
setfillstyle(4,6);

bar3d(150,150,500,450,25,topon);
setfillstyle(1,0);
floodfill(442,410,6);
bar(180,180,440,420);
setcolor(2);
circle(470,435,7);
circle(470,415,7);
circle(470,395,7);
setfillstyle(1,8);
bar(180,450,220,470);
setfillstyle(1,8);
bar(440,450,480,470);
setcolor(5);
line(325,140,70,100);
line(325,140,540,100);
circle(70,100,3);
circle(540,100,3);
setcolor(3);
ellipse(250,250,360,0,40,40 div 5);

ellipse(250,246,190,357,40,40 div 2);
line(250+7,250-6,250+10,250-17);
line(250-7,250-6,250-10,250-17);
circle(260,233,2);
circle(240,233,2);
floodfill(251,254,3);

lx:=200-15-1;
ly:=200-14;
rx:=200+15+1;
ry:=200+15 div 6;
dl:=rx-lx+1;
sh:=ry-ly+1;
size:=imagesize(lx, ly, rx, ry);
getMem(k, Size);
GetImage(lx, ly, rx, ry, k^);
PutImage(lx, ly, k^, Xorput);
for i:=1 to 200 do
putpixel(180+random(440-180),180+random(420-180),15);
x:=xm div 2;
y:=ym div 2;
dx:=15;
dy:=15;
repeat
putimage(180,180,k^,xorput);
delay(30);
putimage(180,180,k^,xorput);
1: x:=x+dx;
y:=y+dy;
if (x<0) or ( x+dl+1>260) or (y<0) or (y+sh+1>240 ) then
begin
x:=x-dx;y:=y-dy;

end;

dx:=getmaxx div 10-random(getmaxx div 5);
dy:=getmaxy div 30-random(getmaxy div 15);

until keypressed;

if readkey=#0 then x:=ord(readkey);
closegraph;
end.
Соседние файлы в папке Alex