Показать сообщение отдельно
Старый 13.06.2010, 18:19   #1
Игорь234567
AnyKey`щик
 
Регистрация: 13.06.2010
Сообщений: 1
Написано 0 полезных сообщений
(для 0 пользователей)
Радость раскаль.Графика

Здравствуйте можете помочь в графике
мне нужно нарисовать "крылья и ноги" ... не поможете?
http://a4.beon.ru/i/temp/42895650/3861.jpeg

Program oval;
uses GraphABC;
var x,y,r1,r2,r3,r4,r5,r6,r7:integer;
begin
x:=WindowWidth div 2;
y:=WindowHeight div 2;
r1:=50;
r2:=80;
r3:=50;
r4:=70;
SetBrushColor(clGray);
Circle(x,y-r1,r1);
Circle(x,y+r2,r2);
SetBrushColor(clLtGray);
Ellipse(x-r3,y+r2-r4,x+r3,y+r2+r4);
r5:=24;
Circle(x-r5,y-r1-10,r5);
Circle(x+r5,y-r1-10,r5);
r6:=37;
r7:=45;
SetBrushColor(clWhite);
Ellipse(x-r6-2,y-r1-r7+9,x+0,y-r1+12);
Ellipse(x-1,y-r1-r7+9,x+r6+4,y-r1+12);
SetBrushColor(clBlack);
Circle(295,150,10);
Circle(333,150,10);
Line(x-r5-5,y-2*r1+10,x-r5+5,y-2*r1-20);
Line(x-r5+5,y-2*r1-20,x-r5+15,y-2*r1+5);
floodfill(x-r5+5,y-2*r1-5,clGray);
Line(x+r5+5,y-2*r1+10,x+r5-5,y-2*r1-20);
Line(x+r5-5,y-2*r1-20,x+r5-15,y-2*r1+5);
floodfill(x+r5-5,y-2*r1-4,clGray);

end.
(Offline)
 
Ответить с цитированием