codice:
Structure oggX
'struttura per la gestione semplice delle mesh
Public mesh As Mesh
Public numX As Integer
Public tex() As Texture
Public mat() As Material
End Structure
Function creaMesh(ByVal fileSrc As String, ByVal materialiOn As Boolean, ByVal textureOn As Boolean, ByVal TexPath As String) As oggX
With creaMesh
Dim materiali() As ExtendedMaterial
.mesh = Mesh.FromFile(fileSrc, MeshFlags.Dynamic, device, materiali)
.numX = UBound(materiali)
ReDim .tex(.numX)
ReDim .mat(.numX)
Dim i As Integer
For i = 0 To .numX
If textureOn Then
If materiali(i).TextureFilename <> "" Then
.tex(i) = TextureLoader.FromFile(device, TexPath & "\" & materiali(i).TextureFilename)
End If
End If
If materialiOn Then
.mat(i) = materiali(i).Material3D
.mat(i).Ambient = .mat(i).Diffuse 'pongo l'ambiente uguale alla diffuse
End If
Next
End With
End Function
ovviamente prima devi aver creato il device, il mondo la stanza e il main loop