;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Art
;;;
;;; Description:
;;;    Tree Recursion's Hard
;;;    Stanford's not the real reason
;;;    People Fear the Tree

(define (draw)
    (define (draw_tree x y layers) ; Draws a tree with the top at the coordinates (x,y) with layers
        (define (draw_layer x y layers)
            (color "dark green")
            (penup)
            (setposition x y)(begin_fill)
            (right 50) (forward (- 80 (* 5 layers)))
            (left 100) (back (- 80 (* 5 layers)))
            (left 40) (forward (- 124 (* 8 layers)))
            (right 90)(end_fill)
            (draw_tree (- x (- 16 (* 2 layers))) (- y (- 30 (* 2 layers))) (- layers 1))
        )
        (define (draw_trunk x y)
            (color "brown")
            (penup)(setposition (+ x 60) (+ y 28))(begin_fill)
            (left 180)
            (forward 50)
            (left 90) (forward 30)
            (left 90) (forward 50)
            (left 90) (forward 30)
            (end_fill)(right 90)
        )
        (if (= layers 0) (draw_trunk x y)
            (draw_layer x y layers)
        )
    )

(draw_tree -386 274 4)
(draw_tree -65 168 4)
(draw_tree 4 75 6)
(draw_tree -260 2 5)
(draw_tree 295 -38 3)
(draw_tree -45 -69 6)
(draw_tree 103 -92 2)
(draw_tree -124 -154 5)



(exitonclick))

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