Регистрация: 31.10.2010
Сообщений: 9
|
Графика в Паскаль
Доброго времени суток.
Ответ наверное легкий, но сама додуматься не могу.
Итак ситуация такая:
у меня есть меню:
Код:
uses graph ,crt;
var
dv,mv,k:integer;
procedure gra;
begin
cleardevice;
outtextxy(320,240,'procedure 1');
readkey;
end;
procedure reklama ;
begin
cleardevice;
settextstyle (3,0,2);
outtextxy(320,240,'procedure 2');
settextstyle(0,0,1);
readkey;
end;
procedure ruh;
var
z:char;
k0:byte;
begin
k:=1;
repeat
k0:=k;
z:=readkey;
case z of
#80: begin k:=k+1; if k>3 then k:=1; end;
#72: begin k:=k-1 ; if k<1 then k:=3; end;
end;
setcolor(0); settextstyle(6,0,4);
case k0 of
1:begin outtextxy(250,130,'adv');rectangle(240,130,300,170) end;
2:outtextxy(200,210,'play');
3:outtextxy(245, 290,'end');
end;
setcolor(5); settextstyle(0,1,2);
case k0 of
1: outtextxy(250,130,'adv');
2:outtextxy(200,210,'play');
3:outtextxy(245, 290,'end');
end;
setcolor(0); settextstyle(0,1,2);
case k of
1:begin outtextxy(250,130,'adv'); rectangle(240,130,300,170); end;
2:outtextxy(200,210,'play');
3:outtextxy(245, 290,'end');
end;
setcolor(12); settextstyle(6,0,4);
case k of
1:begin outtextxy(250,130,'adv'); rectangle(240,130,300,170); end;
2:outtextxy(200,210,'play');
3:outtextxy(245, 290,'end');
end;
until z=#13;
end;
procedure menu;
var
i,n :integer; begin
cleardevice;
setcolor(15);
settextstyle(6,0,4);
outtextxy(250,130,'adv'); rectangle(240,130,300,170);
setcolor(5);
settextstyle(0,1,2);
outtextxy(200,210,'play'); rectangle(210,210,270,250);
outtextxy(245,290,'end'); rectangle(255,290,315,330);
end;
begin
dv:=detect;
initgraph (dv,mv,'');
repeat
menu;
ruh;
case k of
1: gra ;
2: reklama;
end;
until k=3;
end.
и у меня есть вращающиеся фигуры
Код:
Uses graph, crt;
var
dv,mv,c,x,y, x0, y0, r,r1, i:integer;
procedure color(x0,y0,r,c:integer);
begin
r:=5;
repeat
for i:=0 to 360 do
begin
x:=x0+round(r*sin(i*pi/180));
y:=y0+round(r*cos(i*pi/180));
putpixel(x,y,c);
delay(9);
if i mod 999=0 then r:=r+3;
end;
until r>r1
end;
begin
dv:=detect;
initgraph(dv,mv, '');
repeat
x0:=random(640);
y0:=random(480);
r1:=random(100)+20;
c:=random(16)+1;
color(x0,y0,r1,c);
until keypressed
end.
А проблема в том, что бы эти вращающиеся фигуры вращались в моем меню. Т.е., что бы они были как фоном этого меню.
За ранее благодарна.
|