1 665c255d 2023-08-04 jrmu (define wave2 (besides wave (flip-vert wave)))
 2 665c255d 2023-08-04 jrmu (define wave4 (below wave2 wave2))
 3 665c255d 2023-08-04 jrmu (define (flipped-pairs painter)
 4 665c255d 2023-08-04 jrmu   (let ((painter2 (besides painter (flip-vert painter))))
 5 665c255d 2023-08-04 jrmu     (below painter2 painter2)))
 6 665c255d 2023-08-04 jrmu (define wave4 (flipped-pairs wave))
 7 665c255d 2023-08-04 jrmu (define (right-split painter n)
 8 665c255d 2023-08-04 jrmu   (if (= n 0)
 9 665c255d 2023-08-04 jrmu       painter
10 665c255d 2023-08-04 jrmu       (let ((smaller (right-split painter (- n 1))))
11 665c255d 2023-08-04 jrmu 	(beside painter (below smaller smaller)))))
12 665c255d 2023-08-04 jrmu 
13 665c255d 2023-08-04 jrmu (define (corner-split painter n)
14 665c255d 2023-08-04 jrmu   (if (= n 0)
15 665c255d 2023-08-04 jrmu       painter
16 665c255d 2023-08-04 jrmu       (let ((up (up-split painter (- n 1)))
17 665c255d 2023-08-04 jrmu 	    (right (right-split painter (- n 1))))
18 665c255d 2023-08-04 jrmu 	(let ((top-left (beside up up))
19 665c255d 2023-08-04 jrmu 	      (bottom-right (below right right))
20 665c255d 2023-08-04 jrmu 	      (corner (corner-split painter (- n 1))))
21 665c255d 2023-08-04 jrmu 	  (beside (below painter top-left)
22 665c255d 2023-08-04 jrmu 		  (below bottom-right corner))))))
23 665c255d 2023-08-04 jrmu 
24 665c255d 2023-08-04 jrmu (define (square-limit painter n)
25 665c255d 2023-08-04 jrmu   (let ((quarter (corner-split painter n)))
26 665c255d 2023-08-04 jrmu     (let ((half (beside (flip-horiz quarter) quarter)))
27 665c255d 2023-08-04 jrmu       (below (flip-vert half) half))))
28 665c255d 2023-08-04 jrmu (define (up-split painter n)
29 665c255d 2023-08-04 jrmu   (if (= n 0)
30 665c255d 2023-08-04 jrmu       painter
31 665c255d 2023-08-04 jrmu       (let ((up (up-split painter (- n 1))))
32 665c255d 2023-08-04 jrmu 	(below painter (beside up up)))))