/*
        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