FoAM/groworld
12
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

yet more texture stuff

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
pluggable/plant-2/comp-2-10.png
View file

Binary file not shown.
Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 6.9 KiB

After

Width:  |  Height:  |  Size: 21 KiB

BIN
pluggable/plant-2/comp-2-13.png
View file

Binary file not shown.
Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.5 KiB

After

Width:  |  Height:  |  Size: 7.2 KiB

BIN
pluggable/plant-2/comp-2-16.png
View file

Binary file not shown.
Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 30 KiB

After

Width:  |  Height:  |  Size: 113 KiB

BIN
pluggable/plant-2/comp-2-2.png
View file

Binary file not shown.
Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 11 KiB

After

Width:  |  Height:  |  Size: 40 KiB

BIN
pluggable/plant-2/comp-2-6.png
View file

Binary file not shown.
Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 3.6 KiB

After

Width:  |  Height:  |  Size: 11 KiB

6
pluggable/pluggable.scm
View file

@ -104,7 +104,7 @@
(translate (vector 0 0 -0.01)) (translate (vector 0 0 -0.01))
(printf "~a~n" connection) (printf "~a~n" connection)
(translate connection) (translate connection)
(scale 0.8) (scale 0.6)
(rotate (vector 0 0 (2dvec->angle (rotate (vector 0 0 (2dvec->angle
(vx connection) (- (vy connection) 0.5)))) (vx connection) (- (vy connection) 0.5))))
(rotate (vector 0 0 0)) (rotate (vector 0 0 0))
@ -123,11 +123,11 @@
(list-ref l (random (length l)))) (list-ref l (random (length l))))
(define (make-random-plant depth) (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 (cond
((eq? num-children 0) (list (choose (list "3" "4" "8" "9")) (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 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))))) (make-random-plant (+ depth 1)))))
((eq? num-children 3) (list (string-append "3-" (choose (list "7"))) ((eq? num-children 3) (list (string-append "3-" (choose (list "7")))
(list (make-random-plant (+ depth 1)) (list (make-random-plant (+ depth 1))