level 7
冥蓝炎
楼主
第一次发,我是新手,现在只在graph绘图,一个简单的人物图:看名字就知道
uses graph;
procedure MasterYI;
var gd,gm,i:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
setbkcolor(31);
cleardevice;
SetFillStyle(1,16);
fillellipse(300,300,100,100);
SetFillStyle(1,10);
fillellipse(320,280,15,15);
fillellipse(360,280,15,15);
fillellipse(300,315,15,15);
fillellipse(340,315,15,15);
fillellipse(380,315,15,15);
fillellipse(320,350,15,15);
fillellipse(360,350,15,15);
setcolor(16);
for i:=270 to 300 do line(i,700,i+220,800);
for i:=500 to 530 do line(i,800,i-30,900);
for i:=270 to 300 do line(i,700,i-100,900);
for i:=270 to 300 do line(i,400,i-100,600);
for i:=270 to 300 do line(i,400,i+80,600);
setcolor(10);
for i:=670 to 700 do line(i,400,i-300,600);
SetFillStyle(1,16);
for i:=280 to 590 do bar(280,i+60,300,i+120);
readln;
end;
begin
MasterYI;
end.
2015年08月16日 12点08分
1
uses graph;
procedure MasterYI;
var gd,gm,i:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
setbkcolor(31);
cleardevice;
SetFillStyle(1,16);
fillellipse(300,300,100,100);
SetFillStyle(1,10);
fillellipse(320,280,15,15);
fillellipse(360,280,15,15);
fillellipse(300,315,15,15);
fillellipse(340,315,15,15);
fillellipse(380,315,15,15);
fillellipse(320,350,15,15);
fillellipse(360,350,15,15);
setcolor(16);
for i:=270 to 300 do line(i,700,i+220,800);
for i:=500 to 530 do line(i,800,i-30,900);
for i:=270 to 300 do line(i,700,i-100,900);
for i:=270 to 300 do line(i,400,i-100,600);
for i:=270 to 300 do line(i,400,i+80,600);
setcolor(10);
for i:=670 to 700 do line(i,400,i-300,600);
SetFillStyle(1,16);
for i:=280 to 590 do bar(280,i+60,300,i+120);
readln;
end;
begin
MasterYI;
end.

