Revision as of 00:14, 20 February 2017 (view source) Jaydub (talk \| contribs) (Add Common Lisp implementation) ← Older edit		Revision as of 00:22, 20 February 2017 (view source) Jaydub (talk \| contribs) m (minor edits) Newer edit →
Line 245: (defun set-pixel (image x y) (let ((%x (truncate (+ (* factor x) (~~floor~~/ width 2)))) (%y (truncate (- height (* factor y) y-offset)))) (setf (pixel image %y %x) (values 0 255 0)))) (defun fern (filespec &optional (iterations 10000000)) (~~loop with~~let ((image = (make-8-bit-rgb-image height width :initial-element 0)) ~~with~~ (x = 0) ~~with~~ (y = 0)) (dotimes (i iterations) ~~do (set-pixel image x y)~~ (set-pixel image ~~repeat~~x ~~iterations~~y) do (multiple-value-setq (x y) (funcall (choose-transform) x y))) ~~finally~~ (write-png-file filespec image)))</lang> =={{header\|Delphi}}==

Barnsley fern: Difference between revisions

Barnsley fern (view source)