texture fixes
Dave Griffiths
BIN
pluggable/plant-2/.DS_Store
vendored
|
Before Width: | Height: | Size: 12 KiB After Width: | Height: | Size: 47 KiB |
|
Before Width: | Height: | Size: 22 KiB After Width: | Height: | Size: 74 KiB |
|
Before Width: | Height: | Size: 1.6 KiB After Width: | Height: | Size: 4.7 KiB |
|
Before Width: | Height: | Size: 1.9 KiB After Width: | Height: | Size: 5.3 KiB |
|
Before Width: | Height: | Size: 3.6 KiB After Width: | Height: | Size: 11 KiB |
|
Before Width: | Height: | Size: 1.6 KiB After Width: | Height: | Size: 4.6 KiB |
|
Before Width: | Height: | Size: 4.8 KiB After Width: | Height: | Size: 16 KiB |
|
Before Width: | Height: | Size: 821 B After Width: | Height: | Size: 924 B |
|
Before Width: | Height: | Size: 1.5 KiB After Width: | Height: | Size: 1.8 KiB |
|
Before Width: | Height: | Size: 449 B After Width: | Height: | Size: 498 B |
|
Before Width: | Height: | Size: 963 B After Width: | Height: | Size: 1.1 KiB |
|
Before Width: | Height: | Size: 872 B After Width: | Height: | Size: 971 B |
|
Before Width: | Height: | Size: 664 B After Width: | Height: | Size: 739 B |
|
Before Width: | Height: | Size: 2.8 KiB After Width: | Height: | Size: 3.1 KiB |
|
Before Width: | Height: | Size: 2.1 KiB After Width: | Height: | Size: 2.4 KiB |
|
|
@ -123,13 +123,13 @@
|
|||
(list-ref l (random (length l))))
|
||||
|
||||
(define (make-random-plant depth)
|
||||
(let ((num-children (if (> depth 10) 0 (choose (list 0 2 3)))))
|
||||
(let ((num-children (if (> depth 4) 0 (choose (list 2 3)))))
|
||||
(cond
|
||||
((eq? num-children 0) (list (choose (list "0" "0")) (list)))
|
||||
((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))
|
||||
(make-random-plant (+ depth 1)))))
|
||||
((eq? num-children 3) (list (string-append "3-" (choose (list "1" "2")))
|
||||
((eq? num-children 3) (list (string-append "3-" (choose (list "7")))
|
||||
(list (make-random-plant (+ depth 1))
|
||||
(make-random-plant (+ depth 1)) (make-random-plant (+ depth 1)))))
|
||||
((eq? num-children 4) (list "4-1" (list (make-random-plant (+ depth 1))
|
||||
|
|
@ -146,9 +146,9 @@
|
|||
(hint-unlit)
|
||||
;(opacity 0.5)
|
||||
(define p (make-random-plant 0))
|
||||
(display p) (newline)
|
||||
(define p2 (make-random-plant 0))
|
||||
|
||||
(define c (build-component "7-11" (list p)))
|
||||
(define c (build-component "2-1" (list p p2)))
|
||||
|
||||
|
||||
|
||||
|
|
|
|||