Цитата:
Сообщение от Ксюшенька
подскажите пожалуйста, как закрасить изображение, ну вот допустим ракета у меня, не могу ни как понять,саму ее построила, а как воспользоваться цветом не понимаю???
|
Да есть там (помимо закрашенных стандартных фигур: 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.