Паскаль. Как закрасить изображение?

Ксюшенька · 02.06.2011, 21:10

подскажите пожалуйста, как закрасить изображение, ну вот допустим ракета у меня, не могу ни как понять,саму ее построила, а как воспользоваться цветом не понимаю???

Vladimir_S · 02.06.2011, 22:45

Цитата:

Сообщение от Ксюшенька

подскажите пожалуйста, как закрасить изображение, ну вот допустим ракета у меня, не могу ни как понять,саму ее построила, а как воспользоваться цветом не понимаю???

Да есть там (помимо закрашенных стандартных фигур: Bar, FillEllipse) еще некая довольно мутная процедура FillPoly. Мутная потому, что описания ее какие-то невразумительные, да и сама (на моем Паскале, во всяком случае, - глючит). Еще есть FloodFill - эта попроще. Вот, нарисовал программку с использованием обеих команд:

Код:

Uses CRT,GRAPH;
Const
 Rectan:Array[1..4] of PointType=((X: 10;Y:290),
                                  (X:210;Y:290),
                                  (X:210;Y:190),
                                  (X: 10;Y:190));
BEGIN
 InitGraph(...); {Параметры вставьте сами}
 SetColor(LightBlue);
 SetFillStyle(1,Red);
 FillPoly(4,Rectan);
 SetLineStyle(SolidLn,0,ThickWidth);
 Rectangle(430,190,630,290);
 FloodFill(500,240,LightBlue);
 ReadKey;
END.

02.06.2011, 21:10	#1 (permalink)
Ксюшенька Member Регистрация: 18.05.2011 Сообщений: 17 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Паскаль. Как закрасить изображение? подскажите пожалуйста, как закрасить изображение, ну вот допустим ракета у меня, не могу ни как понять,саму ее построила, а как воспользоваться цветом не понимаю???

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

02.06.2011, 21:10
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Попробуйте заглянуть в эти темы Пропадает изображение. Плохое изображение Мельтешит изображение

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