1 (defun rect-perimeter (rect)
2   (+ (* 2 (rect-width rect))
3      (* 2 (rect-height rect))))
4 (defun rect-area (rect)
5   (* (rect-width rect)
6      (rect-height rect)))
7 
8 
9 (defun make-rect (p1 p2)
10   (cons p1 p2))
11 (defun rect-width (rect)
12   (abs (- (x-point (car rect))
13 	  (x-point (cdr rect)))))
14 (defun rect-height (rect)
15   (abs (- (y-point (car rect))
16 	  (y-point (cdr rect)))))
17 (defun make-rect (p1 p2)
18   (make-segment p1 p2))
19 (defun rect-width (rect)
20   (abs (- (x-point (start-segment rect))
21 	  (x-point (end-segment rect)))))
22 (defun rect-height (rect)
23   (abs (- (y-point (start-segment rect))
24 	  (y-point (end-segment rect)))))