3D Objekte mit DirectX erstellen

  • VB.NET

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

    3D Objekte mit DirectX erstellen

    Moin,

    ich möchte mir eigene Software für mein Laser programmieren. Das auch kein Problem, jedoch möchte ich zudem eine 3D Simulation der Show auch noch implemetieren.
    Meine Frage ist nun ob man dafür fundierte DirectX Kenntnisse haben muss, oder ob es vergleichbar eher einfach ist soetwas zu realisieren. Bisher habe ich noch null DirectX erfahrung, deswegen wäre ich für eine Info sehr dankbar.
    Im Endeffekt möchte ich sowas haben:
    Bild1 , Bild2

    Es soll nicht gut aussehen, es geht mir nur um die visuelle Darstellung. Im Grunde habe ich eine Ausgangsform z.B. im Kreis angeordnete Kreise und diese müsste ich ja einfach von einem Ausgangspunkt bis zum Endpunkt immer weiter vergörßern. Farbig soll es nicht sein, da ich nur einen einfarbigen Laser habe!

    Mit DX lässt sich sowas wirklich sehr einfach machen.

    Wie ich verstanden habe brauchst du:
    - einen Zylinder (oder war es doch nur Ringe die hinterenander geordnet eine art zylinder ergeben?)
    - damit ein Device
    - fertig! :D


    VB.NET-Quellcode

    1. Public Class LaserGraphics
    2. Private WithEvents targetcontrol As Control
    4. Private device As Device
    5. Private camera As New Vector3(5, 5, 5)
    6. Private rotation As New Vector3(0, 0, 0)
    8. Public laser As Mesh
    10. Public Sub New(ByRef target_control As Control)
    11. targetcontrol = target_control
    14. Dim present As New PresentParameters()
    16. present.BackBufferCount = 1
    17. present.BackBufferFormat = Format.A8R8G8B8
    18. present.MultiSample = MultiSampleType.FourSamples
    19. present.SwapEffect = SwapEffect.Discard
    20. present.Windowed = True
    22. device = New Direct3D.Device(0, DeviceType.Hardware, targetcontrol, CreateFlags.SoftwareVertexProcessing, present)
    24. device.RenderState.Lighting = False
    25. device.RenderState.CullMode = Cull.None
    26. device.RenderState.FillMode = FillMode.Solid
    28. laser = Mesh.Cylinder(device, 1, 1, 10000, 25, 1)
    30. device.Transform.Projection = Matrix.PerspectiveFovLH(Math.PI / 4, targetcontrol.Width / targetcontrol.Height, 0.1, 1000)
    31. device.Transform.World = Matrix.RotationYawPitchRoll(rotation.X, rotation.Y, rotation.Z)
    32. device.Transform.View = Matrix.LookAtLH(camera, New Vector3(0, 0, 0), New Vector3(0, 1, 0))
    34. End Sub
    37. Private Sub Render() Handles targetcontrol.Paint
    38. device.Clear(ClearFlags.Target, Color.Black, 1, 0)
    39. device.BeginScene()
    41. laser.DrawSubset(0)
    43. device.EndScene()
    44. device.Present()
    47. Try
    48. targetcontrol.Invalidate()
    49. Catch
    50. End Try
    51. End Sub
    53. Public Sub Set_new_laser(ByVal radius1 As Single, ByVal radius2 As Single, ByVal length As Single)
    54. laser = Mesh.Cylinder(device, radius1, radius2, length, 25, 1)
    55. End Sub
    57. Public Property CameraPosition() As Vector3
    58. Get
    59. Return camera
    60. End Get
    61. Set(ByVal value As Vector3)
    62. If Not value = New Vector3(0, 0, 0) Then
    63. camera = value
    64. device.Transform.View = Matrix.LookAtLH(camera, New Vector3(0, 0, 0), New Vector3(0, 1, 0))
    65. End If
    66. End Set
    67. End Property
    69. Public Property RotationYawPitchRoll() As Vector3
    70. Get
    71. Return rotation
    72. End Get
    73. Set(ByVal value As Vector3)
    74. rotation = value
    75. device.Transform.World = Matrix.RotationYawPitchRoll(rotation.X, rotation.Y, rotation.Z)
    76. End Set
    77. End Property
    79. End Class

    Nunja einen Zylinder nicht direkt, der ist ja immer gleich breit. Ich habe eine Ausgangsform, nehmen wir der einfachkeitshalber mal eine Kreis.
    Jetzt haben wir einen Fixpunkt wo der Kreisradius 1 ist. Aber in einer bestimmten Distanz ist der Radius dann aber z.B.: 15, weil sich der Laser ja von diesem Fixpunkt Trapezartig ausbreitet. Noch einfacherer wohl ein Recheck, es ist dann eine Pyramide die horizontal liegt und die Spitze der Pyramide ist quasie die Austritt des Lasers.