/*
        Example of Matrix multiplication
*/
var m1 = XSIMath.CreateMatrix4( 1.0,  2.0, 3.0, 4.0, 
                                       5.0,  6.0, 7.0, 8.0, 
                                           9.0, 10.0,11.0,12.0, 
                                           13.0,14.0,15.0,16.0 );
var m2 = XSIMath.CreateMatrix4( 1.0,  0.0, 0.0, 0.0, 
                                       0.0,  0.0, 1.0, 0.0, 
                                           0.0,  1.0, 0.0, 0.0, 
                                           0.0,  0.0, 0.0, 1.0 ) ;
var m3 = XSIMath.CreateMatrix4();
var m4 = XSIMath.CreateMatrix4();
// The m2 matrix will swap 2 and 3rd rows
// m3 is the composition of m1 and m2
m3.Mul( m2, m1 ) ;
Application.LogMessage( "Multipled matrix" ) ;
PrintMatrix( m3 ) ;
// m2 is invertible, so we can restore 
// the original matrix 
// (In fact this is not necessary
// because inversion of m2 = m2)
m2.InvertInPlace()  ;
PrintMatrix( m2 ) ;
m4.Mul( m2, m3 ) ;
Application.LogMessage( "Restored matrix" ) ;
PrintMatrix( m4 ) ;
function PrintMatrix( 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 ) ;
        }
}
//INFO : Multipled matrix
//INFO : 1              2               3               4               
//INFO : 9              10              11              12              
//INFO : 5              6               7               8               
//INFO : 13             14              15              16              
//INFO : Restored matrix
//INFO : 1              2               3               4               
//INFO : 5              6               7               8               
//INFO : 9              10              11              12              
//INFO : 13             14              15              16

'
' This example demonstrates how to multiply two
' 4x4 matrices and store the result in a third
'
dim m1 : set m1 = XSIMath.CreateMatrix4(_
        1.0, 0.0, 0.0, 0.0, _
        0.0, 2.0, 0.0, 0.0, _
        0.0, 0.0, 3.0, 0.0, _
        0.0, 0.0, 0.0, 1.0) 
dim m2 : set m2 = XSIMath.CreateMatrix4(_
        4.0, 0.0, 0.0, 0.0, _
        0.0, 3.0, 0.0, 0.0, _
        0.0, 0.0, 2.0, 0.0, _
        0.0, 0.0, 0.0, 1.0)
dim m3 : set m3 = XSIMath.CreateMatrix4
m3.Mul m1, m2