level 14
Option Explicit
Dim IDLight As Long
Dim cam As New TVCamera
Dim maths As New TVMathLibrary
Public Sub Init_Light()
Set TVLight = New TVLightEngine
'IDLight = TVLight.CreatePointLight(Vector3(4670, 90, 0), 255, 255, 255, 1000, "Light", 1)
IDLight = TVLight.CreateSpotLight(cam.GetPosition, maths.VNormalize(cam.GetRotation), 255, 255, 255, 1000, 157, 314)
End Sub
Public Sub Render_Light()
Call TVLight.SetLightPosition(IDLight, CamPos.x, CamPos.y, CamPos.z)
End Sub Public Sub Kill_Light()
Set TVLight = Nothing
End Sub
2013年03月19日 00点03分
