When I run this code I expect the mesh to look light blue, but its blinding white.
Public Sub InitClouds()
' Dim BoxMin As D3DVECTOR
' Dim BoxMax As D3DVECTOR
' mModel.GetBoundingBox BoxMin, BoxMax, True
Dim width As Single
Dim length As Single
Dim X1 As Single, Z1 As Single, X2 As Single, Z2 As Single
X1 = (MapLength * Map.Size.x) * -1
Z1 = (MapLength * Map.Size.Z) * -1
X2 = (MapLength * Map.Size.x)
Z2 = (MapLength * Map.Size.Z)
Set mModel = scene.CreateMeshBuilder("Clouds")
MatFactory.CreateMaterial "clouds"
MatFactory.SetAmbient GetMat("clouds"), 0.3, 0.3, 0, 1
MatFactory.SetDiffuse GetMat("clouds"), 0, 0, 0, 1
MatFactory.SetEmissive GetMat("clouds"), 1, 1, 1, 0
MatFactory.SetSpecular GetMat("clouds"), 0, 0, 0, 0
MatFactory.SetPower GetMat("clouds"), 0
mModel.AddFloor 0, X1, Z1, X2, Z2
mModel.AddWall3D 0, X1, Z1, X1, Z2, -500
mModel.AddWall3D 0, X1, Z1, X2, Z1, -500
mModel.AddWall3D 0, X2, Z1, X2, Z2, -500
mModel.AddWall3D 0, X1, Z2, X2, Z2, -500
mModel.SetPosition 0, 300, 0
mModel.SetMaterial GetMat("clouds")
End Sub