var oQuaternion = XSIMath.CreateQuaternion() ;
Application.LogMessage( "Uninitialized Quaternion  " 
				+ oQuaternion.W + "," 
				+ oQuaternion.X + "," 
				+ oQuaternion.Y + "," 
				+ oQuaternion.Z ) ;
oQuaternion.SetIdentity() ;
Application.LogMessage( "Identity Quaternion  " 
				+ oQuaternion.W + "," 
				+ oQuaternion.X + "," 
				+ oQuaternion.Y + "," 
				+ oQuaternion.Z ) ;
//INFO : Uninitialized Quaternion  1,0,0,0
//INFO : Identity Quaternion  1,0,0,0

dim q1
' Create Quaternion.
set q1 = XSIMath.CreateQuaternion
q1.SetIdentity