/*

	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