yet more texture stuff

This commit is contained in:
Dave Griffiths 2009-04-29 14:18:37 +01:00
parent dd7efb2328
commit 3bf2ff8f5a
6 changed files with 3 additions and 3 deletions

Binary file not shown.

Before

Width:  |  Height:  |  Size: 6.9 KiB

After

Width:  |  Height:  |  Size: 21 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 2.5 KiB

After

Width:  |  Height:  |  Size: 7.2 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 30 KiB

After

Width:  |  Height:  |  Size: 113 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 11 KiB

After

Width:  |  Height:  |  Size: 40 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 3.6 KiB

After

Width:  |  Height:  |  Size: 11 KiB

View file

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