Визуализация множества Жюлия

[MIKE11IPME]

в общем вот код

function vizjul(xm1,ym1:Real;color:Integer):TColor;
const a=-0.26;
      b=0.67;
var xm2,ym2:real;
begin
  xm2:=xm1*xm1-ym1*ym1+a;
  ym2:=2*xm1*ym1+b;
  if (Abs(xm2) > 2) or (Abs(ym2) > 2) then
  begin
    Result:=RGB(color,255,255)
  end
    else
      begin
        Inc(color);
        vizjul(xm2,ym2,color);
      end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var ih,iw,xo1,xo2,yo1,yo2,xp,yp:Real;
    i,u:Integer;
begin
  ih:=Image1.Height;
  iw:=Image1.Width;
  ShowMessage(FloatToStr(iw)+'  '+FloatToStr(ih));
  xo1:=strtofloat(Edit1.Text);
  xo2:=strtofloat(Edit2.Text);
  yo1:=strtofloat(Edit3.Text);
  yo2:=strtofloat(Edit4.Text);
  xp:=((Abs(xo2-xo1))/iw);
  yp:=((Abs(yo2-yo1))/ih);
  for i := 0 to Round(iw) do
    begin
      for u := 0 to Round(ih) do
        begin
          Image1.Canvas.Pixels[i,u]:=vizjul(xo1,yo1,0);
          yo1:=yo1+yp;
        end;
      xo1:=xo1+xp;
    end;

end;

Проблема: весь Image заливается одним цветом(оттенком) , что-то тут не то

[phomm]

лучше весь проект прикрепить, чтобы можно было сразу проверить.
Что говорит трассировка/отладка ?

[MIKE11IPME]

Сообщение от phomm

лучше весь проект прикрепить, чтобы можно было сразу проверить.
Что говорит трассировка/отладка ?

Да в общем все как и задумано работает...

[MIKE11IPME]

Если выставить 0 0,02 0 0,02 то закрашивается одним цветом часть области

[phomm]

Сходу не решил, подзапутался...
Вот чего нагуглил, но тоже как-то не запилил, тупо копипастить не хотел, но может Вы чего проработаете.
http://www.visualtech.ru/course5.html
http://www.cyberforum.ru/pascal/thread626565.html
http://fractalworld.xaoc.ru/Julia_set

[MIKE11IPME]

Сообщение от phomm

Сходу не решил, подзапутался...
Вот чего нагуглил, но тоже как-то не запилил, тупо копипастить не хотел, но может Вы чего проработаете.
http://www.visualtech.ru/course5.html
http://www.cyberforum.ru/pascal/thread626565.html
http://fractalworld.xaoc.ru/Julia_set

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