mods/default/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
   8 (define-record-type <point>
   9   (make-point x y)
  10   point?
  11   (x point-x)
  12   (y point-y))
  13
  14 (define (points-distance p1 p2)
  15   (abs
  16    (sqrt (+ (expt (- (point-x p1) (point-x p2)) 2)
  17             (expt (- (point-y p1) (point-y p2)) 2)))))