Farbskala für eine Juliamenge ($1FFF)

[SemolasP]

Und wie steht das in Zusammenhang mit meiner
Farbskala?

Hier ist mein Programmiertext der zutreffenden
Funktion:

Delphi-Quellcode:

procedure iteriere(z:Complex) ;
var i,k : integer ;
 begin
  k:= 1 ;
  for i:=1 to 1001 do
   begin
    if  ((z.re*z.re+z.im*z.im) > (c.im*c.im+c.re*c.re))
    and ((z.re*z.re+z.im*z.im) > 4 ) then break;
    z:= f(z) ;
    k:= k+1
   end;
  
   if k >= 1001 then Form1.Image1.Canvas.Pixels[xpix,ypix] := clBlack
   else Form1.Image1.canvas.pixels[xPix,yPix] := $1FFF*(k+x) ;   //x steht für eine beliebige Zahl ;

 end;

[edit=Phoenix]Delphi-Tag geschlossen Mfg, Phoenix[/edit]