# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1520394424 18000
# Node ID ad6e9787c073ffc5aab225291e956756b6c865c6
# Parent  9154d5f07d72ef0cef618b8703d5322ff0d135e8
Add Loom 5

diff -r 9154d5f07d72 -r ad6e9787c073 src/robots/bit-loom.lisp
--- a/src/robots/bit-loom.lisp	Mon Mar 05 14:36:50 2018 -0500
+++ b/src/robots/bit-loom.lisp	Tue Mar 06 22:47:04 2018 -0500
@@ -28,13 +28,21 @@
               (format nil "mutagen ~D" mutagen)
               "pure"))))
 
+(defun loom-5 (seed)
+  (let* ((points (* 100 (random-range-inclusive 1 100)))
+         (generator (flax.looms.005-simple-triangulations::loom
+                      seed points "out" :png 1000 1000)))
+    (format nil "~R points, ~A generator" points generator)))
+
+
 (chancery:define-rule (select-loom :distribution :weighted)
   (1.0 1)
   (0.5 2)
   (0.2 3)
-  (2.0 4))
+  (2.0 4)
+  (1.5 5))
 
-(defparameter *looms* '(loom-1 loom-2 loom-3 loom-4))
+(defparameter *looms* '(loom-1 loom-2 loom-3 loom-4 loom-5))
 
 (defun generate-image (seed &key force-loom)
   (let* ((loom-index (random (length *looms*)))