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