Помощь - Поиск - Пользователи - Календарь
Полная версия: Заполнить фигуру цветом
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Sensitive
Вот фигуру построила,а как её заполнить цветом не знаю... посмотрите плиз,может подскажите.

uses graph;
const x1=250; y1=350;
R=10;
begin
init;{процедура инициализации граф.режима}
circle(x1,y1,R);
Arc(x1,y1,90,360,3*R);
Arc(x1+6*R,y1,0,180,3*R);
circle(x1+12*R,y1,R);
Arc(x1+12*R,y1,180,90,3*R);
circle(x1+12*R,y1-12*R,R);
Arc(x1+12*R,y1-12*R,270,180,3*R);
Arc(x1+12*R,y1-6*R,90,270,3*R);
circle(x1,y1-12*R,R);
Arc(x1,y1-12*R,0,270,3*R);
Arc(x1+6*R,y1-12*R,180,360,3*R);
Arc(x1,y1-6*R,0,90,3*R);
Arc(x1,y1-6*R,270,360,3*R);
circle(x1+6*R,y1-6*R,10);
readln;
end.
volvo
Что именно надо "залить"? Может, так:
setfillstyle(solidfill, red);
floodfill(x1, y1 + R + 5, white);

(добавить перед ReadLn) ?
Sensitive
спасибо.да так.не знала куда вставить setfillstyle.
Lapp
согласен с volvo, не совсем понятно, что заливать.

Фигура довольно странная.. Нажмите для просмотра прикрепленного файла

Делал в FPC.


Добавлено через 1 мин.
SetFillStyle - в любое место, главное до вызова FloodFill
Можно сразу после инициализации графики.
Sensitive
да,после того как volvo написал,я поняла что перед floodfill...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.