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