Barnsley fern: Difference between revisions

Content deleted Content added
→‎{{header|EasyLang}}: add Emacs Lisp
Line 901: Line 901:
(setq y (round (- size (* scale (cdr p)) 1)))
(setq y (round (- size (* scale (cdr p)) 1)))
(setf (elt (elt arr y) x) 1))
(setf (elt (elt arr y) x) 1))
(barnsley-show arr size)))
(barnsley-show arr size)))


(barnsley 400 35 100000)</lang>
(barnsley 400 35 100000)</lang>