forum.boolean.name - раскаль.Графика

forum.boolean.name (http://forum.boolean.name/index.php)

- Болтовня (http://forum.boolean.name/forumdisplay.php?f=25)

- - раскаль.Графика (http://forum.boolean.name/showthread.php?t=12665)

Игорь234567

13.06.2010 18:19

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

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

13.06.2010 19:50

Ответ: раскаль.Графика

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

impersonalis

13.06.2010 20:03

Ответ: раскаль.Графика

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

Hurrit

13.06.2010 23:35

Ответ: раскаль.Графика

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

ABTOMAT

13.06.2010 23:38

Ответ: раскаль.Графика

Цитата:

Сообщение от Hurrit (Сообщение 150183)

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

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

baton4ik

13.06.2010 23:40

Ответ: раскаль.Графика

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

IGR	13.06.2010 23:59

Ответ: раскаль.Графика

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

baton4ik

14.06.2010 01:06

Ответ: раскаль.Графика

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

ABTOMAT

14.06.2010 02:39

Ответ: раскаль.Графика

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

RegIon

15.06.2010 05:41

Ответ: раскаль.Графика

Цитата:

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

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

Часовой пояс GMT +4, время: 00:15.