77c86aa3b418

--- a/magitek.asd	Sat Apr 14 01:16:05 2018 -0400
+++ b/magitek.asd	Wed Mar 27 19:58:04 2019 -0400
@@ -20,7 +20,7 @@
                :sqlite
                :trivia
                :trivia.quasiquote
-               :trivial-ppm
+               :cl-netpbm
 
                )
 

--- a/src/diamond-square.lisp	Sat Apr 14 01:16:05 2018 -0400
+++ b/src/diamond-square.lisp	Wed Mar 27 19:58:04 2019 -0400
@@ -103,7 +103,7 @@
     (setf p (color-pixel p))))
 
 (defun dump ()
-  (trivial-ppm:write-to-file
+  (netpbm:write-to-file
     "heightmap.pbm"
     (color (heightmap-to-pixels (generate-heightmap 512)))
     :if-exists :supersede))

--- a/src/robots/bit-loom.lisp	Sat Apr 14 01:16:05 2018 -0400
+++ b/src/robots/bit-loom.lisp	Wed Mar 27 19:58:04 2019 -0400
@@ -53,7 +53,7 @@
   (1.0 1)
   (0.5 2)
   (0.2 3)
-  (2.0 4)
+  (3.0 4)
   (1.0 5)
   (1.0 6)
   (1.0 7))