' create a 3D object

CreatePrim "Sphere", "MeshSurface"

' set some keyframes

SetValue "PlayControl.Key", 1

SetValue "PlayControl.Current", 1

Translate , -5, 0, 0, siRelative, siView, siObj, siXYZ

SaveKey "sphere.kine.local.posx,sphere.kine.local.posy,sphere.kine.local.posz", 1

SetValue "PlayControl.Key", 30

SetValue "PlayControl.Current", 30

Translate , 10, 0, 0, siRelative, siView, siObj, siXYZ

SaveKey "sphere.kine.local.posx,sphere.kine.local.posy,sphere.kine.local.posz", 30

SetValue "PlayControl.Key", 15

SetValue "PlayControl.Current", 15

' enable ghosting in view

SetValue "Camera.camdisp.animghostenable", True

' toggle ghosting on sphere

ToggleGhosting