+ 2dup cmagsq
+ 4 0 >scaled > if
+ false ( not in set )
+ leave
+ then
+
+ true ( maybe in set )
+ loop
+
+ ( Clear z and c, leaving set membership flag )
+ -rot 2drop -rot 2drop
+;
+
+100 value xsteps
+30 value ysteps
+
+( Draw the Mandelbrot Set!)
+: mandeldraw ( x1 y1 x2 y2 -- )
+
+ cr
+
+ 0 pick 3 pick - ysteps /
+ 1 pick 4 pick do
+
+ 2 pick 5 pick - xsteps /
+ 3 pick 6 pick do
+
+ i j inSet? if
+ 42 emit
+ else
+ space
+ then
+
+ dup +loop
+ drop
+
+ cr
+
+ dup +loop
+ drop
+;
+
+( Clean up - hide non-standard multiplication def. )
+hide *