0. #lang racket
1.  
2. (require 2htdp/image
3.          lang/posn)
4.  
5. (define COLOR-ON "white")
6. (define COLOR-OFF "black")
7.  
8. (define hex-on (regular-polygon 60 6 "solid" COLOR-ON))
9. (define hex-off (regular-polygon 60 6 "solid" COLOR-OFF))
10.  
11. (define half-on (place-image/align (rotate 30 hex-on)
12.                    0 60 "center" "center"
13.                    (rectangle 52 120 "outline" "transparent")))
14.  
15. (define half-off (place-image/align (rotate 30 hex-off)
16.                    0 60 "center" "center"
17.                    (rectangle 52 120 "outline" "transparent")))
18.  
19. (define split-hex (beside (rotate 180 half-on) half-off))
20.  
21. (define hex-options
22.   (append
23.    (list (rotate 90 hex-on))
24.    (for/list ([i (in-range 6)])
25.     (rotate (* i 60) split-hex))))
26.  
27. (define (make-row n)
28.   (for/fold ([scene (rectangle (* 104 n) 120 "outline" "transparent")])
29.             ([i (in-range n)])
30.     (place-image (list-ref hex-options (random (length hex-options)))
31.                  (+ (* i 104) (/ 104 2)) 60
32.                  scene)))
33.  
34. (define (make-rows w n)
35.   (for/list ([i (in-range n)])
36.     (make-row w)))
37.  
38.  
39. (define (scene-width rows)
40.   (- (image-width (car rows)) (image-width split-hex)))
41.  
42. (define (scene-height rows)
43.   (* (length rows) (/ (image-height split-hex) 2)))
44.  
45. (define (stack-rows rows)
46.   (define-values (sum image)
47.     (for/fold ([sum 0]
48.              [scene (rectangle (scene-width rows)
49.                                (scene-height rows)
50.                                "outline" "transparent")])
51.             ([row rows])
52.     (values
53.      (add1 sum)
54.      (place-image row
55.                   (- (/ (image-width scene) 2) (if (even? sum) 0 (image-width half-on)))
56.                   (* sum (/ (image-height split-hex) 1.33333))
57.                   scene))))
58.   image)
59.  
60.  
61. (stack-rows (make-rows 10 20))

=>