diff --git a/VECTO/cDelaunayMap.vb b/VECTO/cDelaunayMap.vb index 136c66a5b95ce7292b36821351ae4176cdbd9281..337e8bf9f64853faefe14d8ff5590041330ddaef 100644 --- a/VECTO/cDelaunayMap.vb +++ b/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