# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1518671368 18000
# Node ID 2bf00f41a8b98bd898c9c05c83c75ef201dfc7dd
# Parent  3e57244fd53ca95163cc9e3e9a5030e0df7e521f
Add turtle curves

diff -r 3e57244fd53c -r 2bf00f41a8b9 src/robots/bit-loom.lisp
--- 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*)))