раскаль.Графика

[Игорь234567]

Здравствуйте можете помочь в графике
мне нужно нарисовать "крылья и ноги" ... не поможете?
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.

[Bananbl4]

Оффтоп детекдед. Это форум про MIDlet Pascal. Вопросы по обычному задавать на <поиск в гугле 'паскаль форум'>

[impersonalis]

дык это робот. Скорее всего через гугль и искал, ток эвристика подкачала. Таике тут иногда появляются.

[Hurrit]

А в чем смысл то? Вроде бы, рекламы нету, ну разве что ссылка на картинку.

[ABTOMAT]

Сообщение от Hurrit

А в чем смысл то? Вроде бы, рекламы нету, ну разве что ссылка на картинку.

Бот пстит на разных форумах, где могут помочь. Где-нибудь да и найдётся кто-то, кто выложит ответ. Потом хозяин ходит и собирает урожай.

[baton4ik]

Вряд ли робот! Как робот вопросы при регистрации обошёл?

[IGR]

да, у нас врод такое уже было !! Девочка просила помочь с задачкой по экономике !!

[baton4ik]

К тому же поисковик не нашёл ни одной такой темы нигде, кроме нашего форума!

[ABTOMAT]

Ну, если не бот - отпишется. А пока - стоп оффтоп, для него есть другие топики.

[RegIon]

Оффтоп детекдед. Это форум про MIDlet Pascal. Вопросы по обычному задавать на <поиск в гугле 'паскаль форум'>

тут и паскаль на форуме есть, поищи........