Mandelbrot set: Difference between revisions

Content added Content deleted

Inline

@@ Line 5,228: / Line 5,228: @@
 <syntaxhighlight lang="easylang">
+# Mandelbrot
+#
 res = 4
 maxiter = 200
@@ Line 5,244: / Line 5,246: @@
 textsize 2
 #
-fastproc iter cx cy . it .
+fastfunc iter cx cy maxiter .
-   while xx + yy < 4 and it > 0
+   while xx + yy < 4 and it < maxiter
       y = 2 * x * y + cy
       x = xx - yy + cx
       xx = x * x
       yy = y * y
-      it -= 1
+      it += 1
    .
+   return it
 .
 proc draw . .
@@ Line 5,259: / Line 5,262: @@
       for scr_x = 0 to 2 * mid - 1
          cx = (scr_x - center_x) / scale
-         it = maxiter
+         it = iter cx cy maxiter
-         call iter cx cy it
+         if it < maxiter
-         if it > 0
-            it = maxiter - it
             color3 it / 20 it / 100 it / 150
             move scr_x / res scr_y / res
@@ Line 5,288: / Line 5,289: @@
       scale /= 4
    .
-   call draw
+   draw
 .
-call draw
+draw
 </syntaxhighlight>