'example showing using ApplyKinematicsOp to 

'deform an object based on its motion

dim oCone, oOps, oOp

newscene , false

SetValue "PlayControl.Current", 1

SetValue "PlayControl.Out", 60

'Create a cone that moves across the x-axis

set oCone = CreatePrim( "Cone", "MeshSurface" )

oCone.Parameters( "posx" ).AddFCurve2( Array( 1, -8, 50, 8 ) )

'Add a qstretch operator that will deform the

'cone as it moves

set oOps = ApplyKinematicOp( "QStretch", oCone )

set oOp = oOps.Item(0)

oOp.Parameters( "linvel_flexampl" ).Value = 0.5

PlayForwardsFromStart