Графика

пупс · 22.07.2010, 15:01

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

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.

пупс · 22.07.2010, 21:04

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

Vladimir_S · 22.07.2010, 23:26

Как-то так:

Код:

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.

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

пупс · 23.07.2010, 12:35

Девочка норм получилась

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

22.07.2010, 15:01	#1 (permalink)
пупс Member Регистрация: 22.07.2010 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Графика Привет. Помогите пожалуйста нарисовать и раскрасить девочку с шариком в графическом режиме до завтра. Вот я её нарисовала в Пэйнте. Я вот написала программу, но она не доделанная. 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. Миниатюры

22.07.2010, 21:04	#2 (permalink)
пупс Member Регистрация: 22.07.2010 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Графика. Помогите плиз........

23.07.2010, 12:35	#4 (permalink)
пупс Member Регистрация: 22.07.2010 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Графика Девочка норм получилась Большое спасибо за помощь))))) Я уж думала, что мне никто не поможет.

22.07.2010, 15:01
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Вот вам список тем, которые очень напоминаю вашу Графика в QBasic Графика - растущий цветок Графика C++

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070