0. #lang racket
1. (require pict racket/draw)
2. (dc (lambda (dc dx dy)
3.       (define eye-path (new dc-path%))
4.       (send eye-path arc dx dy 50 100 0 pi)
5.       (send eye-path arc dx dy 50 50 pi 0 #:clockwise #t)
6.       (send eye-path close)
7.       (send dc draw-path dx dy 50 100))
8.      50 100)

=>

application: procedure does not accept keyword arguments
procedure: arc method in dc-path%
arguments...:
(object:dc-path% ...)
0
0
50
50
3.141592653589793
0
#:clockwise #t