Заполнить фигуру цветом Опции

[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...