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

=>

'(       )