PasteRack.org
Paste # 83589
2025-12-24 15:21:36

Fork as a new paste.

Paste viewed 36 times.


Embed:

Christmas Tree

  1. #lang racket
  2.  
  3. (require pict pict/tree-layout)
  4.  
  5.  
  6. (define angel-fish (ht-append (angel-wing 20 20 #t)
  7.                               (rotate (standard-fish 40 20 #:color "yellow") (/ pi -2))
  8.                               (angel-wing 20 20 #f)))
  9. (define red-baubel (disk 15 #:color "Red"))
  10. (define green-baubel (disk 15 #:color "Green"))
  11.  
  12.  
  13. (naive-layered (tree-layout #:pict angel-fish
  14.                             (tree-layout #:pict green-baubel
  15.                                          (tree-layout #:pict green-baubel
  16.                                                       (tree-layout #:pict red-baubel
  17.                                                                    (tree-layout #:pict green-baubel)
  18.                                                                    (tree-layout #:pict red-baubel))
  19.                                                       (tree-layout #:pict green-baubel
  20.                                                                    (tree-layout #:pict green-baubel)
  21.                                                                    (tree-layout #:pict red-baubel))))
  22.                             (tree-layout #:pict red-baubel
  23.                                          (tree-layout #:pict red-baubel)
  24.                                          (tree-layout #:pict green-baubel
  25.                                                       (tree-layout #:pict red-baubel
  26.                                                                    (tree-layout #:pict green-baubel)
  27.                                                                    (tree-layout #:pict red-baubel))
  28.                                                       (tree-layout #:pict green-baubel
  29.                                                                    (tree-layout #:pict green-baubel)
  30.                                                                    (tree-layout #:pict red-baubel)))))
  31.  
  32.                #:x-spacing 10
  33.                #:y-spacing 50)

=>

image