;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: After Finals
;;;
;;; Description:
;;;    This is a monster.
;;;    The monster is happy.
;;;    You will be too (after the finals).

(define (sphere r c px py adj adjx adjy adjr mins)
  (penup) (setposition px py) (pendown)
  (color (rgb c c c)) (begin_fill) (circle r) (end_fill)
  (define newc (+ c adj))
  (if (> r mins) (sphere (- r adjr) newc (- px adjx) (- py adjy) adj adjx adjy adjr mins))
)

(define (teeth r cx cy dir r_big l_dir top adjx adjy)
  (sphere r 0 (+ cx r) cy (/ 1 r) adjx adjy 1 1)
  (define n_dir (acos (* 0.875 (/ r r_big))))
  (define dir (+ dir (- 3.14159265 n_dir l_dir) ))
  (if (> r 5) (teeth (* 0.75 r) (+ cx (* top 1.75 r (cos dir))) (+ cy (* 1.75 r (sin dir))) dir r_big n_dir top adjx adjy))
)

(define (draw)
  ; YOUR CODE HERE
  (bgcolor "black")
  (speed 0)
  ;NOSE
  (sphere 70 0 100 20 0.01 1 -1.5 1 20)
  (sphere 40 0 70 20 0 0.75 -1.5 0.75 20)
  (sphere 35 .15 65 15 0.01 1 -1.5 1 5)
  (sphere 10 .5 40 75 -0.005 .5 1 .5 5)
  ;EYES
  (sphere 60 0 -20 200 0.0125 1 0 1 1)
  (sphere 60 0 220 200 0.0125 1 0 1 1)
  (sphere 20 0 -70 200 0 0 0 1 20)
  (sphere 20 0 190 200 0 0 0 1 20)
  ;MOUTH
  (teeth 30 30 -200 0 300 1.57079632679 -1 1 -2)
  (teeth 30 30 -200 0 300 1.57079632679 1 1 -2)
  (teeth 30 0 -90 0 300 1.57079632679 -1 1 2)
  (teeth 30 60 -90 0 300 1.57079632679 1 1 2)
  (hideturtle)
  (exitonclick))

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