PasteRack.org
Paste # 75100
2014-09-02 14:45:20

Forked from paste # 13053.

Fork as a new paste.

Paste viewed 3 times.


Embed:

Random colors and width edges

  1. #lang racket
  2.  
  3. (require pict
  4.          pict/tree-layout
  5.          racket/draw)
  6.  
  7. (define color-names (send the-color-database get-names))
  8. (define (random-color)
  9.   (list-ref color-names (random (length color-names))))
  10.  
  11. (define (complete d)
  12.     (cond
  13.       [(zero? d) #f]
  14.       [else (define s (complete (- d 1)))
  15.             (define s* (and s (tree-edge s
  16.                                          #:edge-color (random-color))))
  17.             (tree-layout s* s*)]))
  18.  
  19. (linewidth 3 (hv-alternating (complete 8)))
  20. (linewidth 3 (naive-layered (complete 4)))
  21. (linewidth 3 (binary-tidier (complete 6)))

=>