sicp-ex-2.51

[Top Page][Recent Changes][All Pages][Settings][Categories][Wiki Howto]
[Edit][Edit History]

 (define (below painter1 painter2) 
   (let ((split-point (make-vect 0.0 0.5))) 
     (let ((paint-bottom 
            (transform-painter painter1 
                               (make-vect 0.0 0.0) 
                               (make-vect 1.0 0.0) 
                               split-point)) 
           (paint-top 
            (transform-painter painter2 
                               split-point 
                               (make-vect 1.0 0.5) 
                               (make-vect 0.0 1.0)))) 
       (lambda (frame) 
         (paint-bottom frame) 
         (paint-top frame))))) 
  
 (define (below-2 painter1 painter2) 
   (rotate90 (beside (rotate270 painter1) (rotate270 painter2))))

<< Previous exercise (2.50) | Index | Next exercise (2.52) >>

dudrenov

 ;; Exercise 2.51 
  
 (define (below painter1 painter2) 
   (let ((split-point (make-vect 0.0 0.5))) 
     (let ((paint-left 
            (transform-painter painter1 
                               (make-vect 0.0 0.0) 
                               (make-vect 1.0 0.0) 
                               split-point)) 
           (paint-right 
            (transform-painter painter2 
                               split-point 
                               (make-vect 1.0 0.5) 
                               (make-vect 0.0 1.0)))) 
       (lambda (frame) 
         (paint-left frame) 
         (paint-right frame))))) 
  
 ;; See [[sicp-ex-2.50]] for rotate270 
 (define (below painter1 painter2) 
   (rotate270 (beside painter1 painter2))) 
  
 ;;; (define draw-line print)

category-texts