[vetatto]

Привет всем! У меня возникла проблема с алгоритмом Брезенхема для окружности.

Нужно нарисовать окружность на изображении.
Если я рисую ее на цветном изображении, то выходит вот


А если на черно-белом то вот


Сам алгоритм

PHP код:

procedure bres_circle(xc,yc,r:integer);
 var x,y,d:integer;
 procedure sim(x,y:integer);
  begin
    Form1.Image1.Canvas.Pixels[x+xc,y+yc]:=clred;
    Form1.Image1.Canvas.Pixels[x+xc,-y+yc]:=clred;
    Form1.Image1.Canvas.Pixels[-x+xc,-y+yc]:=clred;
    Form1.Image1.Canvas.Pixels[-x+xc,y+yc]:=clred;
    Form1.Image1.Canvas.Pixels[y+xc,x+yc]:=clred;
    Form1.Image1.Canvas.Pixels[y+xc,-x+yc]:=clred;
    Form1.Image1.Canvas.Pixels[-y+xc,-x+yc]:=clred;
    Form1.Image1.Canvas.Pixels[-y+xc,x+yc]:=clred;

  end;
  begin
  d:=3-2*y;
  x:=0;
  y:=r;
  while(x <= y) do
    begin
     sim(x,y);
     if d<0    then d:=d+4*x+6
     else begin
     d:=d+4*(x-y)+10;
     dec(y)
    end;
  inc(x)
  end;
 end; 


Подскажите почему так? Мне нужно работать именно с ЧБ изображением, причем при рисовании окружности нужно знать ее точки из-за этого Просто функцией Ellipse не выходит...

[YVitaliy]

Какой-то квадратовый у тебя алгоритм (в смысле квадраты рисует )
Я с алгоритмом не знаком, поетому копипастерством заниматься не буду, но в Википедии полностью рабочий пример приведен - если не лень то можно посмотреть - работает отлично, и не зависит от формата изображения - уже проверил)

[PhoeniX]

На ч/б палитра ограничена, и red нарисоваться не может. Изменяй палитру канваса.

[vetatto]

YVitaliy, спасибо. Нарисовал.

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

У меня получается так


При рисовании закрашиваются просто белые пиксели и все

[angvelem]

Начальная и конечная точка известна, проверяй все пикселы на этом отрезке.

[YVitaliy]

Думаю, за тем же алгоритмом Брезенхэма, только для линий - рисуешь линию(там цыкл по пикселях) проверяешь цвет текущего пикселя и в случае черного цвета - break.