;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Top 10 Saddest Anime Moments
;;;
;;; Description:
;;;   <Browse meme pages or
;;;    CS homework? I laugh. As
;;;    if I have a choice>
(define (draw)
  (penup)
  (bgcolor "yellow")
  (setposition -200 0)
;;; cheek
  (color "red")
  (pendown)
  (begin_fill)
  (circle 40)
  (end_fill)
  (penup)
;; mouth
  (setposition -80 -30)
  (color "black")
  (pendown)
  (begin_fill)
  (setposition 0 -25)
  (setposition 0 -80)
  (setposition -80 -80)
  (setposition -80 -30)
  (end_fill)
  (setposition -50 -30)
  (color "pink")
  (begin_fill)
  (setposition 0 -25)
  (setposition 0 -80)
  (setposition -80 -80)
  (setposition -80 -70)
  (setposition -50 -30)
  (end_fill)
  (right 90)
  (penup)
;;; cheek
  (setposition 200 -40)
  (color "red")
  (pendown)
  (begin_fill)
  (circle 40)
  (end_fill)
  (penup)
;;; nose
  (setposition -80 50)
  (color "black")
  (pendown)
  (begin_fill)
  (forward 50)
  (setposition -50 40)
  (setposition -80 50)
  (end_fill)
  (penup)
;;; left eye
  (setposition -160 100)
  (pendown)
  (begin_fill)
  (circle 27)
  (end_fill)
  (penup)
;;; right eye
  (setposition 140 100)
  (pendown)
  (begin_fill)
  (circle 27)
  (end_fill)
  (penup)
;;; shine (right)
  (setposition -165 125)
  (color "white")
  (pendown)
  (begin_fill)
  (circle 10)
  (end_fill)
  (penup)
;;; shine (left)
  (setposition 135 125)
  (pendown)
  (begin_fill)
  (circle 10)
  (end_fill)
  (penup)
  (hideturtle)
  (exitonclick))

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