;;; Life in Technicolor
;;; Created by [redacted]


(define (snow-flake-segment levels size)
  (cond
  ((= levels 0) (begin (color (rgb (randint) (randint) (randint))) (fd size)))
  (else
  (begin (snow-flake-segment (- levels 1) size)
  (left 60)
  (snow-flake-segment (- levels 1) size)
  (right 120)
  (snow-flake-segment (- levels 1) size)
  (left 60)
  (snow-flake-segment (- levels 1) size)
  ))))

(define (snowflake levels size)
(cond ((< levels 0) (color (rgb (randint) (randint) (randint) )))
(else
(begin (snow-flake-segment levels size)
(right 120)
(snow-flake-segment levels size)
(right 120)
(snow-flake-segment levels size)
(snowflake (- levels 1) size)))))

(define (repeat fn levels size degrees)
(cond ((= degrees 360) (ht))
(else
(begin (setheading degrees) (fn levels size)
(repeat fn levels size (+ 36 degrees))))))

(define (draw)
(bgcolor "black")
(speed 0)
(repeat snowflake 4 3 0))

(draw)