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