;;; 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 mid-x (/ (screen_width)  2))
(define mid-y (/ (screen_height)  2))


(define max-iter 20)

(define (frac i b)
  (setposition (* 2 (cos i)) (* 2 (sin i)))
  (end_fill)
  (if (< i max-iter)
        (begin 
        (color (rgb (- 0.5 (/ i max-iter 2)) (abs (sin (/ i 2))) (- 1 (/ i max-iter))))
        (begin_fill)
        (right (* 3 i))
        (forward (* 20 (- max-iter i)))
        (circle (* 2 i) 180)
        (frac (+ i 1) b)
      )
    nil
  ) 
)


(define (plantforest)
  (frac 0 1)
  (frac 0 2)
  (frac 0 3)
  (frac 0 4)
  (frac 0 5)
  
)

(define (draw)
  (speed 10)
  (bgcolor (rgb 0.1 0.1 0.1))
  (plantforest)
  (exitonclick))

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