;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Your title here>
;;;
;;; Description:
;;;   <It's RGB. 
;;;    The creator of the colorful cyber world 
;;;    Feel the magic of light and color>


(define (circle_r r) 
  (circle r))

(define (rotate_draw k m c_olor)
  (cond 
    ((= 0 k) nil)
    (else (begin (color c_olor)(circle_r k) (rotate_draw (- k m) m c_olor)  ))
  )
)

(define (repeat n func)
(if (> n 1)
    (begin (func) (repeat (- n 1) func))
    (func)))

(define (square len c)
(color c)
(speed 0)
(lt 2)
(repeat 72
  (lambda () (fd len) (rt 72) (fd len) (rt 72) (fd len) (rt 72) (fd len) (rt 72) (fd len) (rt 78))))


(define (draw)
(bgcolor "black")
(pendown)
(rotate_draw 150 1.5 "red") 
(penup)
(lt 120)
(pendown)
(rotate_draw 150 1.5 "blue") 
(lt 120)
(pendown)
(rotate_draw 150  1.5 "green") 
  
  (square 200 "#33CAFF")
  (rotate_draw 150 3 "yellow") 
  (lt 120)
  (pendown)
  (rotate_draw 150  3 "orange") 
    (lt 120)
    (pendown)
    (rotate_draw 150  3 "cyan")
   ()
(exitonclick))

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