# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1521862607 14400
# Node ID 595e1605631747151cade67b2bf9bb7e4a641d53
# Parent  d5b02d8c4803cfc04010814366e9f155e4b69327
Fix default values

diff -r d5b02d8c4803 -r 595e16056317 src/looms/002-wobbly-lines.lisp
--- a/src/looms/002-wobbly-lines.lisp	Fri Mar 23 23:14:07 2018 -0400
+++ b/src/looms/002-wobbly-lines.lisp	Fri Mar 23 23:36:47 2018 -0400
@@ -62,7 +62,7 @@
                                          :padding 0.0
                                          :background *background*))
     (randomly-initialize
-      ((ticks (round-to (random-range 800 5000 #'rand) 100))
+      ((ticks (round-to (random-range 3000 8000 #'rand) 1000))
        (mode (random-elt '(:opaque :transparent :fade) #'rand))))
     (let ((line (initial 300))
           (*hue* (random-range 0.0d0 1.0d0 #'rand))
diff -r d5b02d8c4803 -r 595e16056317 src/looms/005-simple-triangulations.lisp
--- a/src/looms/005-simple-triangulations.lisp	Fri Mar 23 23:14:07 2018 -0400
+++ b/src/looms/005-simple-triangulations.lisp	Fri Mar 23 23:36:47 2018 -0400
@@ -61,8 +61,7 @@
       ((ratio (if (randomp 0.5 #'rand)
                 1
                 (random-range 0.05 0.2 #'rand)))
-       (points (round-to (random-range-inclusive 200 700 #'rand)
-                         10))))
+       (points (round-to (random-range-inclusive 100 1000 #'rand) 10))))
     (progn
       (-<> (generate generator points)
         (convert <> ratio)
diff -r d5b02d8c4803 -r 595e16056317 src/looms/007-stippling.lisp
--- a/src/looms/007-stippling.lisp	Fri Mar 23 23:14:07 2018 -0400
+++ b/src/looms/007-stippling.lisp	Fri Mar 23 23:36:47 2018 -0400
@@ -126,4 +126,4 @@
       (values shapes))))
 
 ;; (time (loom 11 "out" :png 800 800))
-(time (loom 112 "out" :plot 800 800 :ratio 40000))
+;; (time (loom 112 "out" :plot 800 800 :ratio 40000))