;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title:
;;;
;;; Description:
;;;
(define (draw)
(hideturtle)
(penup)
(speed 0)
(bgcolor "white")
(color "#F7D153")
(goto 320 0)
(begin_fill)
(circle 320)
(end_fill)
(color "#FFDC00")
(goto 300 0)
(begin_fill)
(circle 300)
(end_fill)
(color "black")
(goto 160 80)
(begin_fill)
(circle 80)
(end_fill)
(color "black")
(goto -80 80)
(begin_fill)
(circle 80)
(end_fill)
(color "white")
(goto 155 80)
(begin_fill)
(circle 75)
(end_fill)
(color "white")
(goto -85 80)
(begin_fill)
(circle 75)
(end_fill)
(color "black")
(goto 110 80)
(begin_fill)
(circle 30)
(end_fill)
(color "black")
(goto -130 80)
(begin_fill)
(circle 30)
(end_fill)
(color "red")
(goto -200 -50)
(begin_fill)
(pendown)
(right 90)
(forward 400)
(right 90)
(forward 5)
(right 10)
(forward 10)
(right 10)
(forward 15)
(right 10)
(forward 20)
(right 10)
(forward 25)
(right 10)
(forward 30)
(right 10)
(forward 30)
(right 10)
(forward 30)
(right 10)
(forward 30)
(right 10)
(forward 120)
(right 10)
(forward 30)
(right 10)
(forward 30)
(right 10)
(forward 30)
(right 10)
(forward 30)
(right 10)
(forward 25)
(right 10)
(forward 20)
(right 10)
(forward 15)
(right 10)
(forward 0)
(end_fill)
(goto 0 0)
(hideturtle)
(penup)
(speed 0)
(bgcolor "white")
(color "#F7D153")
(goto 320 0)
(begin_fill)
(circle 320)
(end_fill)
(color "#FFDC00")
(goto 300 0)
(begin_fill)
(circle 300)
(end_fill)
(color "black")
(goto 160 80)
(begin_fill)
(circle 80)
(end_fill)
(color "black")
(goto -80 80)
(begin_fill)
(circle 80)
(end_fill)
(color "white")
(goto 155 80)
(begin_fill)
(circle 75)
(end_fill)
(color "white")
(goto -85 80)
(begin_fill)
(circle 75)
(end_fill)
(color "black")
(goto 110 80)
(begin_fill)
(circle 30)
(end_fill)
(color "black")
(goto -130 80)
(begin_fill)
(circle 30)
(end_fill)
(color "red")
(goto -200 -50)
(begin_fill)
(pendown)
(right 90)
(forward 400)
(right 90)
(forward 5)
(right 10)
(forward 10)
(right 10)
(forward 15)
(right 10)
(forward 20)
(right 10)
(forward 25)
(right 10)
(forward 30)
(right 10)
(forward 30)
(right 10)
(forward 30)
(right 10)
(forward 30)
(right 10)
(forward 120)
(right 10)
(forward 30)
(right 10)
(forward 30)
(right 10)
(forward 30)
(right 10)
(forward 30)
(right 10)
(forward 25)
(right 10)
(forward 20)
(right 10)
(forward 15)
(right 10)
(forward 0)
(end_fill)
(exitonclick))
; Please leave this last line alone. You may add additional procedures above
; this line.
(draw)