Fluxus

From Toplap
Jump to: navigation, search

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))