0. #lang racket/base  ; A picture
1. (require racket/draw racket/class pict)
2. ; christmas tree x coords
3. (define side (list (cons 0 0) (cons 1 1) (cons 2 2)
4.                    (cons 1 2) (cons 2 3) (cons 3 4)
5.                    (cons 2 4) (cons 3 5) (cons 4 6)
6.                    (cons 3 6) (cons 4 7) (cons 5 8)
7.                    (cons 0 8)
8.                    (cons -5 8) (cons -4 7) (cons -3 6)
9.                    (cons -4 6) (cons -3 5) (cons -2 4)
10.                    (cons -3 4) (cons -2 3) (cons -1 2)
11.                    (cons -2 2) (cons -1 1) (cons 0 0)))
12.  
13. (define bigside (map (λ (c) (cons (+ 50 (* 10 (car c))) (* 10 (cdr c)))) side))
14.  
15. (define tt (dc (λ (dc dx dy)
16.  
17.       ;; prepare
18.       (define old-brush (send dc get-brush))
19.       (define old-pen (send dc get-pen))
20.  
21.       ;; do the thing
22.       (send dc set-brush (new brush% [color "darkgreen"]))
23.       (send dc set-pen (new pen% [width 3] [color "darkgreen"]))
24.  
25.       (define path (new dc-path%))
26.       (send path move-to 50 0)
27.       (send path lines bigside)
28.       (send path close)
29.       (send dc draw-path path dx dy)
30.  
31.       (send dc set-brush (new brush% [color "brown"]))
32.       (send dc set-pen (new pen% [width 1] [color "brown"]))
33.       (define path2 (new dc-path%))
34.       (send path2 move-to 50 80)
35.       (send path2 lines (list (cons 55 80) (cons 55 100) (cons 45 100) (cons 45 80)))
36.       (send path2 close)
37.  
38.       (send dc draw-path path2 dx dy)
39.  
40.       ;; clean up
41.       (send dc set-brush old-brush)
42.       (send dc set-pen old-pen))
43.     110 110))
44.  
45.  
46. tt
47.  

=>