X-Git-Url: https://git.jsancho.org/?p=dungeon-master.git;a=blobdiff_plain;f=dungeon-master%2Fgeom%2Fpoint.scm;fp=dungeon-master%2Fgeom%2Fpoint.scm;h=64faaac44a4c7b8e3272a463071418ce6bebea50;hp=0000000000000000000000000000000000000000;hb=695ecf94f5bb10ced4e66b0b4d036de9965c02ca;hpb=4e1254800a1c453aba76b8ccd5b632f38a71aed7

diff --git a/dungeon-master/geom/point.scm b/dungeon-master/geom/point.scm
new file mode 100644
index 0000000..64faaac
--- /dev/null
+++ b/dungeon-master/geom/point.scm
@@ -0,0 +1,18 @@
+(define-module (dungeon-master geom point)
+  #:use-module (srfi srfi-9)
+  #:export (make-point
+            point?
+            point-x
+            point-y
+	    points-distance))
+
+(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)))))