test/examples/complex/mandel.lua

   1 dofile("complex.lua")
   2
   3 xmin=-2         xmax=2          ymin=-2         ymax=2
   4 d=.125
   5
   6 function level(x,y)
   7  local c=complex(x,y)
   8  local l=0
   9  local z=c
  10  repeat
  11   z=z*z+c
  12   l=l+1
  13  until abs(z)>2 or l>255
  14  return l-1
  15 end
  16
  17 x=xmin
  18 while x<xmax do
  19  y=ymin
  20  while y<ymax do
  21   print(level(x,y))
  22   y=y+d
  23  end
  24  x=x+d
  25 end