/*
	Demonstration of the Matrix4 object used to 
	print the contents of a Transformation
*/
var oNull = ActiveSceneRoot.AddNull() ;
var oSITransformation = oNull.Kinematics.Local.Transform ;
Application.LogMessage( "Default Transformation Matrix" ) ;
PrintTransformationAsMatrix( oSITransformation ) ; 
oSITransformation.SetTranslationFromValues( 5, 6, 7) ;
oSITransformation.SetScalingFromValues( 1, 4, 1) ;
Application.LogMessage( "Transformation with scaling and translation" ) ;
PrintTransformationAsMatrix( oSITransformation ) ; 
function PrintTransformationAsMatrix( in_Transform )
{
	var oMatrix4 = XSIMath.CreateMatrix4(); 
	oSITransformation.GetMatrix4(oMatrix4) ;
	for ( var row = 0 ; row < 4 ; row++ )
	{	
		strLine = "" ;
		for( var col = 0 ; col < 4 ; col++ )
		{
			strLine += oMatrix4.Value( row, col ) + "\t\t";
		}
		Application.LogMessage( strLine ) ;
	}
}
//Output:
//INFO : Default Transformation Matrix
//INFO : 1		0		0		0		
//INFO : 0		1		0		0		
//INFO : 0		0		1		0		
//INFO : 0		0		0		1		
//INFO : Transformation with scaling and translation
//INFO : 1		0		0		0		
//INFO : 0		4		0		0		
//INFO : 0		0		1		0		
//INFO : 5		6		7		1

'
' This illustrates how to convert a position from local coordinates
' to global coordinates
'
set oRoot = Application.ActiveProject.ActiveScene.Root
if Selection.Count = 0 then
	' create a sample scene
	set oModel = oRoot.AddModel
	oModel.posx.value = 5
	set oObject = oModel.AddNull
	oObject.posx.value = 5
else
	set oObject = Selection(0)
end if
'
' Create transformation matrix4 from global transform
'
set oGlobalParameters = oObject.kinematics.global.parameters
Set globalScl = XSIMath.CreateVector3
call globalScl.Set( _
	oGlobalParameters("sclx").value, _
	oGlobalParameters("scly").value, _
	oGlobalParameters("sclz").value )
Set globalRot = XSIMath.CreateVector3
call globalRot.Set( _
	oGlobalParameters("rotx").value, _
	oGlobalParameters("roty").value, _
	oGlobalParameters("rotz").value )
Set globalTrs = XSIMath.CreateVector3
call globalTrs.Set( _
	oGlobalParameters("posx").value, _
	oGlobalParameters("posy").value, _
	oGlobalParameters("posz").value )
set m4Global = CreateMatrix4(globalScl,globalRot,globalTrs)
'
' get local position
'
Set v3Pos = XSIMath.CreateVector3
call v3Pos.Set( oObject.posx.value, oObject.posy.value, oObject.posz.value )
Application.LogMessage "local position = " & v3Pos.x & ", " & v3Pos.y & ", " & v3Pos.z
'
' transform local to global position
'
Set v3Pos = XSIMath.CreateVector3
call v3Pos.MulByMatrix4( v3Pos, m4Global )
Application.LogMessage "global position = " & v3Pos.x & ", " & v3Pos.y & ", " & v3Pos.z
'
' Create and initialize SIMatrix4 using from the scaling, rotation and
' translation values (SIVector3)
'
Function CreateMatrix4( inv3Scl, inv3Rot, inv3Pos )
	Dim l_Rot, l_Trs, l_Matrix, l_RadToDeg, l_DegToRad
	Set l_Rot = XSIMath.CreateVector3
	Set l_Trs = XSIMath.CreateTransform
	Set l_Matrix = XSIMath.CreateMatrix4
	l_RadToDeg = 180.0 / 3.1415926535897932
	l_DegToRad = 3.1415926535897932 / 180.0
	'Conversion of the rotation angles into radians
	l_Rot.Copy inv3Rot
	l_Rot.ScaleInPlace l_DegToRad
	'Create an SI Transform first.
	l_Trs.SetScaling inv3Scl
	l_Trs.SetTranslation inv3Pos
	l_Trs.SetRotationFromXYZAngles l_Rot
	'Extract a Matrix from that transform.
	l_Trs.GetMatrix4 l_Matrix
	Set CreateMatrix4 = l_Matrix
End Function