Технический форум - Паскаль. Как закрасить изображение?

Цитата:

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

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

Да есть там (помимо закрашенных стандартных фигур: 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.