'Die eigentlich Änderung besteht in der Hirachie der Array's
'in der die XFiles (Meshes) gespeichert werden.
'Die Animation besteht aus 8 Schritten.
Public Type XGroup
  IndexList() As Integer
  VertexList() As D3DVERTEX
  RenderVertexList() As D3DVERTEX
  mat As D3DMATERIAL7
  Texture As DirectDrawSurface7
  TextureFileName As String
End Type

Public Type strcCharacter
  Groups() As XGroup
End Type

Public GroupCount As Long
Public Character(7) As strcCharacter

'Laden der Single-Mesh Animation
'Es werden alle Schritte der Animation einzeln geladen und
'in den oben angeführten Array's abgelegt.
For ID = 0 To 7
  XFileModule.XFile_Load "stickman_" & ID & ".x", ID
Next

 'Szene rendern
 'Dem Rendervorgang wird der einzelne Animations-Schritt mitgeteilt.
Render3D CInt(AnimationKey)
AnimationKey = AnimationKey + 0.1
If CInt(AnimationKey) > 7 Then AnimationKey = 0

Public Sub Render3D(ByVal ID As Integer)
  Dim i As Integer

  Device.Clear 1, ClearRec(), _
        D3DCLEAR_TARGET Or D3DCLEAR_ZBUFFER, _
        DX7.CreateColorRGBA(0.2, 0.2, 0.4, 0), 1, 0
  Device.BeginScene

  For i = 0 To GroupCount - 1
    Call Device.SetMaterial(Character(ID).Groups(i).mat)
    Call Device.DrawPrimitive(D3DPT_TRIANGLELIST, D3DFVF_VERTEX, _
      Character(ID).Groups(i).RenderVertexList(0), _
      UBound(Character(ID).Groups(i).RenderVertexList) + 1, _
      D3DDP_WAIT)
  Next

  Device.EndScene
End Sub