hg.stevelosh.com > magitek

--- a/src/robots/bit-loom.lisp	Tue Feb 06 00:01:35 2018 -0500
+++ b/src/robots/bit-loom.lisp	Tue Feb 06 19:05:12 2018 -0500
@@ -23,7 +23,7 @@
          (loom (elt *looms* loom-index)))
     (pr 'running loom)
     (let ((extra (funcall loom seed)))
-      (resize "out.png" 800)
+      (resize "out.png" 1200)
       (values (1+ loom-index) extra))))

 (defun random-tweet ()
author	Steve Losh <steve@stevelosh.com>
date	Tue, 06 Feb 2018 19:05:12 -0500
parents	bb087180b17f
children	099a7c07ba2a
branches/tags	(none)
files	src/robots/bit-loom.lisp