juletre.rkt

#lang racket
(require pict)
(require pict/tree-layout)

(define star (scale (bitmap .) 0.3))

(define (green-edge child) (tree-edge #:edge-width 3 #:edge-color "green" child))

(define (ball color) (disk #:color color 20))

(define (tree-node [child #f]) (tree-layout #:pict (colorball) child))

(define (tree-root [child #f]) (tree-layout #:pict star child))

(define greenball (ball "Green"))

(define (colorball)
    (match (colornum)
      [1 (ball "Red")]
      [2 (ball "Yellow")]
      [3 (ball "Purple")]
      [4 (ball "Blue")]))

(define (colornum) (random 1 4))

(naive-layered (tree-layout #:pict star
                  (green-edge
                             (tree-layout #:pict (colorball)
                              (green-edge
                               (tree-layout #:pict (colorball) (green-edge (tree-layout #:pict (colorball))) (green-edge (tree-layout #:pict (colorball)))))
                              (green-edge
                               (tree-layout #:pict (colorball) (green-edge (tree-layout #:pict (colorball)))))))
                  (green-edge (tree-layout #:pict (colorball)
                               (green-edge
                               (tree-layout #:pict (colorball) (green-edge (tree-layout #:pict (colorball)))))
                              (green-edge
                               (tree-layout #:pict (colorball) (green-edge (tree-layout #:pict (colorball))) (green-edge (tree-layout #:pict (colorball)))))))))