--- a/src/robots/bit-loom.lisp Thu Feb 08 17:46:57 2018 -0500
+++ b/src/robots/bit-loom.lisp Thu Feb 15 00:09:28 2018 -0500
@@ -20,7 +20,12 @@
(flax.looms.003-basic-l-systems::loom-anabaena-catenula seed "out.png" 2000 2000)
(format nil "variety: anabaena catenula"))
-(defparameter *looms* '(loom-1 loom-2 loom-3))
+(defun loom-4 (seed)
+ (destructuring-bind (lsystem iterations)
+ (flax.looms.004-turtle-curves::loom seed "out.png" 1000 1000)
+ (format nil "~R iterations of ~A" iterations lsystem)))
+
+(defparameter *looms* '(loom-1 loom-2 loom-3 loom-4))
(defun generate-image (seed &key force-loom)
(let* ((loom-index (random (length *looms*)))