yet more texture stuff

2009-04-29 14:18:37 +01:00 · 2009-04-29 14:18:37 +01:00 · 3bf2ff8f5a
parent dd7efb2328
commit 3bf2ff8f5a
6 changed files with 3 additions and 3 deletions
--- a/pluggable/plant-2/comp-2-10.png
+++ b/pluggable/plant-2/comp-2-10.png
--- a/pluggable/plant-2/comp-2-13.png
+++ b/pluggable/plant-2/comp-2-13.png
--- a/pluggable/plant-2/comp-2-16.png
+++ b/pluggable/plant-2/comp-2-16.png
--- a/pluggable/plant-2/comp-2-2.png
+++ b/pluggable/plant-2/comp-2-2.png
--- a/pluggable/plant-2/comp-2-6.png
+++ b/pluggable/plant-2/comp-2-6.png
--- a/pluggable/pluggable.scm
+++ b/pluggable/pluggable.scm
@ -104,7 +104,7 @@
                                        (translate (vector 0 0 -0.01))
                                        (printf "~a~n" connection)
                                        (translate connection)
-                                        (scale 0.8)
+                                        (scale 0.6)
                                        (rotate (vector 0 0 (2dvec->angle 
                                                    (vx connection) (- (vy connection) 0.5))))
                                        (rotate (vector 0 0 0))
@ -123,11 +123,11 @@
    (list-ref l (random (length l))))

 (define (make-random-plant depth)
-    (let ((num-children (if (> depth 4) 0 (choose (list 2 3)))))
+    (let ((num-children (if (> depth 4) 0 (choose (list 2 2 2 2 3)))))
        (cond 
            ((eq? num-children 0) (list (choose (list "3" "4" "8" "9")) (list)))
            ((eq? num-children 1) (list "1-1" (list (make-random-plant (+ depth 1)))))
-            ((eq? num-children 2) (list "2-1" (list (make-random-plant (+ depth 1))
+            ((eq? num-children 2) (list (string-append "2-" (choose (list "1" "2" "6" "10" "13" "16"))) (list (make-random-plant (+ depth 1))
                        (make-random-plant (+ depth 1)))))
            ((eq? num-children 3) (list (string-append "3-" (choose (list "7")))
                        (list (make-random-plant (+ depth 1))