Нарисовать несколько окружностей, включая то, что они могут быть поверх друг друга

[smith732]

    with shapes[i] do
      case TAG of
        Rect: begin
                SetFillStyle(1, Color);
                Bar(rp1.x, rp1.y, rp2.x, rp2.y);
              end;
        tCircle: begin
                  Circle(x,y,r);
                  SetFillStyle(1, shapes[i].Color);
                  FloodFill(x,y,shapes[i].Color);
                 end;
      end;

Никогда не понимал, как можно удобно рисовать в паскале и для людей ли вообще предназначался модуль graph. Дело в том, что прямоугольники залитые цветом программа рисует нормально, но как только дело касается окружностей, то ничего не работает. Экран просто заполняется цветом. Пробовал устанавливать цвет линии, всё равно бывает что какие-то два цвета сольются, в итоге неверно закрашено. Можно ли сделать так, чтобы нарисовать где-то в памяти круг, а потом тупо попиксельно перенести? Пробовал один метод, но он не помогает. Или как-нибудь иначе можно нормально нарисовать окружности? Спасибо.

[smith732]

Всё ещё актуально.

[zhan313]

PiesLice Спасет ?

[smith732]

zhan313, спасёт. Спасибо. Но вот что делать, если нужно будет рисовать многоугольники? Или например треугольник? Треугольник рисуется посредством трёх линий и закрашивания внтутренней области, но если треугольник будет пересекаться с другими фигурами, уже закрашенными, то здесь возникают трудности.

[zhan313]

procedure FillEllipsePlay;
{ Random filled ellipse demonstration }
const
  MaxFillStyles = 12; { patterns 0..11 }
var
  MaxRadius : word;
  FillColor : integer;
begin
  MainWindow('FillEllipse demonstration');
  StatusLine('Esc aborts or press a key');
  MaxRadius := MaxY div 10;
  SetLineStyle(SolidLn, 0, NormWidth);
  repeat
    FillColor := RandColor;
    SetColor(FillColor);
    SetFillStyle(Random(MaxFillStyles), FillColor);
    FillEllipse(Random(MaxX), Random(MaxY),
                Random(MaxRadius), Random(MaxRadius));
  until KeyPressed;
  WaitToGo;
end; { FillEllipsePlay }

procedure PolyPlay;
{ Draw random polygons with random fill styles on the screen }
const
  MaxPts = 5;
type
  PolygonType = array[1..MaxPts] of PointType;
var
  Poly : PolygonType;
  I, Color : word;
begin
  MainWindow('FillPoly demonstration');
  StatusLine('Esc aborts or press a key...');
  repeat
    Color := RandColor;
    SetFillStyle(Random(11)+1, Color);
    SetColor(Color);
    for I := 1 to MaxPts do
      with Poly[I] do
      begin
        X := Random(MaxX);
        Y := Random(MaxY);
      end;
    FillPoly(MaxPts, Poly);
  until KeyPressed;
  WaitToGo;
end; { PolyPlay }

Окружности и многоугольники с заполнением
выцепил из BGIDEMO.PAS от Borland.