1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
'[------------------------------------]
' 3. RENDER LAYERS
'[------------------------------------]
If bRenderLayer Then
D3DDev.SetStreamSource(0, vbLayer, 0)
Dim i As Long
For i = 0 To iLayer - 1 Step 18
D3DDev.SetStreamSource(0, vbLayer, 0)
D3DDev.DrawPrimitives(PrimitiveType.TriangleStrip, i, 8)
D3DDev.DrawPrimitives(PrimitiveType.TriangleStrip, i + 10, 2)
D3DDev.DrawPrimitives(PrimitiveType.TriangleStrip, i + 14, 2)
Next i
End If
'[------------------------------------]
' 4. RENDER ELEMENTS
'[------------------------------------]
D3DDev.SetStreamSource(0, vbElem, 0)
D3DDev.VertexFormat = CustomVertex.PositionColoredTextured.Format
D3DDev.DrawPrimitives(PrimitiveType.LineList, 0, iElem / 2) |
Partager