'

' This example demonstrates how to transpose and invert 

' a 4x4 matrix, store the result of the operation in 

' the first matrix, and then trap whether the invert

' and transpose operation was successful.

'

dim m1 : set m1 = XSIMath.CreateMatrix4(_

	2.0, 3.0, 0.0, 0.0, _

	1.0, 4.0, 0.0, 0.0, _

	0.0, 0.0, 1.0, 0.0, _

	0.0, 0.0, 0.0, 1.0)

if m1.TransposeInverseInPlace then

	Application.LogMessage "Success :-D"

else

	Application.LogMessage "Failure :-("

end if

' Expected result:

' INFO : Success :-D

/*

	Create two cubes, the first one uses Matrix4.Set function and 

	the second uses the transpose inverse matrix of the first

*/

NewScene(null, false);

var oRoot = Application.ActiveProject.ActiveScene.Root;

var oCube = oRoot.AddGeometry("Cube", "MeshSurface", "CubeOriginal");	

var oCube2 = oRoot.AddGeometry("Cube", "MeshSurface", "CubeTransposed");	

var oTrans = oCube.Kinematics.Local.Transform;

var oTrans2 = oCube2.Kinematics.Local.Transform;

// Change the cube shape	

var oMat4 = XSIMath.CreateMatrix4( 

	1.0, 1.0, 0.0, 10.0, 

	0.0, 1.0, 0.0, 0.0, 

	0.0, 0.0, 1.0, 0.0, 

	0.0, 0.0, 0.0, 1.0 

);

// Original cube

oTrans.SetMatrix4(oMat4);

oCube.Kinematics.Local.Transform = oTrans;

// Transpose inverse cube

oMat4.TransposeInverseInPlace();

oTrans2.SetMatrix4(oMat4);

oCube2.Kinematics.Local.Transform = oTrans2;