Data commit

Task/Mandelbrot-set/DWScript/mandelbrot-set.dw

@@ -0,0 +1,17 @@
+const maxIter = 256;
+
+var x, y, i : Integer;
+for y:=-39 to 39 do begin
+   for x:=-39 to 39 do begin
+      var c := Complex(y/40-0.5, x/40);
+      var z := Complex(0, 0);
+      for i:=1 to maxIter do begin
+         z := z*z + c;
+         if Abs(z)>=4 then Break;
+      end;
+      if i>=maxIter then
+         Print('#')
+      else Print('.');
+    end;
+    PrintLn('');
+end;