' 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