Zuschneidebereich hat im neuen Bitmap einen x- und y-Offset, aber nur, wenn Original skaliert worden ist

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

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

    Zuschneidebereich hat im neuen Bitmap einen x- und y-Offset, aber nur, wenn Original skaliert worden ist

    Hi,
    es tritt ein komisches Phänomen auf.
    Mit meinem Kantendetektionsprogramm kann ich, wie einige wissen, das Innere das GraphicsPaths auf ein neues Bild übertragen. Dies geschieht wie folgt:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. [vbnet]
    2. Imports System.Drawing.Drawing2D
    3. Imports Microsoft.WindowsAPICodePack.Dialogs
    5. Public NotInheritable Class AllesGrafische
    6. Public Shared Sub Paint_the_Rectangle(ByVal g As Graphics, ByVal recta As Rectangle)
    7. If g IsNot Nothing Then
    8. g.SmoothingMode = SmoothingMode.AntiAlias
    9. g.CompositingQuality = CompositingQuality.HighQuality
    10. g.PixelOffsetMode = PixelOffsetMode.HighQuality
    11. g.InterpolationMode = InterpolationMode.HighQualityBilinear
    12. Using Pen_Hellblau As Pen = New Pen(Color.FromArgb(0, 200, 255), 1.0F)
    13. g.DrawRectangle(Pen_Hellblau, recta)
    14. End Using
    15. End If
    16. End Sub
    18. Public Shared Sub Draw_Curve(ByVal g As Graphics, ByVal theList As List(Of Point))
    19. If theList IsNot Nothing AndAlso theList.Count > 0 AndAlso g IsNot Nothing Then
    20. g.SmoothingMode = SmoothingMode.AntiAlias
    21. g.CompositingQuality = CompositingQuality.HighQuality
    22. g.PixelOffsetMode = PixelOffsetMode.HighQuality
    23. g.InterpolationMode = InterpolationMode.HighQualityBilinear
    25. Dim theList_neu As New List(Of Point)
    27. Using gp As New GraphicsPath
    28. For i As Integer = 1 To theList.Count - 1 Step 1
    29. Dim a As Integer = theList(i).X
    30. Dim b As Integer = theList(i).Y
    31. Dim c As Integer = theList(i - 1).X
    32. Dim d As Integer = theList(i - 1).Y
    33. Dim Entfernungsbetrag As Double = Math.Sqrt(Math.Pow(a, 2) + Math.Pow(b, 2) + Math.Pow(c, 2) + Math.Pow(d, 2) - 2 * a * c - 2 * b * d)
    34. If Entfernungsbetrag < Form1.erlaubte_Entfernung Then
    35. theList_neu.Add(theList(i))
    36. End If
    37. Next
    38. If theList_neu.Count = 0 Then Return
    39. gp.AddLines(theList_neu.ToArray())
    40. Using Pen_hellrosa As Pen = New Pen(Color.FromArgb(255, 64, 239), 1.0F)
    41. g.DrawPath(Pen_hellrosa, gp)
    42. End Using
    43. If Form1.ClosePath Then
    44. gp.CloseFigure()
    45. End If
    47. If Form1.CheckBox1.Checked Then
    48. Dim Speicherpfad As String
    49. Using SFD1 As New CommonSaveFileDialog
    50. SFD1.Title = "Wo soll das Bild gespeichert werden?"
    51. SFD1.Filters.Add(New CommonFileDialogFilter("PNG", ".png"))
    52. If System.IO.Directory.Exists("C:\Users\...\source\repos\VB.NET\Get mouse position and draw rectangle on screen") Then
    53. SFD1.InitialDirectory = "C:\Users\...\source\repos\VB.NET\Get mouse position and draw rectangle on screen"
    54. Else
    55. SFD1.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
    56. End If
    57. If SFD1.ShowDialog = CommonFileDialogResult.Ok Then
    58. Speicherpfad = SFD1.FileName & ".png"
    59. Else
    60. Return
    61. End If
    62. End Using
    63. Using bmpSource As Bitmap = New Bitmap(Form1.Pfad_Bild)
    64. Dim rectCutout As RectangleF = gp.GetBounds()
    65. Using m As Matrix = New Matrix()
    66. m.Translate(-rectCutout.Left, -rectCutout.Top)
    67. gp.Transform(m)
    68. End Using
    69. Using bmpCutout As Bitmap = New Bitmap(CInt(Math.Round(rectCutout.Width, 0)), CInt(Math.Round(rectCutout.Height, 0)))
    70. Using graphicsCutout As Graphics = Graphics.FromImage(bmpCutout)
    71. graphicsCutout.Clip = New Region(gp)
    72. graphicsCutout.DrawImage(bmpSource, -rectCutout.Left, -rectCutout.Top)
    73. bmpCutout.Save(Speicherpfad, Imaging.ImageFormat.Png)
    74. Form1.CheckBox1.Checked = False
    75. End Using
    76. End Using
    77. End Using
    78. End If
    79. End Using
    80. End If
    81. End Sub
    82. End Class
    [/vbnet]

    Das klappt auch immer super – außer, wenn ich mit GIMP das Original skaliere (Seitenverhältnis bleibt aber, nur die Maße werden geändert). Dann ist der Bereich verschoben. Nach links und nach oben. Siehe Anhang. In Zeile 68 habe ich geschaut, was in rectCutout drin steht. Alles in Ordnung.

    Hat das etwas mit GIMP zu tun? Die dots per inch sind dieselben (72). Die Kompressionsqualität des JPEGs auch (100%).
    Bilder

    • 20210122_175942 skaliert.jpg

      316,09 kB, 675×900, 158 mal angesehen

    • Programmoberfläche, bereit zum Speichern - Kopie.png

      425,58 kB, 754×989, 77 mal angesehen

    • ausgeschnitten.png

      72,01 kB, 209×450, 82 mal angesehen

    @nafets Selber Fehler ...

    Edit: ich habe gerade festgestellt: Wenn ich ein Bild größer skaliere, ist das Ergebnis komplett schwarz.

    Edit 2: Das Merkwürdige ist: Ich sage ja nicht: Das Bild, auf dem gezeichnet wird, ist größer als das Bild, das gespeichert wird. Dann wäre es logisch, dass der Pfad nicht an derselben Postition ist. Sondern es geht darum, dass das geladene einfach nur kleiner ist.

    Edit 3: wenn ich mit Word skaliere, habe ich dasselbe Problem. Sch****

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Bartosz“ ()

    Bartosz schrieb:

    Wenn ich ein Bild größer skaliere
    Wie skalierst Du?
    Du musst natürlich die Mauskoordinaten in die skalierten Bild-Pixel-Koordinaten umrechnen: Nimm den Dreisatz.
    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!

    @RodFromGermany Ich habe mir ein Bild vom Smartphone auf den PC kopiert. Da dieses 16 MP hat, musste ich es mit GIMP skalieren, damit es auf meinen 1920x1080 Bildschirm passt (und ich überhaupt alles drauf hab). Das Programm selbst skaliert nicht. Also aus Sicht meines Programms ist das ein normales Bild, wo ich ein Rechteck ziehe, ein graphicsPath gemalt wird und dieses Rechteck 1:1 auf ein neues Bild übertragen wird.
    Man sieht auch, dass der Shape die Form des Taschenrechners annimmt, aber versetzt ist. Und das wundert micht so.

    Ich habe den Fehler gefunden. Ich habe extra geschaut, wie viele dpi das Handyfoto hat und diese Zahl auch bei GIMP eingestellt. Da muss irgendetwas schiefgelaufen sein. Jedenfalls verwende ich nun

    VB.NET-Quellcode

    1. Using bmpCutout As Bitmap = New Bitmap(CInt(Math.Round(rectCutout.Width, 0)), CInt(Math.Round(rectCutout.Height, 0)))
    2. bmpCutout.SetResolution(Original.HorizontalResolution, Original.VerticalResolution)

    und damit läuft es wieder.
    Mir war irgendwie klar, dass es so eine Geschichte sein muss, bei einem x- und y-Offset, aber mit den DPI war ich mir sicher.     :cursing: Oder anders formuliert: Visual Basic macht, wenn eine neue Bitmapinstanz erzeugt wird, dieses Bitmap auf 96 dpi. Wenn ein Foto nur 72 dpi hat, dann ist das Mist. Daher war der Versatz weiter links und weiter oben.

    Bartosz schrieb:

    Also aus Sicht meines Programms ist das ein normales Bild, wo ich ein Rechteck ziehe
    dessen Mouse-Koordinaten von (0,0) bis (1920,1080) gehen, Du erwartest Mauskoordinaten von ()0,0) bis (1024,640) oder so.
    Gib Deine Mauskoordinaten in der Konsole aus.
    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!