使用LINQ获取三角形会返回空三角形

Question

我已经将一些C＃代码转换为VB.NET以使用LINQ获取三角形，并且两个代码版本的行为相同，直到选择三角形的位置。

这些是我的结果：

可以看到，获取一个空三角形列表，所以我怀疑我的Select语句中出了问题。

VB.NET和C＃中的其他所有内容都是相同的。

这是我的VB.NET代码，转换为我所知的最佳：

    Function GetDelaunayTriangles(ByVal points As IEnumerable(Of Point)) As IEnumerable(Of Triangle)
        Dim result = New List(Of Triangle)()
        Dim rect = Cv2.BoundingRect(points)
        rect.Inflate(10, 10)
        Dim triangles As Vec6f()

        Using subdiv = New Subdiv2D(rect)

            For Each p In points
                Dim cv_p = New OpenCvSharp.Point2f(p.X, p.Y)
                subdiv.Insert(cv_p)
            Next

            triangles = subdiv.GetTriangleList()
        End Using

    Dim nRet As IEnumerable(Of Triangle) = From t In triangles Let p1 = New Point(t(0), t(1)) Let p2 = New Point(t(2), t(3)) Let p3 = New Point(t(4), t(5)) Where rect.Contains(p1) AndAlso rect.Contains(p2) AndAlso rect.Contains(p3) Select New Triangle(p1, p2, p3)

    Return nRet
End Function

这是最初的C＃代码：

    public static IEnumerable<Triangle> GetDelaunayTriangles(IEnumerable<Point> points)
    {
        var result = new List<Triangle>();

        // calculate the bounding box around the points
        var rect = Cv2.BoundingRect(points);
        rect.Inflate(10, 10);

        // the Subdiv2D class handles Delaunay triangulation
        // first we add all points, and then start triangulation
        Vec6f[] triangles;
        using (var subdiv = new Subdiv2D(rect))
        {
            foreach (var p in points)
            {
                var cv_p = new OpenCvSharp.Point2f(p.X, p.Y);
                subdiv.Insert(cv_p);
            }
            triangles = subdiv.GetTriangleList();
        }

        // return result as an enumeration of triangle structs
        return from t in triangles
               let p1 = new Point(t[0], t[1])
               let p2 = new Point(t[2], t[3])
               let p3 = new Point(t[4], t[5])
               where rect.Contains(p1) && rect.Contains(p2) && rect.Contains(p3)
               select new Triangle(p1, p2, p3);
    }

非常感谢你！

编辑：

我打印过“三角形”，它们对于VB.NET和C＃来说都是相同的。我只是不明白我在Select语句中做错了什么。

编辑：

我添加了一个截图，显示VS认为可以删除“Imports System.Linq”，我认为这是不对的。

编辑：有人会这么好，并告诉我这个LINQ表达式在硬编码中会是什么样子（不再是Linq）？

Answer 1

你的问题出在你的Triangle结构中。实际上P1与VB中的p1相同。所以，你应该将p1, p2, p3改为例如p1_, p2_, p3_：

Public Sub New(ByVal p1_ As Point, ByVal p2_ As Point, ByVal p3_ As Point)
    P1 = p1_
    P2 = p2_
    P3 = p3_
End Sub