18.10.2009, 17:35 | #1 (permalink) |
Новичок
Регистрация: 18.10.2009
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Графика в Паскале.
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. |
18.10.2009, 17:35 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Пожалуйста, уделите внимание просмотру данных тем Графика в QBasic Графика - растущий цветок Графика C++ |
18.10.2009, 18:35 | #5 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
Уже Рисуем...
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
18.10.2009, 18:57 | #6 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
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. Наилучшее, что получилось. Переменные и процедуру не использовал, т.к. не нравится мне их использование при рисовании. а раскрасить котика думаю, сможете сами. |
18.10.2009, 19:55 | #8 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
А вот мой вариант:
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. Оба кота, по-моему, страшны, как смертный грех! Последний раз редактировалось Vladimir_S; 19.10.2009 в 09:54 Причина: Пропустил строчку "var gd,gm:integer;". Вставил. |
18.10.2009, 20:16 | #10 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ладно, покажем народу этот кошмар (левый - от DDS, правый - мой) :
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|