Drawing2D.GraphicsPath.IsVisible(x, y) ist langsam. Wie beschleunigen?

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Drawing2D.GraphicsPath.IsVisible(x, y) ist langsam. Wie beschleunigen?

    Hi, ich habe festgestellt, dass ich ein Leitstungsproblem habe. 20 Sekunden, bis die Sub durch ist. Dabei ist sie schon asynchron.

    Worum geht's eigentlich?
    Es geht um mein Kantendetektionsprogramm. Dieser Thread beschäftigt sich jedoch mit einem Schritt vorher. Und zwar zeichne ich freihand einen GraphicsPath um das auszuschneidende Objekt. Das Innere des Paths soll geweißt werden. Dafür holt sich mein Code die xmin-, xmax-, ymin- und ymax-Werte aus den GraphicsPath.PathPoints, um 2 For-Schleifen nutzen zu können, und fragt dann mit .IsVisible(x,y) ab, ob mein derzeitiges x und y innerhalb des Paths liegen.
    Ich zeichne übrigens freihand, weil ich es unvorteilhaft fand, ein Rechteck um einen Kreis ziehen zu müssen.

    Was möchte ich erreichen?
    Hat jemand einen schnelleren Code? Es geht in diesem Beispiel um circa 800 Punkte.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Async Sub Button_Bereich_waehlen_Click(sender As Object, e As EventArgs) Handles Button_Bereich_waehlen.Click
    2. Await Task.Run(Sub() Bereich_waehlen_und_weissen())
    3. End Sub
    5. Private Sub Bereich_waehlen_und_weissen()
    6. If Picture1 Is Nothing Then Return
    8. Me.Invoke(Sub() Button_Bereich_waehlen.BackColor = Color.FromArgb(255, 255, 0))
    9. Me.Invoke(Sub() Button_Bereich_waehlen.Enabled = False)
    10. Me.Invoke(Sub() Button_Kantenerkennung_professionell.Enabled = False)
    12. Dim xmin As Single = selbstgezeichneterPath.PathPoints.Min(Function(p) p.X)
    13. Dim xmax As Single = selbstgezeichneterPath.PathPoints.Max(Function(p) p.X)
    14. Dim ymin As Single = selbstgezeichneterPath.PathPoints.Min(Function(p) p.Y)
    15. Dim ymax As Single = selbstgezeichneterPath.PathPoints.Max(Function(p) p.Y)
    17. Dim gFd As Integer = gewaehlteFarbeDurchschnitt.ToArgb() 'Durchschnittsfarbe: wie man sieht, hat der Taschenrechner Licht- und Schattenseiten.
    18. For x As Integer = CInt(xmin) To CInt(xmax) Step 1
    19. For y As Integer = CInt(ymin) To CInt(ymax) Step 1
    20. If selbstgezeichneterPath.IsVisible(x, y) Then
    21. Dim aktuelle_Farbe As Integer = Picture1.GetPixel(x, y).ToArgb()
    22. If Not (CDbl(aktuelle_Farbe) <= CDbl(gFd * (1.0 + ProzentAbweichung / 100.0)) OrElse CDbl(aktuelle_Farbe) >= CDbl(gFd * (1.0 - ProzentAbweichung / 100.0))) Then
    23. Picture1.SetPixel(x, y, Color.White)
    24. End If
    25. End If
    26. Next
    27. Next
    28. Me.Invoke(Sub() Button_Bereich_waehlen.BackColor = Color.FromArgb(0, 200, 0))
    29. Me.Invoke(Sub() PictureBox1.Invalidate())
    30. Me.Invoke(Sub() Button_Bereich_waehlen.Enabled = True)
    31. Me.Invoke(Sub() Button_Kantenerkennung_professionell.Enabled = True)
    32. Me.Invoke(Sub() Application.DoEvents())
    33. End Sub


    *Topic verschoben*
    Bilder

    • Präsentation1.png

      14,72 kB, 1.280×720, 71 mal angesehen

    • Diagnostic.png

      71,47 kB, 1.382×305, 63 mal angesehen

    • freihand-Path zeichnen.png

      637,91 kB, 767×969, 73 mal angesehen

    • geweißt.png

      551,53 kB, 763×976, 71 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    @ErfinderDesRades Ja aber ich muss erst mit gewaehlteFarbeDurchschnitt das Grau des Taschenrechners erkennen. Weil der Freihand-Path ist ja viel zu weit außen. Den kann ich nicht einfach so komplett weißen.


    Update: ich habe einen LINQ-Approach gefunden. Dieser ist zig mal schneller als IsVisible, leider setzt er manchmal aus. Kann da bitte jemand drüberschauen?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Async Sub Button_Bereich_waehlen_Click(sender As Object, e As EventArgs) Handles Button_Bereich_waehlen.Click
    2. Await Task.Run(Sub() Bereich_waehlen_und_weissen())
    3. End Sub
    5. Private Sub Bereich_waehlen_und_weissen()
    6. If Picture1 Is Nothing Then Return
    8. Me.Invoke(Sub() Button_Bereich_waehlen.BackColor = Color.FromArgb(255, 255, 0))
    9. Me.Invoke(Sub() Button_Bereich_waehlen.Enabled = False)
    10. Me.Invoke(Sub() Button_Kantenerkennung_professionell.Enabled = False)
    12. Dim xmin As Single = selbstgezeichneterPath.PathPoints.Min(Function(p) p.X)
    13. Dim xmax As Single = selbstgezeichneterPath.PathPoints.Max(Function(p) p.X)
    14. Dim ymin As Single = selbstgezeichneterPath.PathPoints.Min(Function(p) p.Y)
    15. Dim ymax As Single = selbstgezeichneterPath.PathPoints.Max(Function(p) p.Y)
    17. Dim s As New List(Of PointF)
    18. s.AddRange(selbstgezeichneterPath.PathPoints)
    20. Dim gFd As Integer = gewaehlteFarbeDurchschnitt.ToArgb()
    21. For x As Integer = CInt(xmin) To CInt(xmax) Step 1
    22. For y As Integer = CInt(ymin) To CInt(ymax) Step 1
    23. Dim p As PointF = New PointF(x, y)
    25. Dim IsInside As Boolean = s.Exists(Function(f) f.Y = p.Y AndAlso f.X < p.X) AndAlso s.Exists(Function(f) f.Y = p.Y AndAlso f.X > p.X)
    26. If IsInside Then 'selbstgezeichneterPath.IsVisible(x, y) Then
    27. Dim aktuelle_Farbe As Integer = Picture1.GetPixel(x, y).ToArgb()
    28. If Not (CDbl(aktuelle_Farbe) <= CDbl(gFd * (1.0 + ProzentAbweichung / 100.0)) OrElse CDbl(aktuelle_Farbe) >= CDbl(gFd * (1.0 - ProzentAbweichung / 100.0))) Then
    29. Picture1.SetPixel(x, y, Color.White)
    30. End If
    31. End If
    32. Next
    33. Next
    34. Me.Invoke(Sub() Button_Bereich_waehlen.BackColor = Color.FromArgb(0, 200, 0))
    35. Me.Invoke(Sub() PictureBox1.Invalidate())
    36. Me.Invoke(Sub() Button_Bereich_waehlen.Enabled = True)
    37. Me.Invoke(Sub() Button_Kantenerkennung_professionell.Enabled = True)
    38. Me.Invoke(Sub() Application.DoEvents())
    39. End Sub


    Beiträge zusammengefügt. ~Thunderbolt
    Bilder

    • Screenshot 2021-01-25 211104.png

      572,72 kB, 728×975, 108 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()

    Update: Ich habe nun geschrieben

    VB.NET-Quellcode

    1. Dim IsInside As Boolean = s.Exists(Function(f) (f.Y = p.Y OrElse f.Y = p.Y + 1) AndAlso f.X <= p.X) AndAlso s.Exists(Function(f) (f.Y = p.Y OrElse f.Y = p.Y + 1 OrElse f.Y = p.Y - 1) AndAlso f.X >= p.X)

    Damit geht's... Ist von der Logik her natürlich falsch, aber was soll's.

    Ich habe auch Ansätze gesehen, deren Verkettung viel größer war, da wurde sogar dividiert (Post 69 in folgendem Link). Aber ob das gut ist...

    qastack.com.de/programming/217…point-is-within-a-polygon

    Naja, ich setz das hier mal auf erledigt.

    @Bartosz Statt n Mal Me.Invoke(Sub()...) solltest Du einen Sub mit allen Inhalten schreiben und den ein Mal invoken.

    Bartosz schrieb:

    Ich zeichne übrigens freihand, weil ich es unvorteilhaft fand, ein Rechteck um einen Kreis ziehen zu müssen.
    ein MouseDown, ein MouseMove, ein MouseUp und Du hast ein Rechteck um Deine Region.
    Fraihand halte ich für suboptimal, zumal sie dynamisch nicht korrigierbar ist.

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende