Internal Release VECTO 1.1 beta 4 [FIXED]

- Fixed delaunay error

VECTO/cDelaunayMap.vb

@@ -48,14 +48,14 @@ Public Class cDelaunayMap
 
 
 
-#If DEBUG Then
-        Debug.Print("x,y,z,x,y,z")
-        For Each tr In lDT
-            Debug.Print(tr.P1.X & "," & tr.P1.Y & "," & tr.P1.Z & "," & tr.P2.X & "," & tr.P2.Y & "," & tr.P2.Z)
-            Debug.Print(tr.P3.X & "," & tr.P3.Y & "," & tr.P3.Z & "," & tr.P2.X & "," & tr.P2.Y & "," & tr.P2.Z)
-            Debug.Print(tr.P1.X & "," & tr.P1.Y & "," & tr.P1.Z & "," & tr.P3.X & "," & tr.P3.Y & "," & tr.P3.Z)
-        Next
-#End If
+        '#If DEBUG Then
+        '        Debug.Print("x,y,z,x,y,z")
+        '        For Each tr In lDT
+        '            Debug.Print(tr.P1.X & "," & tr.P1.Y & "," & tr.P1.Z & "," & tr.P2.X & "," & tr.P2.Y & "," & tr.P2.Z)
+        '            Debug.Print(tr.P3.X & "," & tr.P3.Y & "," & tr.P3.Z & "," & tr.P2.X & "," & tr.P2.Y & "," & tr.P2.Z)
+        '            Debug.Print(tr.P1.X & "," & tr.P1.Y & "," & tr.P1.Z & "," & tr.P3.X & "," & tr.P3.Y & "," & tr.P3.Z)
+        '        Next
+        '#End If
 
 
 
@@ -216,7 +216,10 @@ Public Class cDelaunayMap
         v = (dot00 * dot12 - dot01 * dot02) * invDenom
 
         ' Check if point is in triangle
-        Return (u >= 0) And (v >= 0) And (u + v <= 1)
+        Return (u >= 0) And (v >= 0) And (u + v <= 1.00000000001)
+
+
+
 
     End Function