-(define-module (dungeon-master geom point)
- #:use-module (srfi srfi-9)
- #:export (make-point
- point?
- point-x
- point-y))
-
-(define-record-type <point>
- (make-point x y)
- point?
- (x point-x)
- (y point-y))
-
-(define (points-distance p1 p2)
- (abs
- (sqrt (+ (expt (- (point-x p1) (point-x p2)) 2)
- (expt (- (point-y p1) (point-y p2)) 2)))))