Задача в Canvase

[lider24816]

Нужно Изобразить не менее 6 пересекающихся окружностей разного цвета, построенных на основной окружности в центре экрана. Нужно сделать так ,чтобы окружности не заливались, чтобы при пересечении окружностей были видны их конуры

[Chudo4258]

Олимпийский флаг:

[Скандербег]

Немного другой вариант.

procedure TForm1.FormPaint(Sender: TObject);
var
  R : TRect;
  X0, Y0, I, X, Y : Integer;
  Ang : Double;
const
  Offs = 200;
  clr : array[1..6] of TColor = (clRed, clLime, clBlue, clGreen, clSilver, clFuchsia);
begin
  with Canvas do begin
    Pen.Color := clBlack;
    X0 := ClientWidth div 2;
    Y0 := ClientHeight div 2;
    R := Rect(X0 - Offs, Y0 - Offs, X0 + Offs, Y0 + Offs);
    Arc(R.Left, R.Top, R.Right, R.Bottom, R.left, R.Top, R.Left, R.Top);
    Ang := 0;
    for I := 1 to 6 do begin
      X := Round(sin(ang) * Offs + X0);
      Y := Round(cos(ang) * Offs + Y0);
      R := Rect(X - 50, Y - 50, X + 50, Y + 50);
      Pen.Color := clr[I];
      Arc(R.Left, R.Top, R.Right, R.Bottom, R.left, R.Top, R.Left, R.Top);
      Ang := Ang + (pi * 2) / 6;
    end;
  end;
end;