;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Spiraling Center Piece>
;;;
;;; Description:
;"step into my mind
;optical illusion
;peace you will not find



(define (shape magn sides iter div first hole)
  (if (= iter sides)
    nil
    (begin
    (if first
      (if (<(distance) hole)
      (penup)
      (pendown))
    nil)
    (fd magn)
    (left (/ div sides))
    (shape magn sides (+ iter 1) div first hole))
  )
)


(define (fract iter angle scale sides colr size first hole degree)
  (if (= iter 0)
    nil
    (begin
      (color colr)
      (shape (/ size scale) (- sides 2) 0 360 first hole)
      (shape (/ (- size 20) scale) (- sides 1) 0 360 first hole)
      (shape (/ (- size 40) scale) sides 0 360 first hole)
      (seth (+ angle 10))
      (fract (- iter 1) (+ angle degree) scale sides colr size first hole degree)

      )
  )
)


(define (draw)
    (bgcolor "black")
    (speed 20)
    (fract 40 0 1 7 "white" 350 #f 150 10)
    (fract 200 4 1 10 "red" 280 #t 350 5)
    (fract 200 4 1 10 "yellow" 200 #t 300 5)
    (fract 250 4 1 10 "light green" 170 #t 250 3)
    (fract 250 6 1 10 "light blue" 130 #t 200 3)
    (fract 300 6 1 10 "indigo" 120 #t 150 1)
    (fract 300 6 1 10 "violet" 90 #t 100 1)


    (exitonclick))

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