--- 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))