2.51-below.rkt

#lang racket

(require sicp-pict)

(define (beside painter1 painter2)
	(let ((split-point (make-vect 0.5 0.0)))
		(let ((paint-left
				(transform-painter
					painter1
					(make-vect 0.0 0.0)
					split-point
					(make-vect 0.0 1.0)))
			  (paint-right
				(transform-painter
					painter2
					split-point
					(make-vect 1.0 0.0)
					(make-vect 0.5 1.0))))
			(lambda (frame)
				(paint-left frame)
				(paint-right frame)))))

(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)))))

(paint (beside einstein einstein))
(paint (below einstein einstein))