komische Linien beim Zeichnen – woran liegt's?

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

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Bartosz.

    komische Linien beim Zeichnen – woran liegt's?

    Hallo zusammen,

    ich habe mir eine Klasse geschrieben, die mir Punkte auf einer Kugeloberfläche speichert. Wenn ich diese Kugel (erst einmal in 2D) zeichne, will ich alle paar Höhenpixel eine andere Farbe nehmen. Leider läuft das schief. Woran liegt's? Ich habe bereits ausprobiert:
    1.) Step der For loop auf 0.25 -> Programm rattert ewig... Zeichnung wird nicht besser
    2.) Step der For loop auf 0.5 -> Zeichnung ist schlecht wie im angehängten Bild
    3.) Step der For loop auf 1 -> Zeichnung ist (logischerweise) schlechter (mehr Löcher an den Rändern etc).

    Dies ist die Class_HalfSphere.vb
    Spoiler anzeigen

    VB.NET-Quellcode

    1. #Disable Warning IDE1006 ' Benennungsstile
    2. Imports System.Windows.Media.Media3D
    3. Public NotInheritable Class Class_HalfSphere
    4. Public Phi As UInt16 = 0US
    5. Public Theta As UInt16 = 0US
    6. Public ReadOnly Liste_mit_allen_Vektoren As New List(Of Vector3D)
    7. Private ReadOnly Liste_thetas As New List(Of Double)
    8. Private ReadOnly Liste_phis As New List(Of Double)
    10. Public Sub New(ByVal Radius As Double)
    12. For _phi As Double = 0.0 To 359.0 Step 0.5
    13. For _theta As Double = 0.0 To 90.0 Step 0.5
    14. Liste_mit_allen_Vektoren.Add(New Vector3D(
    15. Radius * Math.Cos(_phi * Math.PI / 180.0) * Math.Sin(_theta * Math.PI / 180.0),
    16. Radius * Math.Sin(_phi * Math.PI / 180.0) * Math.Sin(_theta * Math.PI / 180.0),
    17. Radius * Math.Cos(_theta * Math.PI / 180.0))
    18. )
    19. Liste_thetas.Add(_theta)
    20. Liste_phis.Add(_phi)
    21. Next
    22. Next
    23. End Sub
    25. 'Private Function unitV(ByVal par As Double, ByVal xx As Double, ByVal yy As Double, ByVal zz As Double) As Double
    26. ' Return par / Math.Sqrt(Math.Pow(xx, 2.0) + Math.Pow(yy, 2.0) + Math.Pow(zz, 2.0))
    27. 'End Function
    29. Public Function getVector() As Vector3D
    30. Dim Value As Vector3D
    32. For i As Integer = 0 To Liste_mit_allen_Vektoren.Count - 1 Step 1
    33. If Liste_phis(i) = CDbl(Phi) AndAlso Liste_thetas(i) = CDbl(Theta) Then
    34. Value = Liste_mit_allen_Vektoren(i)
    35. Return Value
    36. End If
    37. Next
    39. Return Value
    40. End Function
    41. End Class
    42. #Enable Warning IDE1006 ' Benennungsstile



    und dies die Form1.vb

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Windows.Media.Media3D
    3. Public NotInheritable Class FormMain
    4. Private ReadOnly Deu As New System.Globalization.CultureInfo("de-DE")
    5. Private half_sphere As Class_HalfSphere
    6. Private program_has_finished_loading As Boolean = False
    7. Private Sub FormMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    8. Me.BackColor = Color.FromArgb(171, 207, 181)
    9. PictureBox1.BackColor = Color.White
    10. End Sub
    12. Private Sub FormMain_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
    13. Select Case e.KeyCode
    15. Case Keys.NumPad8
    17. If half_sphere.Theta > 0US Then
    18. half_sphere.Theta -= 1US
    19. Vektor_finden()
    20. End If
    22. Case Keys.NumPad2
    24. If half_sphere.Theta < 90US Then
    25. half_sphere.Theta += 1US
    26. Vektor_finden()
    27. End If
    29. Case Keys.NumPad4
    31. If half_sphere.Phi < 360US Then
    32. half_sphere.Phi += 1US
    33. Vektor_finden()
    34. End If
    35. If half_sphere.Phi = 360US Then half_sphere.Phi = 0US
    37. Case Keys.NumPad6
    39. If half_sphere.Phi > 0US Then
    40. half_sphere.Phi -= 1US
    41. Vektor_finden()
    42. End If
    44. Case Else
    45. Exit Select
    46. End Select
    48. TextBox_theta.Text = half_sphere.Theta.ToString(Deu).PadLeft(2, "0"c) & " °"
    49. TextBox_phi.Text = half_sphere.Phi.ToString(Deu).PadLeft(2, "0"c) & " °"
    50. End Sub
    52. Private Sub FormMain_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
    53. half_sphere = New Class_HalfSphere(190.0)
    54. program_has_finished_loading = True
    55. End Sub
    57. Private Sub Vektor_finden()
    58. Dim meingefundenerVektor As Vector3D = half_sphere.getVector()
    59. TextBox_x.Text = Math.Round(meingefundenerVektor.X, 3).ToString(Deu)
    60. TextBox_y.Text = Math.Round(meingefundenerVektor.Y, 3).ToString(Deu)
    61. TextBox_z.Text = Math.Round(meingefundenerVektor.Z, 3).ToString(Deu)
    62. End Sub
    64. Private Sub PictureBox1_DoubleClick(sender As Object, e As EventArgs) Handles PictureBox1.DoubleClick
    65. PictureBox1.Invalidate()
    66. End Sub
    68. Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
    69. If Not program_has_finished_loading Then Return
    71. If e.Graphics Is Nothing Then Return
    73. e.Graphics.TranslateTransform(CSng(PictureBox1.Size.Width / 2.0), CSng(PictureBox1.Size.Height / 2.0))
    74. e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
    75. e.Graphics.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
    76. e.Graphics.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
    77. e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBilinear
    79. For i As Integer = 0 To half_sphere.Liste_mit_allen_Vektoren.Count - 1 Step 3
    80. If CInt(half_sphere.Liste_mit_allen_Vektoren(i).Z) Mod 30 = 0 Then
    81. Using PenGruen As New Pen(Color.FromArgb(0, 173, 0), 1.0F)
    82. e.Graphics.DrawLine(
    83. PenGruen,
    84. 0.0F,
    85. 0.0F,
    86. CSng(half_sphere.Liste_mit_allen_Vektoren(i).X),
    87. CSng(-half_sphere.Liste_mit_allen_Vektoren(i).Z))
    88. End Using
    89. Else
    90. Using PenBlau As New Pen(Color.FromArgb(0, 204, 255), 1.0F)
    91. e.Graphics.DrawLine(
    92. PenBlau,
    93. 0.0F,
    94. 0.0F,
    95. CSng(half_sphere.Liste_mit_allen_Vektoren(i).X),
    96. CSng(-half_sphere.Liste_mit_allen_Vektoren(i).Z)) 'Negatives Vorzeichen weil y in VB.net nach unten positiv läuft.
    97. End Using
    98. End If
    99. Next
    100. End Sub
    101. End Class



    Viele Grüße
    Bartosz

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

    Bartosz schrieb:

    ich habe mir eine Klasse geschrieben, die mir Punkte auf einer Kugeloberfläche speichert.
    Alle Punkte? Das sind sehr sehr viele.
    Na ich vermute mal, nur eine bestimmte Anzahl davon.
    Verrätst du uns diese Anzahl?

    Ansonsten sieht mir dein Code so aus, als ob du Linien malst vom Mittelpunkt zu diesen Vektor-Punkten.
    Die Linien werden sich logischerweise gegenseitig übermalen, wenn sie dicht genug beieinander liegen.

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

    @Bartosz Momentan malst Du in Kugelkoordinaten (theta und phi), die auf der Oberfläche verschieden dicht liegen.
    Überlege Dir eine Koordinatentransformation, wo Du die Punkte in kartesisdchen Koordinaten setzen kannst (x, y), auf jedes Pixel einen Punkt.
    Dann wird Deine Fläche optimal dicht gezeichnet.
    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!

    @ϕconst Die Zeile habe ich etxra eingefügt, damit alle 30 Höhenpixel eine grüne Linie statt einer blauen gezeichnet wird. Wie man im Bild sieht, klappt das ab der Mitte nicht mehr. Die Linien gehen schräg hoch. Das ist eines der Probleme. Ich wüsste gern, woran das liegt.

    @ErfinderDesRades Beim For-Schleifen-Step von 1 ergibt sich 91 * 360 = 32760. Bei Step 0,5 das vierfache. "Ansonsten sieht mir dein Code so aus, als ob du Linien malst vom Mittelpunkt zu diesen Vektor-Punkten." Richtig.

    @RodFromGermany Ich stelle die Vektoren mithilfe von Kugelkorrdinaten auf, ja, aber ich wandle noch in der Klasse um auf x, y und z und zeichne sie mit x und z ? Was meintest du?

    Bartosz schrieb:

    VB.NET-Quellcode

    1. For _phi As Double = 0.0 To 359.0 Step 0.5
    2. For _theta As Double = 0.0 To 90.0 Step 0.5
    3. ' ...
    Lass diese beiden Schleifen über x und y gehen.
    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!

    ErfinderDesRades schrieb:

    Die Linien werden sich logischerweise gegenseitig übermalen, wenn sie dicht genug beieinander liegen.

    Bartosz schrieb:

    32760
    Das sind in der Tat sehr viele Linien auf kleiner Fläche.
    Die übermalen sich also gegenseitig, und was letztendlich zur Ansicht kommt hängt von der Reihenfolge ab, in der welche Linien zu welchem Punkt hin gemalt werden.
    Extrem unwirtschaftlich, und auch optisch wird kaum etwas bei rauskommen können, was man erwartet (was immer man erwartet).

    Kläre zunächstmal deine Erwartung, was denn zur Ansicht kommen soll.
    Dann überleg dir, welche Punkt-Auswahl dafür geeignet ist, und wie zu zeichnen. Das malen einer Linie vom 0-Punkt zum VektorPunkt finde ich höchst fragwürdig.

    Aber wie gesagt: Kläre zunächstmal deine Erwartung, was denn zur Ansicht kommen soll.

    @ErfinderDesRades Ich möchte eine vollwertige Halbkugel erstellen. Das habe ich auch in der Klasse so programmiert. Ich wollte die Halbkugel gestern nur mal eben schnell zeichnen. Du hast wie gesagt Recht, man braucht nicht alles zeichnen, sondern nur ein paar der vielen Linien, weil man ja in 2D "platt draufguckt". Aber jetzt einfach Graphics.FillArc() nutzen, halte ich für falsch. Ist geschummelt.

    Es funktioniert jetzt
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
    2. If Not program_has_finished_loading OrElse e.Graphics Is Nothing Then
    3. Return
    4. End If
    6. e.Graphics.TranslateTransform(CSng(PictureBox1.Size.Width / 2.0), CSng(PictureBox1.Size.Height / 2.0))
    7. e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
    8. e.Graphics.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
    9. e.Graphics.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
    10. e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
    12. For i As Integer = 0 To half_sphere.Liste_mit_allen_Vektoren.Count - 1 Step 1
    13. If half_sphere.Liste_phis(i) = 0.0 OrElse half_sphere.Liste_phis(i) = 180.0 Then
    14. Using PenBlau As New Pen(Color.FromArgb(0, 204, 255), 1.0F)
    15. e.Graphics.DrawLine(
    16. PenBlau,
    17. 0.0F,
    18. 0.0F,
    19. CSng(half_sphere.Liste_mit_allen_Vektoren(i).X),
    20. CSng(-half_sphere.Liste_mit_allen_Vektoren(i).Z))
    21. If CInt(half_sphere.Liste_mit_allen_Vektoren(i).Z) Mod 30 = 0 Then
    22. Using PenGruen As New Pen(Color.FromArgb(0, 173, 0), 1.0F)
    23. e.Graphics.DrawLine(
    24. PenGruen,
    25. 0.0F,
    26. CSng(-half_sphere.Liste_mit_allen_Vektoren(i).Z),
    27. CSng(half_sphere.Liste_mit_allen_Vektoren(i).X),
    28. CSng(-half_sphere.Liste_mit_allen_Vektoren(i).Z))
    29. End Using
    30. End If
    32. End Using
    33. End If
    34. Next
    35. End Sub



    mit

    VB.NET-Quellcode

    1. For _phi As Double = 0.0 To 359.0 Step 1.0
    2. For _theta As Double = 0.0 To 90.0 Step 0.125

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

Facebook
Telefonspende