This example applies the transformation (45 degrees-rotation around
the x axis and a translation) stored in TransformationArray
to the Move object associated with myMovableObject:
Dim TransformationArray( 11 )
'Rotation( 45 degrees around the x axis) components
TransformationArray( 0 ) = 1.000
TransformationArray( 1 ) = 0
TransformationArray( 2 ) = 0
TransformationArray( 3 ) = 0
TransformationArray( 4 ) = 0.707
TransformationArray( 5 ) = 0.707
TransformationArray( 6 ) = 0
TransformationArray( 7 ) = -0.707
TransformationArray( 8 ) = 0.707
'Translation Vector (10,20,30)
TransformationArray( 9 ) = 10.000
TransformationArray( 10 ) = 20.000
TransformationArray( 11 ) = 30.000
MyMovableObject.Move.Apply TransformationArray