; Create the image
(define wicked-neat (image-new 420 380))
(image-show wicked-neat)

; Create the pink ellipse that will be a wicked neat face.
(image-select-ellipse! wicked-neat REPLACE 60 20 290 340)
(context-set-fgcolor! "pink")
(image-fill-selection! wicked-neat)
; Create Wicked Neat Hair
(image-select-ellipse! wicked-neat REPLACE 45 15 310 250)
(image-select-ellipse! wicked-neat SUBTRACT 70 45 265 235)
(context-set-fgcolor! "black")
(image-fill-selection! wicked-neat)

; Create the left eye
(image-select-ellipse! wicked-neat REPLACE 110 120 75 100)
(context-set-fgcolor! "white")
(image-fill-selection! wicked-neat)
; Create the left pupil
(image-select-ellipse! wicked-neat REPLACE 160 175 20 20)
(context-set-fgcolor! "black")
(image-fill-selection! wicked-neat)
; Create the left eyebrow
(context-set-brush! "Circle (09)")
(image-select-nothing! wicked-neat)
(image-draw-line! wicked-neat 180 105 105 130)
; Create the left lens
(image-select-rectangle! wicked-neat REPLACE 100 150 90 55)
(context-set-fgcolor! "black")
(context-set-brush! "Circle (05)")
(image-stroke-selection! wicked-neat)

; Create the right eye
(image-select-ellipse! wicked-neat REPLACE 225 120 75 100)
(context-set-fgcolor! "white")
(image-fill-selection! wicked-neat)
; Create the right pupil
(image-select-ellipse! wicked-neat REPLACE 230 175 20 20)
(context-set-fgcolor! "black")
(image-fill-selection! wicked-neat)
; Create the right eyebrow
(context-set-brush! "Circle (09)")
(image-select-nothing! wicked-neat)
(image-draw-line! wicked-neat 230 105 305 130)
; Create the right lens
(image-select-rectangle! wicked-neat REPLACE 220 150 90 55)
(context-set-fgcolor! "black")
(context-set-brush! "Circle (05)")
(image-stroke-selection! wicked-neat)

; Create the line segment that will be the bridge between the lenses
(image-select-nothing! wicked-neat)
(image-draw-line! wicked-neat 220 173 192 173)

; Create Wicked Neat Facial Wrinkles
;forehead
(image-select-nothing! wicked-neat)
(context-set-fgcolor! "grey")
(context-set-brush! "Circle (01)")
(image-draw-line! wicked-neat 175 90 230 90)
(image-draw-line! wicked-neat 175 80 230 80)
;Smile lines
(image-select-ellipse! wicked-neat REPLACE 115 180 170 175)
(image-select-rectangle! wicked-neat INTERSECT 100 250 350 97)
(context-set-fgcolor! "grey")
(context-set-brush! "Circle (01)")
(image-stroke-selection! wicked-neat)
(context-set-fgcolor! "pink")
(context-set-brush! "Circle (05)")
(image-draw-line! wicked-neat 100 250 290 250)


;Draw Wicked Neat Mouth
(image-select-nothing! wicked-neat)
(image-select-polygon! wicked-neat 
                      REPLACE 
                      (position-new 125 275)
                      (position-new 275 275)
                      (position-new 185 340)
                      )
(context-set-fgcolor! "black")
(image-fill-selection! wicked-neat)
(image-select-rectangle! wicked-neat REPLACE 150 277 15 15)
(context-set-fgcolor! "white")
(image-fill-selection! wicked-neat)
(image-select-rectangle! wicked-neat REPLACE 170 277 15 15)
(context-set-fgcolor! "white")
(image-fill-selection! wicked-neat)
(image-select-rectangle! wicked-neat REPLACE 190 277 15 15)
(context-set-fgcolor! "white")
(image-fill-selection! wicked-neat)
(image-select-rectangle! wicked-neat REPLACE 210 277 15 15)
(context-set-fgcolor! "white")
(image-fill-selection! wicked-neat)
(image-select-rectangle! wicked-neat REPLACE 230 277 15 15)
(context-set-fgcolor! "white")
(image-fill-selection! wicked-neat)