Графика

[пупс]

Графика

Привет. Помогите пожалуйста нарисовать и раскрасить девочку с шариком в графическом режиме до завтра. Вот я её нарисовала в Пэйнте.
Я вот написала программу, но она не доделанная.

program ris;
uses crt, graph;
var gd,gm:integer;
begin
clrscr;
detectgraph(gd,gm);
initgraph (gd,gm, 'tp\7');
{golova}
circle(385,150,5);
circle(410,150,5);
circle(400,150,50);
line(380,210,410,210);
{telo}
line(400,200,310,400);
line(400,200,490,400);
line(310,400,490,400);
{ruki}
line(470,360,510,265);
line(370,360,310,265);
{nogi}
line(380,400,400,500);
line(420,400,440,500);
{sharik}
circle(290,100,40);
line(290,140,290,370);
readln
end.

 

[пупс]

Графика.

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

 

[Vladimir_S]

Как-то так:

program ris;
uses crt, graph;
const
 Triangle: array[1..3] of PointType = ((X:  400; Y: 200),
   (X: 310; Y: 400), (X: 490; Y: 400));
var gd,gm:integer;
begin
clrscr;
detectgraph(gd,gm);
initgraph (gd,gm, 'tp\7');
{telo}
SetColor(14);
FillPoly(SizeOf(Triangle) div SizeOf(PointType), Triangle);
SetColor(15);
{volosy}
SetFillStyle(SolidFill,6);
PieSlice(400,220,0,180,50);
{litso}
SetFillStyle(SolidFill,13);
FillEllipse(400,220,30,30);
{glaza}
SetColor(0);
Ellipse(386,212,0,360,8,4);
Ellipse(414,208,0,360,8,4);
SetFillStyle(SolidFill,0);
FillEllipse(386,212,2,2);
FillEllipse(414,208,2,2);
{rot}
Arc(400,220,210,360,20);
SetColor(15);
{ruki}
SetLineStyle(SolidLn,0,ThickWidth);
line(455,320,490,265);
line(345,320,310,265);
line(480,280,480,260);
line(480,280,500,280);
line(320,280,320,260);
line(320,280,300,280);
{nogi}
line(380,400,380,478);
line(380,478,360,478);
line(420,400,420,478);
line(420,478,400,478);
{sharik}
SetLineStyle(SolidLn,0,NormWidth);
line(310,140,310,370);
SetFillStyle(SolidFill,9);
FillEllipse(310,100,20,40);
readln
end.

Страшноватая, правда, девочка получилась...

 

[пупс]

Графика

Девочка норм получилась
Большое спасибо за помощь)))))
Я уж думала, что мне никто не поможет.