1 665c255d 2023-08-04 jrmu (define (add-vect u v)
 2 665c255d 2023-08-04 jrmu   (make-vect
 3 665c255d 2023-08-04 jrmu    (+ (xcor-vect u) (xcor-vect v))
 4 665c255d 2023-08-04 jrmu    (+ (ycor-vect u) (ycor-vect v))))
 5 665c255d 2023-08-04 jrmu (define (sub-vect u v)
 6 665c255d 2023-08-04 jrmu   (make-vect
 7 665c255d 2023-08-04 jrmu    (- (xcor-vect u) (xcor-vect v))
 8 665c255d 2023-08-04 jrmu    (- (ycor-vect u) (ycor-vect v))))
 9 665c255d 2023-08-04 jrmu (define (scale-vect s v)
10 665c255d 2023-08-04 jrmu   (make-vect (* s (xcor-vect v))
11 665c255d 2023-08-04 jrmu 	     (* s (ycor-vect v))))
12 665c255d 2023-08-04 jrmu 
13 665c255d 2023-08-04 jrmu