Fluxus: Difference between revisions
Jump to navigation
Jump to search
m (Reverted edits by CaborOlrac (Talk); changed back to last version by Yaxu) |
BasacElboa (talk | contribs) (ouc4tsitmon) |
||
Line 1: | Line 1: | ||
taricpasrol | |||
http://www.pawfal.org/Software/fluxus/ | http://www.pawfal.org/Software/fluxus/ | ||
(define (tree d) | (define (tree d) | ||
(push) | (push) | ||
(rotate ( | (rotate #(0 30 0)) | ||
(translate ( | (translate #(0 0.6 0)) | ||
(scale ( | (scale #(0.8 0.8 0.8)) | ||
(push) | (push) | ||
(scale ( | (scale #(0.2 1 0.2)) | ||
( | (draw_cube) | ||
(pop) | (pop) | ||
( | (if (eq? 0 d) | ||
1 | |||
(begin (rotate #(0 0 45)) | |||
( | (tree (- d 1)) | ||
(rotate #(0 0 -90)) | |||
(tree (- d 1)))) | |||
(pop)) | (pop)) | ||
(show_axis 1) | |||
(clear) | (clear) | ||
(colour ( | (colour #(0.5 0.5 0.5)) | ||
(define ( | (define (loop) (tree 8)) | ||
(engine_callback |
Revision as of 08:21, 19 December 2008
taricpasrol 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