Графика в Паскале.
 

Всем привет, помогите плиз составить задачку в паскале на графику. Нужно нарисовать кота..вот тут я че то набросал, но как-то страшно становится=))) :D

program kot;
uses crt, graph;
var gd,gm:integer;
x,y,dx,dy,r,color:integer;

procedure krug(dx,dy,color: integer);
begin
setcolor(6);

circle(x+dx, y+dy,r);
floodfill(x+dx, y+dy, 6);
end;

begin
gd:=detect;
initgraph(gd,gm, 'c:\tp7\bgi');
cleardevice;
x:=250; y:=150; dy:=20; dx:=40; r:=40;
krug (dx,dy,color); dy:=dy+40; color:=red;
x:=250; y:=100; dy:=20; dx:=40; r:=25;
krug (dx,dy,color); dy:=dy+40; color:=red;
x:=270; y:=150; dy:=20; dx:=20; r:=20;
krug (dx,dy,color); dy:=dy+40; color:=yellow;
x:=262; y:=102; dy:=20; dx:=20; r:=8;
krug (dx,dy,color); dy:=dy+40; color:=yellow;
readln;
closegraph;
end.

Нарисуй сначала в Paint. Просто слабо представляю себе как должен выглядить этот кот.

ап... помогите плиз...

Уже Рисуем...

program kot;
uses crt, graph;
var gd,gm:integer;
x,y,dx,dy,r,color:integer;
begin
gm:=0;
gd:=detect;
initgraph(gd,gm, '');
cleardevice;
setbkcolor(white);
setcolor(8);
{ухо 1}
line(160,60,150,80);
line(160,60,170,80);
line(150,80,170,80);
{ухо 2}
line(200,60,190,80);
line(200,60,210,80);
line(190,80,210,80);
{голова}
circle(180,100,30);
{глаза}
circle(170,90,7);
circle(170,90,3);
circle(190,90,7);
circle(190,90,3);
{нос и усы}
circle(180,110,7);
line(173,110,130,100);line(173,110,130,110);line(1 73,110,130,120);
line(187,110,230,100);line(187,110,230,110);line(1 87,110,230,120);
{тело}
circle(180,180,50);
{внутр. круг тела}
circle(180,180,30);
{хвост}
fillellipse(110,205,30,15);
readkey;
closegraph;
end.

Наилучшее, что получилось. Переменные и процедуру не использовал, т.к. не нравится мне их использование при рисовании. а раскрасить котика думаю, сможете сами.

Если хотите, подождите немного, я тоже пытаюсь нарисовать котика, у меня будет немного по другому.

А вот мой вариант:

program kot;
uses crt, graph;
var gd,gm:integer;

begin
gd:=detect;
initgraph(gd,gm, 'c:\tp7\bgi');
cleardevice;
SetFillStyle(HatchFill,6);
SetColor(6);
FillEllipse(320,360,80,80);
SetFillStyle(EmptyFill,0);
FillEllipse(320,350,40,60);
SetFillStyle(HatchFill,6);
FillEllipse(320,245,40,40);
FillEllipse(170,400,80,10);
SetFillStyle(SolidFill,white);
FillEllipse(305,245,10,15);
FillEllipse(335,245,10,15);
SetFillStyle(EmptyFill,0);
FillEllipse(305,245,6,10);
FillEllipse(335,245,6,10);
SetColor(white);
SetLineStyle(SolidLn, 0, ThickWidth);
MoveTo(320,255);
LineTo(312,265);
LineTo(328,265);
LineTo(320,255);
LineTo(320,265);
Line(315,265,270,265);
Line(315,265,270,255);
Line(315,265,270,275);
Line(325,265,380,265);
Line(325,265,380,255);
Line(325,265,380,275);
SetColor(6);
MoveTo(280,230);
LineTo(290,180);
LineTo(300,210);
LineTo(280,230);
MoveTo(360,230);
LineTo(350,180);
LineTo(340,210);
LineTo(360,230);
Repeat Until KeyPressed;
ReadKey;
closegraph;
end.

Оба кота, по-моему, страшны, как смертный грех!

Действительно, таких ночью с просоня увидишь и офигеешь.
Но ведь паскаль и не создан для профессионального рисования.:)

Ладно, покажем народу этот кошмар (левый - от DDS, правый - мой) :D:D:D :