/*

	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