;;Pre-note
;;;;This Drawing Is Supposed to Be Kyle in SouthPark...So...Yeah
;;create head
(define (draw-head p)
  (draw-solid-disk p 100 'BlanchedAlmond))
;;create hat
(define (draw-hat p)
  (and (draw-solid-rect p 160 60 'DarkBlue)
       (draw-solid-rect (make-posn (+ 20 (posn-x p)) (+ 40 (posn-y p))) 120 20 'DarkRed)))
;;create eyes
(define (draw-eyes p)
  (and (draw-solid-disk p 25 'white)
       (draw-circle p 25 'black)
       (draw-solid-disk (make-posn (+ (posn-x p) 5) (- (posn-y p) 2)) 5 'black)
       (draw-solid-disk (make-posn (+ (posn-x p) 50) (posn-y p)) 25 'white)
       (draw-circle (make-posn (+ (posn-x p) 50) (posn-y p)) 25 'black)
       (draw-solid-disk (make-posn (+ (posn-x p) 45) (- (posn-y p) 2)) 5 'black)))
;;create mouth
(define (draw-mouth p)
  (draw-solid-disk p 10 'black))
;;create eyes-angry
(define (draw-eyes-angry p0 p)
  (and (draw-solid-line p0 p 'black)
       (draw-solid-line (make-posn (posn-x p0) (posn-y p)) (make-posn (posn-x p) (posn-y p0)) 'black)))
;;create mouth-angry
(define (draw-mouth-angry p0 p)
  (draw-solid-line p0 p 'black))
;;create clear
(define (clear p)
  (draw-solid-rect p (posn-x p) (posn-y p) 'white))

;;create Kyle-Face 'Normal 'Angry
(define (Kyle-Face x)
  (cond
    [(symbol=? x 'Normal)
     (and (clear (make-posn 400 400))
          (draw-head (make-posn 200 200))
          (draw-hat (make-posn 120 80))
          (draw-eyes (make-posn 175 175))
          (draw-mouth (make-posn 200 250)))]
    [(symbol=? x 'Angry)
     (and (clear (make-posn 400 400))
          (draw-head (make-posn 200 200))
          (draw-hat (make-posn 120 80))
          (draw-eyes-angry (make-posn 140 150) (make-posn 260 200))
          (draw-mouth-angry (make-posn 175 250) (make-posn 225 250)))]))

;(start 400 400)

;(Kyle-Face 'Normal)

;(Kyle-Face 'Angry)