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> |