X-Git-Url: https://git.jsancho.org/?p=dungeon-master.git;a=blobdiff_plain;f=mods%2Fdefault%2Fpoint.scm;fp=mods%2Fdefault%2Fpoint.scm;h=6ce8d6457d411e9b7c2cba91a45815da0ae4d44d;hp=0000000000000000000000000000000000000000;hb=38c209feff157e50f85acf162b5d47419b5b4631;hpb=fbd191437dc6e137521891bcddf0e75731f026fe

diff --git a/mods/default/point.scm b/mods/default/point.scm
new file mode 100644
index 0000000..6ce8d64
--- /dev/null
+++ b/mods/default/point.scm
@@ -0,0 +1,17 @@
+(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)))))