Voronoi meshes (uncompleted)

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

diff --git a/mods/default/triangle.scm b/mods/default/triangle.scm
index 343bef3c0e837b1c36626404eba8f5431993e9e7..c11ee1a31542e279b9cb6d127345b3e92e7d3038 100644 (file)
--- a/mods/default/triangle.scm
+++ b/mods/default/triangle.scm
@@ -5,7 +5,8 @@
             triangle?
             triangle-points
             triangle-center
-            triangle-radius))
+            triangle-radius
+            triangle-has-edge))
 
 (define-record-type <triangle>
   (make-raw-triangle points center radius)
@@ -41,3 +42,12 @@
                         (+ y2 (* dy2 t2))))
                (radius (points-distance center tp1)))
           (make-raw-triangle (list tp1 tp2 tp3) center radius))))))
+
+(define (triangle-has-edge triangle a b)
+  (let ((points (triangle-points triangle)))
+    (let ((p1 (car points))
+          (p2 (cadr points))
+          (p3 (caddr points)))
+      (or (and (equal? p1 a) (equal? p2 b))
+          (and (equal? p2 a) (equal? p3 b))
+          (and (equal? p3 a) (equal? p1 b))))))