Voronoi meshes (uncompleted)

[dungeon-master.git] / dungeon-master / geom / point.scm

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