Fluxus: Difference between revisions
Jump to navigation
Jump to search
No edit summary |
(reformat) |
||
Line 17: | Line 17: | ||
(tree (- d 1)))) | (tree (- d 1)))) | ||
(pop)) | (pop)) | ||
(show_axis 1) | |||
(clear) | |||
(colour #(0.5 0.5 0.5)) | |||
(define (loop) (tree 8)) | |||
(engine_callback "(loop)") | (engine_callback "(loop)") |
Revision as of 00:10, 1 August 2005
http://www.pawfal.org/Software/fluxus/
(define (tree d) (push) (rotate #(0 30 0)) (translate #(0 0.6 0)) (scale #(0.8 0.8 0.8)) (push) (scale #(0.2 1 0.2)) (draw_cube) (pop) (if (eq? 0 d) 1 (begin (rotate #(0 0 45)) (tree (- d 1)) (rotate #(0 0 -90)) (tree (- d 1)))) (pop)) (show_axis 1) (clear) (colour #(0.5 0.5 0.5)) (define (loop) (tree 8))
(engine_callback "(loop)")