--- 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))
--- 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)
--- 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))