# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1553731084 14400
# Node ID 77c86aa3b4189dda6a662168f48a5086cd3d919b
# Parent  da5525d2638c3fe5d9658ea7628fbd585907980b
Minor update

diff -r da5525d2638c -r 77c86aa3b418 magitek.asd
--- 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
 
                )
 
diff -r da5525d2638c -r 77c86aa3b418 src/diamond-square.lisp
--- 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))
diff -r da5525d2638c -r 77c86aa3b418 src/robots/bit-loom.lisp
--- 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))