Bitmap/Histogram: Difference between revisions
m
<= instead of <
(Add Common Lisp implementation) |
m (<= instead of <) |
||
Line 288:
(make-8-bit-gray-image height width :initial-element 0))))
(do-pixels (i j) image
(setf (pixel bw-image i j) (if (<= (pixel image i j) median) 0 255)))
bw-image))
| |||