1 files changed, 25 insertions, 0 deletions
diff --git a/test/examples/complex/mandel.lua b/test/examples/complex/mandel.lua
new file mode 100644
index 00000000..5e3d3eb6
--- /dev/null
+++ b/test/examples/complex/mandel.lua
@@ -0,0 +1,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