' Create a cone. It will be used to capture the motion data.
CreatePrim "Cone", "MeshSurface"
SetValue "PlayControl.Out", 500
' Enable the Device manager
If Not Application.Devices.Enable Then
Application.Devices.Enable = True
End If
' Add the Mouse Driver if it is not there.
set oDevice = Application.Devices.Item("Mouse")
If TypeName (oDevice) = "Nothing" Then
set oDevice = Application.Devices.AddDevice( "Mouse" )
End If
oDevice.Enable = True
' Start capturing data
StartChannelCapture
' Here you need to move the mouse
' Stop the capture (note that in scripting you won't get any motion data
' because there is no delay between the start and the stop!
StopChannelCapture