Direct3D Texturen

  • VB.NET

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von FAtheone.

    Direct3D Texturen

    Soooo,
    liebes Forum Könnt ihr mir bei filgendem Code :

    VB.NET-Quellcode

    1. Imports Microsoft.DirectX
    2. Imports Microsoft.DirectX.Direct3D
    6. Public Class Form1
    8. Public bmp As Texture
    9. Public Shared device As Microsoft.DirectX.Direct3D.Device
    10. Public Sub Initialize()
    11. Dim present As PresentParameters = New PresentParameters
    12. present.Windowed = True 'we?ll draw on a window
    13. present.SwapEffect = SwapEffect.Discard 'discuss later
    14. device = New Microsoft.DirectX.Direct3D.Device(0, DeviceType.Hardware, Me, CreateFlags.HardwareVertexProcessing, present)
    15. device.RenderState.CullMode = Cull.Clockwise & Cull.CounterClockwise
    16. device.RenderState.Lighting = False
    19. End Sub
    21. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    22. kameraPosition = New Vector3(100, 500, 200)
    23. Kamera()
    25. End Sub
    30. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    31. Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.Opaque, True) 'Do not draw form?s background\
    32. Me.Height = 600
    33. Me.Width = 800
    34. Me.Text = "HI!!"
    36. Initialize()
    37. kameraPosition = New Vector3(0, 180, 0)
    38. kameratarget = New Vector3(400, 0, 400)
    39. Kamera()
    40. End Sub
    42. Public yhigh As Integer = 31
    43. Public richtung As Boolean = True
    47. Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    50. If richtung = True Then
    51. yhigh = yhigh + 1
    52. Else
    53. yhigh = yhigh - 1
    55. End If
    58. If yhigh > 300 Then
    59. richtung = False
    60. End If
    62. If yhigh < 1 Then
    63. richtung = True
    64. End If
    67. Dim vertices1 As CustomVertex.PositionColored() = New CustomVertex.PositionColored(0 To 2) {} 'create an array of vertices
    68. vertices1(0).Position = New Vector3(0, 0, 0)
    69. vertices1(0).Color = Color.Green.ToArgb 'encode color in Argb
    70. vertices1(1).Position = New Vector3(0, 0, 5000)
    71. vertices1(1).Color = Color.Silver.ToArgb
    72. vertices1(2).Position = New Vector3(5000, 0, 0)
    73. vertices1(2).Color = Color.Silver.ToArgb
    74. Dim vertices2 As CustomVertex.PositionColored() = New CustomVertex.PositionColored(0 To 2) {} 'create an array of vertices
    75. vertices2(0).Position = New Vector3(5000, 0, 5000)
    76. vertices2(0).Color = Color.Green.ToArgb 'encode color in Argb
    77. vertices2(1).Position = New Vector3(0, 0, 5000)
    78. vertices2(1).Color = Color.Silver.ToArgb
    79. vertices2(2).Position = New Vector3(5000, 0, 0)
    80. vertices2(2).Color = Color.Silver.ToArgb
    83. device.Clear(ClearFlags.Target, Color.Aqua, 1.0, 0)
    85. device.BeginScene() 'all drawings after this line
    86. device.VertexFormat = CustomVertex.PositionColored.Format
    91. device.DrawUserPrimitives(PrimitiveType.TriangleList, 1, vertices1)
    92. device.DrawUserPrimitives(PrimitiveType.TriangleList, 1, vertices2)
    96. device.EndScene() 'all drawings before this line
    98. device.Present()
    100. Me.Invalidate() 'redraw
    102. End Sub
    104. 'kamera
    105. Public Shared view As Matrix
    107. Public kameraPosition As Vector3
    108. Public kameratarget As Vector3
    109. Public Sub Kamera()
    113. Dim up As New Vector3(0, 1, 0)
    114. Dim projection As Matrix = Matrix.PerspectiveFovRH(Math.PI / 4, Me.ClientSize.Width / Me.ClientSize.Height, 1, 8000)
    117. view = Matrix.LookAtRH(kameraPosition, kameratarget, up)
    118. device.Transform.View = view
    119. device.Transform.Projection = projection
    120. End Sub
    127. '
    128. End Class


    Bitte eine Möglichkeit erklären meine Plolygone zu texturieren?
    Hab gar keine Idee wie ich anfangen soll. :whistling:

    Hi
    Einfach vor dem Renderaufruf der Polygone die Textur mit SetTexture(0, texture) setzten. Anschließend wieder auf Nothing setzen, da sie sonst für den nächsten Rendervorgang erneut gesetzt wird.

    VB.NET-Quellcode

    1. device.SetTexture(0, texture1)
    2. device.DrawUserPrimitives(PrimitiveType.TriangleList, 1, vertices1)
    3. device.SetTexture(0, texture2)
    4. device.DrawUserPrimitives(PrimitiveType.TriangleList, 1, vertices2)

    Gruß
    ~blaze~

    Hi,

    erst mal ändere deinen Vertex-Typ in PositionTextured - dann brauchst du keine Farbe mehr für deine Vertices, sondern Texturkoordinaten (siehe hier). Dann lädst du über die TextureLoader-Klasse ein Texture-Objekt und setzt es über die SetTexture-Methode deiner Device-Instanz als aktuelle Textur. Ein in meinen Augen gutes Tutorial (leider nur auf Englisch) gibt es hier.

    MfG

    Ach ja das mit den PositionTextured hatte ich vergessen zu schreiben.
    Es empfiehlt sich übrigens, die Vertices in einer Schleife o.ä. und mit Zuhilfenahme einer abstrakten Klasse oder eines Interfaces zu rendern. Dadurch kannst du bestimmte Änderungen vornehmen, ohne deinen kompletten Code umschreiben zu müssen.

    Gruß
    ~blaze~

    Endlich

    Also ich habs durch rumprobieren Rausbekommen hier der Code:

    VB.NET-Quellcode

    1. Imports Microsoft.DirectX
    2. Imports Microsoft.DirectX.Direct3D
    6. Public Class Form1
    8. Public bmp As Texture
    9. Public Shared device As Microsoft.DirectX.Direct3D.Device
    10. Public Sub Initialize()
    11. Dim present As PresentParameters = New PresentParameters
    12. present.Windowed = True 'we?ll draw on a window
    13. present.SwapEffect = SwapEffect.Discard 'discuss later
    14. device = New Microsoft.DirectX.Direct3D.Device(0, DeviceType.Hardware, Me, CreateFlags.HardwareVertexProcessing, present)
    15. device.RenderState.CullMode = Cull.Clockwise & Cull.CounterClockwise
    16. device.RenderState.Lighting = False
    19. End Sub
    21. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    22. kameraPosition = New Vector3(100, 500, 200)
    23. Kamera()
    25. End Sub
    30. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    31. Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.Opaque, True) 'Do not draw form?s background\
    32. Me.Height = 600
    33. Me.Width = 800
    34. Me.Text = "HI!!"
    36. Initialize()
    37. kameraPosition = New Vector3(-100, 180, -100)
    38. kameratarget = New Vector3(1000, 0, 4000)
    39. Kamera()
    40. End Sub
    42. Public yhigh As Integer = 31
    43. Public richtung As Boolean = True
    47. Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    50. If richtung = True Then
    51. yhigh = yhigh + 1
    52. Else
    53. yhigh = yhigh - 1
    55. End If
    58. If yhigh > 300 Then
    59. richtung = False
    60. End If
    62. If yhigh < 1 Then
    63. richtung = True
    64. End If
    66. Dim texte As Texture = TextureLoader.FromFile(device, "C:\Users\Jonas\Pictures\gbs\textur.jpg")
    67. Dim vertices1 As CustomVertex.PositionNormalTextured() = New CustomVertex.PositionNormalTextured(0 To 2) {} 'create an array of vertices
    68. vertices1(0).Position = New Vector3(1000, 0, 4000)
    70. vertices1(1).Position = New Vector3(2000, 0, 4000)
    72. vertices1(2).Position = New Vector3(0, 2000, 4000)
    73. vertices1(0).Tv = 500
    74. vertices1(0).Tu = 500
    75. vertices1(1).Tu = 500
    76. vertices1(2).Tu = 200
    77. vertices1(2).Tv = 200
    79. device.Clear(ClearFlags.Target, Color.Aqua, 1.0, 0)
    81. device.BeginScene() 'all drawings after this line
    82. device.VertexFormat = CustomVertex.PositionNormalTextured.Format
    86. device.SetTexture(0, texte)
    88. device.DrawUserPrimitives(PrimitiveType.TriangleList, 1, vertices1)
    93. device.EndScene() 'all drawings before this line
    95. device.Present()
    97. Me.Invalidate() 'redraw
    99. End Sub
    101. 'kamera
    102. Public Shared view As Matrix
    104. Public kameraPosition As Vector3
    105. Public kameratarget As Vector3
    106. Public Sub Kamera()
    110. Dim up As New Vector3(0, 1, 0)
    111. Dim projection As Matrix = Matrix.PerspectiveFovRH(Math.PI / 4, Me.ClientSize.Width / Me.ClientSize.Height, 1, 8000)
    114. view = Matrix.LookAtRH(kameraPosition, kameratarget, up)
    115. device.Transform.View = view
    116. device.Transform.Projection = projection
    117. End Sub
    124. '
    125. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „jonichecker“ () aus folgendem Grund: Geschaft

    device.RenderState.CullMode = Cull.Clockwise & Cull.CounterClockwise
    = Falsch :P

    VB.NET-Quellcode

    1. device.RenderState.CullMode = Cull.Clockwise Or Cull.CounterClockwise

    wäre richtig...

    außerdem solltest du die Textur sowie die Vertices nicht im Paint Event deklarieren(Performance sache...)
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

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

    evtl so?:

    VB.NET-Quellcode

    1. Dim fs As New IO.FileStream(datei)
    2. TextureLoader.FromStream(fs)

    (das Bild kannst du nicht als normalen Byte Array - mit den Farbwerten - übergeben)
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

Facebook
Telefonspende