sicp-ex-2.52


 ;; a 
 (define wave 
   (segments->painter (list 
                       ;; ... 
                       (make-segment (make-vect 0.44 0.7) (make-vect 0.51 0.7))))) 
  
 ;; b 
 (define (corner-split painter n) 
   (if (= n 0) 
       painter 
       (beside (below painter (up-split painter (- n 1))) 
               (below (right-split painter (- n 1)) (corner-split painter (- n 1)))))) 
  
 ;; c 
 (define (square-limit painter n) 
   (let ((combine4 (square-of-four flip-vert rotate180 
                                   identity flip-horiz))) 
     (combine4 (corner-split painter n)))) 

<< Previous exercise (2.51) | Index | Next exercise (2.53) >>