test/examples/complex/mandel.lua


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

dofile("complex.lua")

xmin=-2		xmax=2		ymin=-2		ymax=2
d=.125

function level(x,y)
 local c=complex(x,y)
 local l=0
 local z=c
 repeat
  z=z*z+c
  l=l+1
 until abs(z)>2 or l>255
 return l-1
end

x=xmin
while x<xmax do
 y=ymin
 while y<ymax do
  print(level(x,y))
  y=y+d
 end
 x=x+d
end