Fluxus: Difference between revisions
Jump to navigation
Jump to search
No edit summary |
m (Reverted edits by AcvirOvica (Talk); changed back to last version by Yaxu) |
||
| (13 intermediate revisions by 8 users not shown) | |||
| 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) | ||
(pop) | (pop) | ||
( | (cond | ||
((zero? 0 d) | |||
( | 0) | ||
(else | |||
(rotate (vector 0 0 45)) | |||
(tree (- d 1)) | |||
(rotate (vector 0 0 -90)) | |||
(tree (- d 1)))) | |||
(pop)) | (pop)) | ||
(clear) | (clear) | ||
(colour | (colour (vector 0.5 0.5 0.5)) | ||
(define ( | (define (render) | ||
(tree 8)) | |||
(engine-callback (render)) | |||
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))