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