;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Your title here>
;;;
;;; Description:
;;;   <It's your masterpiece.
;;;    Use these three lines to describe
;;;    its inner meaning.>

(define (draw)
  ; YOUR CODE HERE

(bgcolor "black")

(define (spiral r spacing forw counter clr percent)
  (cond ((= counter (/ percent spacing))) (else

    (color clr)

    (circle r)
    (right spacing)
    (forward forw)
    (spiral r spacing forw (+ counter 1) clr percent)
              )


    )
  )



(define (new_tree length angle num_trees divide)

(cond ((= num_trees 0))


(else



(left angle)
(forward length)
(new_tree length (/ angle divide)(- num_trees 1) divide)
(backward length)
(right angle)
(new_tree length (/ (- angle) divide)(- num_trees 1) divide)

  )




  )

)

(define (spiral_tree spacing forw counter percent clr len angle num divide)

(cond ((= counter (/ percent spacing))) (else
  (color clr)
  (new_tree len angle num divide)

  (right spacing)
  (forward forw)

  (spiral_tree spacing forw (+ counter 1) percent clr len angle num divide)


))
)





;(new_tree 50 10 8)
(penup)
(setposition -170  0)
(pendown)

(spiral 90 2 5 0 "blue" 90)
(spiral 90 2 5 0 "yellow" 180)
(spiral 90 2 5 0 "blue" 90)


(penup)
(setposition -55 0)
(pendown)

(spiral_tree 5 3 0 180 "yellow"  35 20 5 1.02)
(spiral_tree 5 3 0 180 "blue"  35 20 5 1.02)



(penup)
(setposition -430 13)

(pendown)
(spiral_tree 5 35 0 175 "blue" 35 20 5 1.02)
(spiral_tree 5 35 0 180 "yellow" 35 20 5 1.02)
(spiral_tree 5 35 0 5 "blue" 35 20 5 1.02)







  (exitonclick))

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