1 (define (right-split painter n)
4 (let ((smaller (right-split painter (- n 1))))
5 (beside painter (below smaller smaller)))))
6 (define (corner-split painter n)
9 (let ((up (up-split painter (- n 1)))
10 (right (right-split painter (- n 1))))
11 (let ((top-left (beside up up))
12 (bottom-right (below right right))
13 (corner (corner-split painter (- n 1))))
14 (beside (below painter top-left)
15 (below bottom-right corner))))))
16 (define (square-limit painter n)
17 (let ((quarter (corner-split painter n)))
18 (let ((half (beside (flip-horiz quarter) quarter)))
19 (below (flip-vert half) half))))
20 (define (up-split painter n)
23 (let ((up (up-split painter (- n 1))))
24 (below painter (beside up up)))))
25 (define (square-of-four tl tr bl br)
27 (let ((top (beside (tl painter) (tr painter)))
28 (bottom (beside (bl painter) (br painter))))
31 (define (flipped-pairs painter)
32 (let ((combine4 (square-of-four identity flip-vert
35 (define (square-limit painter n)
36 (let ((combine4 (square-of-four flip-horiz identity
37 rotate180 flip-vert)))
38 (combine4 (corner-split painter n))))
40 (define (split op1 op2)
41 (define (split-n painter n)
44 (let ((split-painter (split-n painter (- n 1))))
45 (op1 painter (op2 split-painter split-painter)))))
48 (define right-split (split beside below))
49 (define up-split (split below beside))