Methode um Mesh.Box automatisch zu texturieren?

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

    Methode um Mesh.Box automatisch zu texturieren?

    Hallo

    Diese Frage bezieht sich auf Managed DirectX.
    Ich suche schon seit längerem eine Methode, um ein Mesh.Box - Objekt auf ALLEN Seiten mit einer(?) Textur zu überziehen.
    Das Problem liegt darin, dass der Befehl nur Positions-, nicht aber Texturdaten erstellt.
    Deshalb benötige ich einen Algorithmus, der eine(?) Textur um einen Würfel legt.
    Ich brauch keinen C&P Code, nur einen Denkanstoß, wie man die Texturkoordinaten setzen könnte.

    Vielen Dank,
    SᴛᴀʀGᴀᴛᴇ01

    Wenn du das Mesh entsprechend erstelltst, heißt nicht ReadOnly sondern Writeable, dann kannst du den VertexBuffer bearbeiten und entsprechend UV Koordinaten hinzufügen...
    msdn.microsoft.com/en-us/libra…b297092%28v=vs.85%29.aspx
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Danke :)
    Mein eigentliches Problem ist aber, aus den Positionsdaten die Texturdaten zu errechnen, so dass sich eine Textur um einen Würfel/Quader legen lässt.
    Daher wie ich die Daten verändere ist nicht das Problem, das weiß ich ^^
    Ich benötige nur eine Vorgehensweise die V und U Daten zu errechnen
    SᴛᴀʀGᴀᴛᴇ01

    da gibt es so gesehen nichts großes zu rechnen, es sei denn du willst es auf eine spezielle Art drüber legen, also musst du das gegebenenfalls nochmals erklären.

    Denn sogesehen gibst du einem Vertex nur eine UV Koordinate, welche eine Angabe in Prozent darstellt-> 0,0 entspricht dabei der linken oberen Ecke des Bildes und 1,1(=100%,100%) der rechten oberen...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Ich habs fertig, wens interressiert:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Shared Function TexturedBox(ByRef device As Direct3D.Device, width As Single, height As Single, depth As Single) As Direct3D.Mesh
    2. Dim adjacency As GraphicsStream = Nothing
    3. Dim box As Mesh = Mesh.Box(device, width, height, depth, adjacency)
    4. Dim texturedBox__1 As New Mesh(box.NumberFaces, box.NumberVertices, MeshFlags.Managed, CustomVertex.PositionNormalTextured.Format, device)
    6. Dim ranks As Integer() = New Integer(0) {}
    7. ranks(0) = box.NumberVertices
    8. Dim arr As System.Array = box.VertexBuffer.Lock(0, GetType(CustomVertex.PositionNormal), LockFlags.None, ranks)
    10. Using vb As VertexBuffer = texturedBox__1.VertexBuffer
    11. Dim data As System.Array = vb.Lock(0, GetType(CustomVertex.PositionNormalTextured), LockFlags.None, ranks)
    12. Dim ges As String = ""
    13. For i As Integer = 0 To arr.Length - 1
    14. Dim pn As Direct3D.CustomVertex.PositionNormal = DirectCast(arr.GetValue(i), CustomVertex.PositionNormal)
    15. Dim pnt As Direct3D.CustomVertex.PositionNormalTextured = DirectCast(data.GetValue(i), CustomVertex.PositionNormalTextured)
    16. pnt.X = pn.X
    17. pnt.Y = pn.Y
    18. pnt.Z = pn.Z
    19. pnt.Nx = pn.Nx
    20. pnt.Ny = pn.Ny
    21. pnt.Nz = pn.Nz
    24. Select Case i
    26. 'Rechts
    27. Case Is = 0
    28. pnt.Tu = 1
    29. pnt.Tv = 1
    30. Case Is = 1
    31. pnt.Tu = 2 / 3
    32. pnt.Tv = 1
    33. Case Is = 2
    34. pnt.Tu = 2 / 3
    35. pnt.Tv = 1 / 2
    36. Case Is = 3
    37. pnt.Tu = 1
    38. pnt.Tv = 1 / 2
    40. 'Oben
    41. Case Is = 6
    42. pnt.Tu = 1 / 3
    43. pnt.Tv = 1 / 2
    44. Case Is = 7
    45. pnt.Tu = 1 / 3
    46. pnt.Tv = 0
    47. Case Is = 4
    48. pnt.Tu = 2 / 3
    49. pnt.Tv = 0
    50. Case Is = 5
    51. pnt.Tu = 2 / 3
    52. pnt.Tv = 1 / 2
    54. 'Links
    55. Case Is = 8
    56. pnt.Tu = 0
    57. pnt.Tv = 1 / 2
    58. Case Is = 9
    59. pnt.Tu = 1 / 3
    60. pnt.Tv = 1 / 2
    61. Case Is = 10
    62. pnt.Tu = 1 / 3
    63. pnt.Tv = 1
    64. Case Is = 11
    65. pnt.Tu = 0
    66. pnt.Tv = 1
    68. 'Unten
    69. Case Is = 15
    70. pnt.Tu = 0
    71. pnt.Tv = 0
    72. Case Is = 12
    73. pnt.Tu = 1 / 3
    74. pnt.Tv = 0
    75. Case Is = 13
    76. pnt.Tu = 1 / 3
    77. pnt.Tv = 1 / 2
    78. Case Is = 14
    79. pnt.Tu = 0
    80. pnt.Tv = 1 / 2
    82. 'Vorne
    83. Case Is = 16
    84. pnt.Tu = 2 / 3
    85. pnt.Tv = 1
    86. Case Is = 17
    87. pnt.Tu = 1 / 3
    88. pnt.Tv = 1
    89. Case Is = 18
    90. pnt.Tu = 1 / 3
    91. pnt.Tv = 1 / 2
    92. Case Is = 19
    93. pnt.Tu = 2 / 3
    94. pnt.Tv = 1 / 2
    96. 'Hinten
    97. Case Is = 23
    98. pnt.Tu = 1
    99. pnt.Tv = 1 / 2
    100. Case Is = 22
    101. pnt.Tu = 1
    102. pnt.Tv = 0
    103. Case Is = 21
    104. pnt.Tu = 2 / 3
    105. pnt.Tv = 0
    106. Case Is = 20
    107. pnt.Tu = 2 / 3
    108. pnt.Tv = 1 / 2
    109. End Select
    110. data.SetValue(pnt, i)
    111. Next
    113. vb.Unlock()
    114. box.VertexBuffer.Unlock()
    115. End Using
    117. ranks(0) = box.NumberFaces * 3
    118. arr = box.LockIndexBuffer(GetType(Short), LockFlags.None, ranks)
    119. texturedBox__1.IndexBuffer.SetData(arr, 0, LockFlags.None)
    120. box.Dispose()
    121. Array.Clear(arr, 0, arr.Length)
    122. adjacency.Dispose()
    123. Array.Clear(ranks, 0, ranks.Length)
    124. Return texturedBox__1
    125. End Function


    Die Funktion setzt die Texturkoordinaten für einen Würfel für soeine Textur:
    [1][2][3]
    [4][5][6]
    Also ein Bild, unterteilt in 6 Segmente
    1 = Unten, 2 = Oben, 3 = Hinten, 4 = Links, 5 = Vorne, 6 = Rechts
    SᴛᴀʀGᴀᴛᴇ01

    Hi
    das Select Case in der Schleife macht keinen Sinn. Da setzt du es sogar lieber manuell. Überleg dir doch mal, wie du das per Bits, Bitshifts und Bitweise Verundungen lösen könntest, das wäre in Kombination mit dem Hochzählen der For-Schleife eine elegante Art.
    Übrigens dürfte das Laden der pnt aus dem Array unnötig sein, da du eh alle Werte setzt. Structs brauchen ja keine Initialisierung, da sie i.A. eh auf dem Stapel verarbeitet werden.
    Funktioniert eigentlich der Vertexpuffer von Box1 danach noch? Dispose aus Using sollte ja eigentlich die Resourcen freigeben.

    Gruß
    ~blaze~

Facebook
Telefonspende