Anonymous user
Barnsley fern: Difference between revisions
→{{header|Emacs Lisp}}
(→{{header|EasyLang}}: add Emacs Lisp) |
|||
Line 901:
(setq y (round (- size (* scale (cdr p)) 1)))
(setf (elt (elt arr y) x) 1))
(barnsley-show arr size)))
(barnsley 400 35 100000)</lang>
|