# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1520278610 18000
# Node ID 9154d5f07d72ef0cef618b8703d5322ff0d135e8
# Parent  380f30d82a98b39d3c928793d336879d5700661e
Update flax API

diff -r 380f30d82a98 -r 9154d5f07d72 src/robots/bit-loom.lisp
--- a/src/robots/bit-loom.lisp	Tue Feb 20 20:19:49 2018 -0500
+++ b/src/robots/bit-loom.lisp	Mon Mar 05 14:36:50 2018 -0500
@@ -8,21 +8,21 @@
 
 (defun loom-1 (seed)
   (let ((depth (random-range-inclusive 16 19)))
-    (flax.looms.001-triangles:loom seed depth "out.png" 3000 3000)
+    (flax.looms.001-triangles:loom seed depth "out" :png 3000 3000)
     (format nil "depth ~D" depth)))
 
 (defun loom-2 (seed)
   (let ((ticks (* 1000 (random-range-inclusive 3 8))))
-    (flax.looms.002-wobbly-lines:loom seed ticks "out.png" 2000 400)
+    (flax.looms.002-wobbly-lines:loom seed ticks "out" :png 2000 400)
     (format nil "~R ticks" ticks)))
 
 (defun loom-3 (seed)
-  (flax.looms.003-basic-l-systems::loom-anabaena-catenula seed "out.png" 2000 2000)
+  (flax.looms.003-basic-l-systems::loom-anabaena-catenula seed "out" :png 2000 2000)
   (format nil "variety: anabaena catenula"))
 
 (defun loom-4 (seed)
   (destructuring-bind (lsystem iterations mutagen)
-      (flax.looms.004-turtle-curves::loom seed "out.png" 1000 1000)
+      (flax.looms.004-turtle-curves::loom seed "out" :png 1000 1000)
     (format nil "~R iterations of ~A, ~A" iterations lsystem
             (if mutagen
               (format nil "mutagen ~D" mutagen)