0. #lang racket
1. (require pict racket/draw)
2.  
3. (define ((pt->xform-obj width height angle) p)
4.   (match p
5.          [(list x y)
6.           (define d (sqrt (+ (* x x) (* y y))))
7.           (define a (atan y x))
8.           (make-object point%
9.                        (* d width 1/2 (cos (+ a angle)))
10.                        (* d height 1/2 (- (sin (+ a angle)))))]))
11.  
12. ;; Draw an isoceles-triangle with base |width| and height |height|
13. ;; rotated |angle| radians.
14. (define (isoceles-triangle width height [angle 0])
15.   (dc
16.     (lambda (dc x y)
17.       (let ([b (send dc get-brush)]
18.             [p (send dc get-pen)])
19.         (send dc set-pen (send the-pen-list
20.                                find-or-create-pen
21.                                (send p get-color)
22.                                0
23.                                'solid))
24.         (send dc set-brush (send the-brush-list
25.                                  find-or-create-brush
26.                                  (send p get-color)
27.                                  'solid))
28.         (send dc draw-polygon
29.               (map (pt->xform-obj width height angle)
30.                    `((0 1)
31.                      (-1/2 0)
32.                      (1/2 0)))
33.               (+ x (/ width 2)) (+ y height))
34.         (send dc set-brush b)
35.         (send dc set-pen p)))
36.     width height))
37.  
38. ;; nose
39. (isoceles-triangle 50 50 3.14)
40. ;; left ear
41. (isoceles-triangle 80 140 (* 3.14 1/3))
42. ;; right ear
43. (isoceles-triangle 80 140 (* -3.14 1/3))

=>