Berechnung eines ausgefüllten Kreises in einem Array

  • VB.NET

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

    Berechnung eines ausgefüllten Kreises in einem Array

    Wie schon in der Überschrift erwähnt, versuche ich einen ausgefüllten Kreis in ein Array zu schreiben. Hintergrund ist eine 2D World Map, aber ich kenne keine passende Formel.

    Mfg, Crazydrift

    Wat?
    Was hat das für einen Sinn einen Kreis in ein Array zu schreiben? Du weißt, dass das keinen Sinn hat, da der Kreis rund ist und du so nur Annäherungsweise an die Rundeform kommst.
    Ansonsten: wofür genau willst das verwenden?

    Crazydrift schrieb:


    Hintergrund ist eine 2D World Map, aber ich kenne keine passende Formel.

    Pic:
    Spoiler anzeigen


    Die Welt wird durch das Array gezeichnet.
    Einen nicht ausgefüllten Kreis bekomme ich durch:

    VB.NET-Quellcode

    1. Public Shared Sub Circle(a As Double, b As Double, r As Double, block As Blocks)
    3. ' Zeichnet einen Kreis mit Radius r um den Mittelpunkt (a, b), wobei n Punkte gesetzt werden
    5. Dim n As Integer = 5
    7. Dim pi As Double = 3.141
    8. Dim w As Double = 0
    9. Dim s As Double = 2 * Math.PI \ n
    11. For i As Integer = 1 To n * 100
    12. w += s
    13. Try
    14. World(CInt(a + r * Math.Cos(w)), CInt(b + r * Math.Sin(w))) = block
    15. Catch ex As Exception
    16. End Try
    17. Next
    19. End Sub

    dann mach dirn Array mit Index-Positionen und zeichne dann entsprechend der Index-Position deine Sachen.
    Also:

    VB.NET-Quellcode

    1. Dim items() As GameElement = New GameElement() {new GameElement() With {.x = x, .y = y, .index = i}}
    2. Public Structure GameElement
    3. Public Property x As Integer
    4. Public Property y As Integer
    5. Public Property index As Integer
    6. End Structure

    Und dann musst du nurnoch an X, Y den Inhalt von i zeichnen.

    du füllst das Array mit deinen Items und whatever du da drin haben willst.
    Für index 0 = Luft, 1 = Erde, 2 = Kopf, 3 = Körper oben, 4 = Beine
    Dann musst du "nur" die Items durchlaufen und die Sachen entsprechend zeichnen.

    VB.NET-Quellcode

    1. For Each gE As GameElement In items
    2. Select Case gE.index
    3. Case 0
    4. ' hier die Luft zeichnen, mit gE.x und gE.y. Je nach dem wie du deinen Zeichencode hast
    5. Case 1
    6. ' ...
    7. Case 2
    8. ' ...
    9. Case 3
    10. ' ...
    11. Case 4
    12. '...
    13. Case undsoweiter
    14. End Select
    15. Next

    Meinst Du so etwas:

    VB.NET-Quellcode

    1. Private Sub Form1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
    2. Dim g As Graphics = e.Graphics
    3. g.FillEllipse(Brushes.Black, New Rectangle(1, 2, 3, 4))
    4. End Sub
    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!

    @AliveDevil
    Ich glaube du hast die Frage falsch verstanden...

    In der Map-Generation am Anfang brauche ich eine tools, um z.b. einen kreis aus sand in den boden zu "malen".

    Das Array besteht aus id's, ca. so:

    111111000432222
    111994442211145
    558237619433333

    Und diese Zahlen werden dann eben immer durch block-texturen ersetzt und gezeichnet, alles kein Problem. Nun will ich aber in so ein Zahlen-Array "Kreise" einfügen. Das würde ca. so aussehen:

    0000000000
    0000110000
    0001111000
    0001111000
    0000110000
    0000000000

    @RodFromGermany
    Nein, sowas meine ich nicht, übrigens arbeite ich nicht mit GDI+, sondern mit XNA, das ist aber völlig egal. Ich will lediglich einen "Kreis" in ein Array zeichnen, das habe ich zwar schon geschafft, dieser ist aber leider nicht ausgefüllt, sondern innen leer.

    mit einer for schleife für jedes array-feld prüfen ob es im kreis liegt oder eben nicht.

    zur prüfung kann man den satz des pythagoras anwenden
    Bilder

    • kreis.png

      4,44 kB, 221×192, 1.219 mal angesehen

    Crazydrift schrieb:

    dieser ist aber leider nicht ausgefüllt, sondern innen leer.
    Dann arbeite nicht mit x² + y² = r² (Peripherie des Kreises) sondern mit x² + y² <= r² (Peripherie und das Innere des Kreises):

    VB.NET-Quellcode

    1. Dim x0, y0, r As Integer
    2. For x = -50 To 50
    3. For y = -50 To 50
    4. If (x - x0) * (x - x0) + (y - y0) * (y - y0) <= r * r Then
    5. ' was tun
    6. End If
    7. Next
    8. Next
    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!

    Ich hab's aus Spaß mal als Console-App geschrieben:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    3. Module KreisArray
    7. Private Structure Punkt
    8. Dim x As Integer
    9. Dim y As Integer
    10. End Structure
    14. Sub Main()
    15. ''==================================================
    16. ''Deklartation
    17. Dim Array(20, 20) As Boolean
    19. Dim Mittelpunkt As Punkt
    20. Mittelpunkt.x = CInt(Math.Floor(Array.GetLength(0) / 2)) 'Mittelpunkt des Kreises auf Mitte des Arrays festlegen
    21. Mittelpunkt.y = CInt(Math.Floor(Array.GetLength(1) / 2)) 'Mittelpunkt des Kreises auf Mitte des Arrays festlegen
    23. Const Radius As Integer = 5
    25. Const AusgabeChar As Char = "#"c
    31. ''==================================================
    32. ''Kreis in das Array schreiben
    33. For x As Integer = Mittelpunkt.x - Radius To Mittelpunkt.x + Radius
    34. For y As Integer = Mittelpunkt.y - Radius To Mittelpunkt.y + Radius
    36. If ((x - Mittelpunkt.x) ^ 2 + (y - Mittelpunkt.y) ^ 2) < Radius ^ 2 Then
    37. Array(x, y) = True
    38. End If
    41. Next
    42. Next
    48. ''==================================================
    49. ''Array in Console ausgeben
    50. For x As Integer = 0 To Array.GetLength(0) - 1
    51. For y As Integer = 0 To Array.GetLength(1) - 1
    53. If Array(x, y) = True Then
    54. Console.ForegroundColor = ConsoleColor.DarkGreen
    55. Else
    56. Console.ForegroundColor = ConsoleColor.Gray
    57. End If
    58. Console.SetCursorPosition(x, y)
    59. Console.Write(AusgabeChar)
    61. Next
    62. Next
    64. ''==================================================
    65. ''Mittelpunkt in Console ausgeben
    66. Console.ForegroundColor = ConsoleColor.Red
    67. Console.SetCursorPosition(Mittelpunkt.x, Mittelpunkt.y)
    68. Console.Write(AusgabeChar)
    75. Console.ReadKey()
    76. End Sub
    77. End Module



    //EDIT: BTW Warum gibt Math.Floor keinen Integer zurück ?(
    Dateien

    • KreisArray.zip

      (57,11 kB, 178 mal heruntergeladen, zuletzt: )

    Nein - eigentlich nur in Codes, die zur Veranschaulichung von Sachverhalten dienen, um Codeabschnitte getrennter Funktionalität untereinander strukturiert zu differenzieren. Mir fällt spontan kein Argument ein, das dagegen spricht, oder zählst du die paar Bytes Speicherplatz, die durch die Zeilenumbrüche verloren gegangen sind?

    Wenn du ein Problem damit hast, "anfängerfreudlich" strukturierten Code zu lesen, lässt du in Zukunft einfach den Expander zu. Dass du als extrem erfahrener User mit wesentlich Anspruchsvollerem klar kommst, stellt hier niemand in Abrede. Dem TE wurde scheinbar mit diesem Ansatz weitergeholfen. Die (folglich unnötige) Beschwerde über die Formatierung erscheint als Trollerei.

    Ich hab nix gegen Leerzeilen, nur gegen die sinnlosen. Guck, so hätte ich formatiert, und halte ich für besser lesbar:

    VB.NET-Quellcode

    1. Option Strict On
    3. Module KreisArray
    5. Private Structure Punkt
    6. Dim x As Integer
    7. Dim y As Integer
    8. End Structure
    10. Sub Main()
    11. Const Radius As Integer = 5
    12. Const AusgabeChar As Char = "#"c
    13. Dim Array(20, 20) As Boolean
    14. Dim Mittelpunkt As Punkt
    15. Mittelpunkt.x = CInt(Math.Floor(Array.GetLength(0) / 2)) 'Mittelpunkt des Kreises auf Mitte des Arrays festlegen
    16. Mittelpunkt.y = CInt(Math.Floor(Array.GetLength(1) / 2)) 'Mittelpunkt des Kreises auf Mitte des Arrays festlegen
    18. ''Kreis in das Array schreiben
    19. For x As Integer = Mittelpunkt.x - Radius To Mittelpunkt.x + Radius
    20. For y As Integer = Mittelpunkt.y - Radius To Mittelpunkt.y + Radius
    21. If ((x - Mittelpunkt.x) ^ 2 + (y - Mittelpunkt.y) ^ 2) < Radius ^ 2 Then
    22. Array(x, y) = True
    23. End If
    24. Next
    25. Next
    27. ''Array in Console ausgeben
    28. For x As Integer = 0 To Array.GetLength(0) - 1
    29. For y As Integer = 0 To Array.GetLength(1) - 1
    30. If Array(x, y) = True Then
    31. Console.ForegroundColor = ConsoleColor.DarkGreen
    32. Else
    33. Console.ForegroundColor = ConsoleColor.Gray
    34. End If
    35. Console.SetCursorPosition(x, y)
    36. Console.Write(AusgabeChar)
    37. Next
    38. Next
    40. ''Mittelpunkt in Console ausgeben
    41. Console.ForegroundColor = ConsoleColor.Red
    42. Console.SetCursorPosition(Mittelpunkt.x, Mittelpunkt.y)
    43. Console.Write(AusgabeChar)
    45. Console.ReadKey()
    46. End Sub
    47. End Module

    Ich seh halt oft so viele sinnlose Leerzeilen, da nehme ich an, diese komische Unsitte guckt einer vom anneren ab.

    Dabei ist beim Coden immer auch wichtig, dass man möglichst viel in einem Blick hat, und dass was zusammen-gehört, auch als solches erkenntlich ist.
    Und Leerzeilen haben den Sinn, verschiedene Bereiche, deren Zeilen je enger zusammengehören, bischen optisch voneinander abzugrenzen.
    Aber da reicht eine Zeile - es soll ja auch noch erkennbar bleiben, dass das alles in derselben Methode stattfindet.

    FuFu^^ schrieb:

    Warum gibt Math.Floor keinen Integer zurück
    Weil der andere Benutzer dieser Funktion da ein Double braucht, und er hat sich bei Bill eher angestellt. :D
    Dafür gibt es dier Funktion Convert.ToInt()
    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