595e16056317

Fix default values
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Fri, 23 Mar 2018 23:36:47 -0400
parents d5b02d8c4803
children e9fe0b053e81
branches/tags (none)
files src/looms/002-wobbly-lines.lisp src/looms/005-simple-triangulations.lisp src/looms/007-stippling.lisp

Changes

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