Fluxus: Difference between revisions
Jump to navigation
Jump to search
m (Reverted edits by CaborOlrac (Talk); changed back to last version by Yaxu) |
m (Reverted edits by AcvirOvica (Talk); changed back to last version by Yaxu) |
(3 intermediate revisions by 3 users not shown) | |
(No difference)
|
Latest revision as of 20:24, 22 May 2009
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) (cond ((zero? 0 d) 0) (else (rotate (vector 0 0 45)) (tree (- d 1)) (rotate (vector 0 0 -90)) (tree (- d 1)))) (pop)) (clear) (colour (vector 0.5 0.5 0.5)) (define (render) (tree 8)) (engine-callback (render))