0. #lang racket
1. (require pict racket/draw)
2. (define (happy-eyes width height [boldness 0.1])
3.   ;; More boldness = less height for the smaller ellipse.
4.   (define height-percent (- 1 boldness))
5.   (unless (< 0 boldness 1)
6.           (error 'happy-eyes "Boldness must be between 0 and 1 exclusive"))
7.  (dc (lambda (dc dx dy)
8.       (define old-brush (send dc get-brush))
9.       (send dc set-brush
10.         (send the-brush-list find-or-create-brush
11.                               "black"
12.                           'solid))
13.       (define eye-path (new dc-path%))
14.         (send eye-path arc 0 0 width height 0 pi)
15.       (send eye-path arc 0 (* height boldness)
16.             width (* height height-percent) pi 0 #f)
17.       (send eye-path close)
18.       (send dc draw-path eye-path dx dy)
19.       (send dc set-brush old-brush))
20.      width height))
21.  
22. (for/list ([boldness (in-range 0.1 1 0.1)])
23.           (cc-superimpose (rectangle 200 200) (happy-eyes 50 80 boldness)))

=>

'(         )