/*
	Example showing how to use SIQuaternion.Slerp 
	to blend between two rotations
*/
//
// Code for the example scripted operator
//
strDeclOperatorGlobals = "var gQA, gQB, gQC;" ;
function Slerper_Init( ctx )
{
	// The SIQuaternion objects are global
	// to avoid recreating them at each update
	gQA = XSIMath.CreateQuaternion() ;
	gQB = XSIMath.CreateQuaternion() ;
	gQC = XSIMath.CreateQuaternion() ;
}
function Slerper_Update( ctx, outC, inA, inB )
{
	slerpFactor = ctx.Parameters( "Slerp" ).Value ;
	oATrans = inA.Value.Transform ;
	oATrans.GetRotationQuaternion( gQA ) ;
	oBTrans = inB.Value.Transform ;
	oBTrans.GetRotationQuaternion( gQB ) ;
	gQA.Normalize() ;
	gQB.Normalize() ;
	gQC.Slerp( gQA, gQB, slerpFactor ) ; 
	oCTrans = outC.Value.Transform ;
	oCTrans.SetRotationFromQuaternion( gQC ) ;
	// Very important: oCTrans is just a temporary
	// so we must set it back to change it
	outC.Value.Transform = oCTrans ;
}
//
// Demo the scripted operator
//
// Build 3 cones.  C will show the blended rotation of A and B
NewScene( null,false) ;
var oConeA = ActiveSceneRoot.AddPrimitive( "Cone", "A" ) ;
var oConeB = ActiveSceneRoot.AddPrimitive( "Cone", "B" ) ;
var oConeC = ActiveSceneRoot.AddPrimitive( "Cone", "C" ) ;
//
// Set some initial position/rotation
//
oTransA = XSIMath.CreateTransform() ;
oTransA.SetTranslationFromValues( 5, 0 , 0 ) ;
oTransA.SetRotationFromXYZAnglesValues( 0, 0 , XSIMath.DegreesToRadians(-90) ) ;
oConeA.Kinematics.Global.Transform = oTransA ;
oTransB = XSIMath.CreateTransform() ;
oTransB.SetTranslationFromValues( -5, 0 , 0 ) ;
oTransB.SetRotationFromXYZAnglesValues( 0, 0 , XSIMath.DegreesToRadians(90) ) ;
oConeB.Kinematics.Global.Transform = oTransB ;
//
// Connect the Kinematics
//
strOpCode = strDeclOperatorGlobals + 
			Slerper_Init.toString() + 
			Slerper_Update.toString() ;
oOp = XSIFactory.CreateScriptedOp( 
			"Slerper", 
			strOpCode,
			"JScript"
			) ;
oOp.AddOutputPort( oConeC.Kinematics.Global ) ;
oOp.AddInputPort( oConeA.Kinematics.Global )
oOp.AddInputPort( oConeB.Kinematics.Global ) ;
oSlerp = oOp.AddParameter ( XSIFactory.CreateParamDef2("Slerp", siDouble, 0.5, 0, 1) );
oOp.Connect() ;
// Show the operator so that the Slerp amount can be changed with a slider
InspectObj( oOp ) ;

dim q1, q2, q3
' Create Quaternions.
set q1 = XSIMath.CreateQuaternion(1.0, 1.0, 2.0, 3.0)
set q2 = XSIMath.CreateQuaternion(1.0, 4.0, 5.0, 6.0)
set q3 = XSIMath.CreateQuaternion
q1.Normalize
q2.Normalize
for alpha = 0 to 1 step .1
q3.Slerp q1, q2, alpha
'do something with q3
next