(define/contract (cat mode)

(-> (or/c 'mad 'happy 'thinking) image?)

(define face-width 36)

(define face-height 22)

(define face-color

(cond

[(eq? mode 'mad) 'pink]

[else 'lightgray]))

(define left-ear

(regular-polygon 3 8 'solid 'black (/ pi -3)))

(define right-ear

(regular-polygon 3 8 'solid 'black 0))

(define ear-x-offset 14)

(define ear-y-offset 9)

(define eye (overlay (ellipse 12 8 'solid 'black)

(ellipse 6 4 'solid 'limegreen)))

(define eye-x-offset 8)

(define eye-y-offset 3)

(define nose

(regular-polygon 3 5 'solid 'black (/ pi 2)))

(define mouth-happy

(overlay (ellipse 8 8 'solid face-color)

(ellipse 8 8 'outline 'black)

(move-pinhole

(rectangle 10 5 'solid face-color)

0

4)))

(define mouth-no-expression

(overlay (ellipse 8 8 'solid face-color)

(ellipse 8 8 'outline face-color)

(rectangle 10 5 'solid face-color)))

(define mouth

(cond

[(eq? mode 'happy) mouth-happy]

[else mouth-no-expression]))

(define mouth-x-offset 4)

(define mouth-y-offset -5)

(define (whiskers img)

(add-line

(add-line

(add-line

(add-line

(add-line

(add-line

img

6 4 30 12 'black)

6 4 30 4 'black)

6 4 30 -4 'black)

-6 4 -30 12 'black)

-6 4 -30 4 'black)

-6 4 -30 -4 'black))

(whiskers

(overlay

(move-pinhole left-ear (- ear-x-offset) ear-y-offset)

(move-pinhole right-ear (- ear-x-offset 1) ear-y-offset)

(ellipse (+ face-width 4) (+ face-height 4) 'solid 'black)

(ellipse face-width face-height 'solid face-color)

(move-pinhole mouth (- mouth-x-offset) mouth-y-offset)

(move-pinhole mouth mouth-x-offset mouth-y-offset)

(move-pinhole eye (- eye-x-offset) eye-y-offset)

(move-pinhole eye eye-x-offset eye-y-offset)

(move-pinhole nose -1 -4))))

(define thinking-cat (cat 'thinking))

(define happy-cat (cat 'happy))

(define mad-cat (cat 'mad))