Sub NewtonPhysicsTick()
Dim i, j
i = (xBAM.NewtonCounter Mod 256) / 256
j = ((xBAM.NewtonCounter + 128) Mod 256) / 256
Call Flasher1Ext.SpotLight(2, i * 360, 80, 75)
Call Flasher2Ext.SpotLight(2, j * 360, 80, 75)
Call Flasher3Ext.SpotLight(2, i * 360, 80, 75)
Call Flasher4Ext.SpotLight(2, j * 360, 80, 75)
End Sub
xBAM.RayCastShadows.Enable= True
'xBAM.RayCastShadows.Set sharpness, darkLevel
'xBAM.RayCastShadows.Sharpness = 0.8
'xBAM.RayCastShadows.DarkLevel - 0.2
xBAM.RayCastShadows.Set 0.8
xBAM.ShadowMap "flasher1", 800 , 1 , 5, 1, 10
xBAM.ShadowMap "flasher2", 800 , 1 , 5, 1, 10
xBAM.ShadowMap "flasher3", 800 , 1 , 5, 1, 10
xBAM.ShadowMap "flasher4", 800 , 1 , 5, 1, 10