;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Fall Trees
;;;
;;; Description:
;;;   <Is it Tree of Life?
;;;    Or is it Circle of Life?
;;;    Hope it doesn't burn.>

(define (draw)
    (bgcolor "black")
    (speed 1000)
    (color "#8b4513")
    (square-loop 20 275 18)
    (color "#a0522d")
    (square-loop 24 135 15)
    (color "#cd6839")
    (square-loop 36 65 10)
    (color "#f4a460")
    (square-loop 40 30 9)
    (exitonclick))

(define (square-loop n s d)
    (if (> n 0)
        (begin
            (pendown)
            (forward s)
            (left 90)
            (forward s)
            (tree (* (/ s 10) 7))
            (left 90)
            (forward s)
            (left 90)
            (forward s)
            (rt (+ 90 d))
            (square-loop (- n 1) s d))
        (penup)))

(define (tree r)
  (if (> r 5)
  (begin
    (pendown)
    (forward (/ r 3))
    (left 35)
    (tree (* (/ r 3) 2))
    (right 35)
    (back (/ r 3))
    (forward (/ r 2))
    (right 27)
    (tree (/ r 2))
    (left 27)
    (back (/ r 2))
    )))


; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)