Канвас, делфи

[Kapitan4ik]

Делаю лабу по канве. По условию у меня 4 окружности, надо закрасить их пересечения. Выглядит это дело вот так.


часть кода отвечающая за прорисовку:

 Image1.Canvas.Brush.Color := ClBlack;

  Image1.Canvas.moveto(Image1.Width div 2, 0);
  Image1.Canvas.LineTo(100, 200);
  Image1.Canvas.moveto(0, Image1.Height div 2);
  Image1.Canvas.LineTo(200, 100);
  Image1.Canvas.Brush.style := bsClear;
  Image1.Canvas.Ellipse(90, 40, 160, 110);
  Image1.Canvas.Ellipse(110, 40, 40, 110);
  Image1.Canvas.Ellipse(160, 90, 90,160 );
  Image1.Canvas.Ellipse(40,160, 110,90 );


  Image1.Canvas.Brush.Style := bsFDiagonal;

  Image1.Canvas.FloodFill(104, 75, ClWhite, fsSurface);
  Image1.Canvas.FloodFill(1, 101, ClBlack, fsBorder);
  Image1.Canvas.FloodFill(1, 1, ClBlack, fsBorder);
  Image1.Canvas.FloodFill(1, 101, ClBlack, fsBorder);

пытаюсь закрашивать флудфилом-нифига
если удалить строку Image1.Canvas.Brush.style := bsClear
то получается все более круто, области штрихуются, но вырисовывается такая картина


Вопрос, как сделать окружности не полностью закрашенными? Все дело походу именно в bsClear

[Serge_Bliznykov]

так устроит?

  Image1.Canvas.Brush.Color := ClBlack;

  Image1.Canvas.moveto(100, 0);
  Image1.Canvas.LineTo(100, 200);
  Image1.Canvas.moveto(0, 100);
  Image1.Canvas.LineTo(200, 100);
  Image1.Canvas.Brush.style := bsClear;
  Image1.Canvas.Ellipse(90, 40, 160, 110);
  Image1.Canvas.Ellipse(110, 40, 40, 110);
  Image1.Canvas.Ellipse(160, 90, 90,160 );
  Image1.Canvas.Ellipse(40,160, 110,90 );


  Image1.Canvas.Brush.Style := bsFDiagonal;
  Image1.Canvas.Brush.color := clRed;
  Image1.Canvas.FloodFill(124, 104, ClBlack, fsBorder);
  Image1.Canvas.FloodFill(124, 94, ClBlack, fsBorder);
  Image1.Canvas.Brush.color := clBlue;
  Image1.Canvas.FloodFill(104, 124, ClBlack, fsBorder);
  Image1.Canvas.FloodFill(94, 124, ClBlack, fsBorder);
  Image1.Canvas.Brush.color := clGreen;
  Image1.Canvas.FloodFill(72, 104, ClBlack, fsBorder);
  Image1.Canvas.FloodFill(72, 94, ClBlack, fsBorder);
  Image1.Canvas.Brush.color := clPurple;
  Image1.Canvas.FloodFill(94, 72, ClBlack, fsBorder);
  Image1.Canvas.FloodFill(104, 72, ClBlack, fsBorder);

canvas1.jpg

[Kapitan4ik]

Более чем, спасибо!

[Kapitan4ik]

Теперь другой вопрос, как определить принадлежность точки к данным областям?
Укажите плиз ошибку, пишу вот такой код. За единицу принимаем 30 пикселей. На примере верхней зоны

 x0 := 100 + x * 30;
  y0 := 100 - y * 30;

  Image1.Canvas.Brush.style := bsSolid;
  Image1.Canvas.Brush.Color := clRed;
  Image1.Canvas.Ellipse(x0 - r, y0 - r, x0 + r, y0 + r);

  if (sqrt((30 - x) * (30 - x) + (30 - y) * (35 - y)) <= 35) and
  (sqrt((30+x)*(30+x)+(30-y)*(30-y))<=35)  then ShowMessage('Входит ');

[northener]

and и or
Почувствуйте разницу!

[Kapitan4ik]

дак там же совмещенная область, поэтому и спрашиваю