0. #lang racket
1. (require pict racket/draw)
2. (define (happy-eyes width height [boldness 0.1])
3.  (dc (lambda (dc dx dy)
4.       (define old-brush (send dc get-brush))
5.       (send dc set-brush
6.         (send the-brush-list find-or-create-brush
7.                               "black"
8.                           'solid))
9.       (define eye-path (new dc-path%))
10.       (send eye-path arc dx dy width height 0 pi)
11.       (send eye-path arc dx (+ dy (* height boldness))
12.             width (* height boldness) pi 0 #f)
13.       (send eye-path close)
14.       (send dc draw-path eye-path dx dy)
15.       (send dc set-brush old-brush))
16.      width height))
17.  
18. (for/list ([boldness (in-range 0.1 0.71 0.1)])
19.           (happy-eyes 50 80 boldness))

=>

'(      )