X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=examples%2Fmandelbrot.4th;h=9759a3903ee84ca5edf1661e1023b1fc913d824e;hb=6a34e447b5d32310f63850a794816e30e350cc5c;hp=b8195f4cf0e8e0aff11944ef4aff57829b029e6b;hpb=bb2da3fd725bbc0672ad7e61fd441434c51da630;p=forth.jl.git

diff --git a/examples/mandelbrot.4th b/examples/mandelbrot.4th
index b8195f4..9759a39 100644
--- a/examples/mandelbrot.4th
+++ b/examples/mandelbrot.4th
@@ -73,12 +73,10 @@
 100 value xsteps
 30 value ysteps
 
-: mandelDomain
-        -2 0 >scaled -1 0 >scaled 0 5 >scaled 1 0 >scaled
-;
-
 ( Draw the Mandelbrot Set!)
-: mandelDraw ( x1 y1 x2 y2 -- )
+: mandeldraw ( x1 y1 x2 y2 -- )
+
+    cr
 
     0 pick 3 pick - ysteps /
     1 pick 4 pick do
@@ -103,3 +101,11 @@
 
 ( Clean up - hide non-standard multiplication def. )
 hide *
+
+( Default picture )
+: mandel
+        -2 0 >scaled -1 0 >scaled 0 5 >scaled 1 0 >scaled
+        mandeldraw
+;
+
+CR .( Enter 'mandel' to draw the Mandelbrot Set.)