dungeon-master/geom/point.scm

   1 (define-module (dungeon-master geom point)
   2   #:use-module (srfi srfi-9)
   3   #:export (make-point
   4             point?
   5             point-x
   6             point-y
   7             points-distance))
   8
   9 (define-record-type <point>
  10   (make-point x y)
  11   point?
  12   (x point-x)
  13   (y point-y))
  14
  15 (define (points-distance p1 p2)
  16   (abs
  17    (sqrt (+ (expt (- (point-x p1) (point-x p2)) 2)
  18             (expt (- (point-y p1) (point-y p2)) 2)))))