;;; 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)
  (bgcolor "#ff69ff")
  (color (rgb 0 0 0.9))
  (begin_fill)
  (speed 5)
  (right 30)
  (circle 100 30)
  (left 140)
  (circle 100 30)
  (forward 80)
  (right 90)
  (forward 70)
  (left 90)
  (circle 100 180)
  (left 90)
  (forward 70)
  (right 90)
  (forward 70)
  (right 30)
  (circle 100 30)
  (left 140)
  (circle 100 30)
  (right 90)
  (forward 50)
  (end_fill)
  
  (penup)
  
  (left 110)
  (forward 40)
  
  (pendown)
  (color (rgb 0.9 0 0))
  (begin_fill)
  (circle 6)
  (end_fill)
  (left 60)
  (forward 30)
  
  (begin_fill)
  (circle 6)
  (end_fill)
  (penup)
  (right 70)
  (forward 15)
  (pendown)
  (right 50)
  (begin_fill)
  (circle -20 120)
  (right 110)
  (forward 35)
  (end_fill)
  ; (circ 222)
  ; (circ 344)
  (exitonclick))

; (define (circ r)
    ; (print r)
    ; (cond 
        ; ;((= r 107) nil)
        ; ((< r 5) (circle (* r 30)))
        ; ((> r 1000) (circ (remainder r 400)))
        ; ((even? r) 
            ; (begin 
                ; (color (rgb (/ (remainder (* r 27.8181) 32) 32) (/(remainder (* r 314.159) 32) 32) (/ (remainder (/ r 113.003145) 32) 32)))
                
                ; (forward (/ r 40))
                ; (right (/ r 8))
                ; (begin_fill)
                ; (circle (/ r 20))
                ; (end_fill)
                ; (circ (/ r 2))
                ; (begin_fill)
                ; (left (/ r 3))
                ; (circle (/ r 10))
                ; (end_fill))
                ; )
        ; (else 
            ; (begin 
                ; (left (/ r 2))
                ; (forward (/ r 20))
                ; (circ (+ (* r 3) 1))
            ; )
         ; )
    ; )
; )
         
         
         
; (define (spacefill theta r)
    ; 5
; ) 
; ; (define (is_in_head x y)
    ; ; (if qwewqeq
    ; ; true 
    ; ; false
; ; Please leave this last line alone.  You may add additional procedures above
; ; this line.
(draw)