# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1517076516 18000
# Node ID 6d68c2c64b0fc5f23fd97d7353f6dc586f71bcfa
# Parent  1320162a9ed0bada7d1e3d52cf2e1353da3c0762
Use 0 for black in pbm images

diff -r 1320162a9ed0 -r 6d68c2c64b0f src/main.lisp
--- a/src/main.lisp	Thu Jan 25 23:14:41 2018 -0500
+++ b/src/main.lisp	Sat Jan 27 13:08:36 2018 -0500
@@ -78,7 +78,7 @@
       (dotimes (x width)
         (setf (aref data x y)
               (ecase format
-                (:pbm (funcall reader stream))
+                (:pbm (- 1 (funcall reader stream)))
                 (:pgm (funcall reader stream))
                 (:ppm (make-array 3
                         :initial-contents (list (funcall reader stream)
@@ -98,7 +98,7 @@
         (dotimes (x width)
           (let ((pixel (aref data x y)))
             (ecase format
-              (:pbm (funcall writer pixel stream))
+              (:pbm (funcall writer (- 1 pixel) stream))
               (:pgm (funcall writer pixel stream))
               (:ppm (progn (funcall writer (aref pixel 0) stream)
                            (funcall writer (aref pixel 1) stream)
diff -r 1320162a9ed0 -r 6d68c2c64b0f test/data/1x1-black.ascii.pbm
--- a/test/data/1x1-black.ascii.pbm	Thu Jan 25 23:14:41 2018 -0500
+++ b/test/data/1x1-black.ascii.pbm	Sat Jan 27 13:08:36 2018 -0500
@@ -1,3 +1,3 @@
 P1
 1 1
-0
+1
diff -r 1320162a9ed0 -r 6d68c2c64b0f test/data/4x3-rgb.ascii.ppm
--- a/test/data/4x3-rgb.ascii.ppm	Thu Jan 25 23:14:41 2018 -0500
+++ b/test/data/4x3-rgb.ascii.ppm	Sat Jan 27 13:08:36 2018 -0500
@@ -1,6 +1,6 @@
 P3
 4 3
 255
-255 0 0 255 100 0 255 0 0 255 0 0
+255 0 0 255 0 0 255 0 0 255 0 0
 0 255 0 0 255 0 0 255 0 0 255 0
 0 0 255 0 0 255 0 0 255 0 0 255