Sub GetSpriteLinearVelocityFromLocalPoint( spr_id, pX, pY, ByRef x, ByRef y)
Get the world velocity of a local point.