Объясните пожалуйста - в чем проблема? Есть 3D объект, и направленный свет. Координаты источника света 5,5,5 а направления 10,10,10. Объект почему-то освещается совершенно наоборот. Пишу так:
Sub InitLight(lgt As D3DLIGHT8, ltype As CONST_D3DLIGHTTYPE, x As Single, y As Single, z As Single)
lgt.Type = ltype
lgt.diffuse = ColorValue4(1, 1, 1, 1)
lgt.Attenuation1 = 1
lgt.Attenuation0 = 0
lgt.Attenuation2 = 0
lgt.Range = 300
lgt.Direction.x = x + 5
lgt.Direction.y = y + 5
lgt.Direction.z = z + 5
lgt.Position.x = x
lgt.Position.y = y
lgt.Position.z = z
End Sub
Sub Render()
...
Dim lght As D3DLIGHT8
InitLight lght, D3DLIGHT_DIRECTIONAL, 5, 5, 5
D3DDevice.SetLight 0, lght
D3DDevice.LightEnable 0, 1
...
End Sub
Объект находится в точке 0,0,0