Revision as of 17:54, 25 February 2017 (view source) Jaydub (talk \| contribs) m (let & loop -> loop) ← Older edit		Revision as of 17:56, 25 February 2017 (view source) Jaydub (talk \| contribs) m (lena -> lenna) Newer edit →
Line 292: (defun main () (let* ((image (read-jpeg-file "~~lena~~lenna.jpg")) (bw-image (gray->black&white-image (color->gray-image image)))) (write-pgm-file "~~lena~~lenna-bw.pgm" bw-image)))</lang> =={{header\|D}}==

Bitmap/Histogram (view source)