The Lambda Lab
/
projects
/
forth.jl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Draft INTERPRET implementation.
[forth.jl.git]
/
examples
/
mandelbrot.4th
diff --git
a/examples/mandelbrot.4th
b/examples/mandelbrot.4th
index
b8af203
..
9759a39
100644
(file)
--- a/
examples/mandelbrot.4th
+++ b/
examples/mandelbrot.4th
@@
-76,6
+76,8
@@
( Draw the Mandelbrot Set!)
: mandeldraw ( x1 y1 x2 y2 -- )
+ cr
+
0 pick 3 pick - ysteps /
1 pick 4 pick do
@@
-106,4
+108,4
@@
hide *
mandeldraw
;
-.( Enter 'mandel' to draw the Mandelbrot Set.)
+
CR
.( Enter 'mandel' to draw the Mandelbrot Set.)