1 (define-module (dungeon-master geom point)
2 #:use-module (srfi srfi-9)
11 (define-record-type <point>
17 (define (points-distance p1 p2)
19 (sqrt (+ (expt (- (point-x p1) (point-x p2)) 2)
20 (expt (- (point-y p1) (point-y p2)) 2)))))
22 (define (sum-points . points-to-sum)
23 (let loop ((points points-to-sum)
30 (+ x (point-x (car points)))
31 (+ y (point-y (car points))))))))
33 (define (scale-point point scale)
35 (* (point-x point) scale)
36 (* (point-y point) scale)))