0. #lang racket
1. (require pict racket/draw)
2. (dc (lambda (dc dx dy)
3.       (define old-brush (send dc get-brush))
4.       (send dc set-brush
5.         (send the-brush-list find-or-create-brush
6.                               "black"
7.                           'solid))
8.       (define eye-path (new dc-path%))
9.       (send eye-path arc dx dy 50 100 0 pi)
10.       (send eye-path arc dx (+ dy 50) 50 50 pi 0 #f)
11.       (send eye-path close)
12.       (send dc draw-path eye-path dx dy)
13.       (send dc set-brush old-brush))
14.      50 100)

=>