Fluxus: Difference between revisions
Jump to navigation
Jump to search
No edit summary |
No edit summary |
||
Line 3: | Line 3: | ||
(define (tree d) | (define (tree d) | ||
(push) | (push) | ||
(rotate | (rotate (vector 0 30 0)) | ||
(translate | (translate (vector 0 0.6 0)) | ||
(scale | (scale (vector 0.8 0.8 0.8)) | ||
(push) | (push) | ||
(scale | (scale (vector 0.2 1 0.2)) | ||
(draw_cube) | (draw_cube) | ||
(pop) | (pop) | ||
(if (eq? 0 d) | (if (eq? 0 d) | ||
1 | 1 | ||
(begin (rotate | (begin (rotate (vector 0 0 45)) | ||
(tree (- d 1)) | (tree (- d 1)) | ||
(rotate | (rotate (vector 0 0 -90)) | ||
(tree (- d 1)))) | (tree (- d 1)))) | ||
(pop)) | (pop)) | ||
Line 21: | Line 21: | ||
(clear) | (clear) | ||
(colour | (colour (vector 0.5 0.5 0.5)) | ||
(define ( | (define (render) | ||
(tree 8)) | |||
(engine_callback (render)) |
Revision as of 08:40, 16 July 2007
http://www.pawfal.org/Software/fluxus/
(define (tree d) (push) (rotate (vector 0 30 0)) (translate (vector 0 0.6 0)) (scale (vector 0.8 0.8 0.8)) (push) (scale (vector 0.2 1 0.2)) (draw_cube) (pop) (if (eq? 0 d) 1 (begin (rotate (vector 0 0 45)) (tree (- d 1)) (rotate (vector 0 0 -90)) (tree (- d 1)))) (pop)) (show_axis 1) (clear) (colour (vector 0.5 0.5 0.5)) (define (render) (tree 8)) (engine_callback (render))