Voronoi meshes (uncompleted)

[dungeon-master.git] / mods / default / point.scm

diff --git a/mods/default/point.scm b/mods/default/point.scm
new file mode 100644 (file)
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)))))