Bitmap/Histogram: Difference between revisions
Content added Content deleted
m (let & loop -> loop) |
m (lena -> lenna) |
||
Line 292: | Line 292: | ||
(defun main () |
(defun main () |
||
(let* ((image (read-jpeg-file " |
(let* ((image (read-jpeg-file "lenna.jpg")) |
||
(bw-image (gray->black&white-image (color->gray-image image)))) |
(bw-image (gray->black&white-image (color->gray-image image)))) |
||
(write-pgm-file " |
(write-pgm-file "lenna-bw.pgm" bw-image)))</lang> |
||
=={{header|D}}== |
=={{header|D}}== |