yet more texture stuff
Before Width: | Height: | Size: 6.9 KiB After Width: | Height: | Size: 21 KiB |
Before Width: | Height: | Size: 2.5 KiB After Width: | Height: | Size: 7.2 KiB |
Before Width: | Height: | Size: 30 KiB After Width: | Height: | Size: 113 KiB |
Before Width: | Height: | Size: 11 KiB After Width: | Height: | Size: 40 KiB |
Before Width: | Height: | Size: 3.6 KiB After Width: | Height: | Size: 11 KiB |
|
@ -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))
|
||||
|
|