/*

	This example demonstrates how to find all sources in the scene when there 

	are several levels of models all with their own sources. Something to note

	is that only ActionSources are returned from the Model.

*/

NewScene( null, false );

// Set up the scene (details are at the bottom of this example)

var m1 = ActiveSceneRoot.AddModel(); m1.Name = "Larry"

var m2 = m1.AddModel(); m2.Name = "Curly"

var m3 = m2.AddModel(); m3.Name = "Moe"

CreateModelSource( ActiveSceneRoot );

CreateImageSource(m1);

CreateShapeAction(m2);

CreateAudioSource(m3);

// Start with the top level model (the Scene_Root) and the use the Models property

// to search recursively. Since all action sources are stored under the model, once

// we've visited each model, we will have found each source in the scene.

LogMessage( "RecursiveModelSearch results: " + RecursiveModelSearch(ActiveSceneRoot) );

// Expected Results:

// INFO : MODEL: Scene_Root

// INFO : MODEL: Larry

// INFO : MODEL: Curly

// INFO : MODEL: Moe

// INFO : MODEL: Biped_Skeleton_Generated

// INFO : RecursiveModelSearch results: Curly.Mixer.ShapeKey,Curly.Mixer.Shape_ClusterClip_source,Curly.Mixer.ShapeKey1,Curly.Mixer.ShapeKey2

function RecursiveModelSearch( in_model )

{

	LogMessage( "MODEL: " + in_model.FullName );

	// Start with the top-level model

	// Get a comma-delimited string of all sources found under this model

	var foundsrcs = ( in_model.Sources ) ? in_model.Sources.GetAsText() : "";

	// For every model nested within this scene, check it for sources

	var mdl = new Enumerator( in_model.Models(true) );

	for ( ; ! mdl.atEnd(); mdl.moveNext() ) {

		LogMessage( "MODEL: " + mdl.item().FullName );

		var results = in_model.Sources;

		if ( results ) {

			foundsrcs += "," + mdl.item().Sources.GetAsText();

		}

	}

	// Correct any instances of a double or leading/trailing commas which may have 

	// occurred when reading a model with no sources

	foundsrcs = foundsrcs.replace( /,,/g, "," );

	foundsrcs = foundsrcs.replace( /^,/, "" );

	foundsrcs = foundsrcs.replace( /,$/, "" );

	// Return the string, which can be used by the caller to set an XSICollection,

	// populate a combo box, etc.

	return foundsrcs;

}

// This is an handy function to have around if you're going to create an action 

// source or clip on a parameter that is in a nested model (ie., not directly 

// under the Scene_Root) because AddClip will force a mapping template if your 

// parameter is not relative.

function GetRelativeNameForTarget( in_param )

{

	var mdlname = in_param.Model.FullName;

	if ( mdlname == "Scene_Root" ) {

		return in_param.FullName;

	} else {

		var tmp = in_param.FullName;

		var re = new RegExp( mdlname + ".", "i" );

		return tmp.replace( re, "" );

	}

}

// Helper functions to create & instantiate sources

function CreateShapeAction( in_model )

{

	var obj = in_model.AddGeometry( "Cone", "MeshSurface" );

	var target = obj + ".pnt[0,2,5,8,11,14,17,20,23]"

	SetSelFilter( "Vertex" );

	SelectGeometryComponents( target );

	Translate( null, 0, -2, 0, siAbsolute, siPivot, siObj, siY, null, 

		null, null, null, null, null, null, null, null, 1 );

	var clip = SaveShapeKey( target, null, null, 1, null, null, null, 

		null, siShapeObjectReferenceMode );

	Translate( null, 0, -1, 0, siAbsolute, siPivot, siObj, siY, null, 

		null, null, null, null, null, null, null, null, 1 );

	SaveShapeKey( target, null, null, 36, null, null, null, null, 

		siShapeObjectReferenceMode );

	Translate( null, 0, 0, 0, siAbsolute, siPivot, siObj, siY, null, 

		null, null, null, null, null, null, null, null, 1 );

	SaveShapeKey( target, null, null, 67, null, null, null, null, 

		siShapeObjectReferenceMode );

}

function CreateAudioSource( in_model )

{

	var mixmaster = ( in_model.HasMixer() ) ? in_model.Mixer : in_model.AddMixer();

	var aud_track = AddTrack( in_model, mixmaster, 2 );

	var aud_path = XSIUtils.BuildPath(

		Application.InstallationPath(siFactoryPath),

		"Data", "XSI_SAMPLES", "Audio", "Torefaction.wav"

	);

	var aud_src = ImportAudio( in_model, aud_path );

	AddAudioClip( in_model, aud_src, mixmaster, aud_track, 22 );

}

function CreateImageSource( in_model )

{

	var cube = in_model.AddGeometry( "Cube", "MeshSurface" );

	SelectObj( cube );

	ApplyShader( null, null, null, siUnspecified, siLetLocalMaterialsOverlap );

	CreateProjection( cube, siTxtSpherical, siTxtDefaultSpherical, "", "Texture_Projection", null, siRelDefault, "" );

	BlendInTextureLayers( "Image", cube, 1, false, siReplaceAndBlendInPreset, true, true, false, false);

}

function CreateModelSource()

{

	ImportModel( "S:\\Data\\XSI_SAMPLES\\Models\\Biped_Skeleton_Generated.emdl", null, true, 

		null, null, null, null );

}

# 

# This example demonstrates how to access every clip in the specified model. 

# In this case there are two clips in different models and only the top 

# model has been queried, so only the constraint action will be returned

#

def FindClipsUnderModel( in_model ) :

	# First make sure we have a mixer

	if  in_model.HasMixer()==0 :

		return ""

	mixer = in_model.Mixer

	# We will return a comma-delimited string of all sources found

	foundclips = ""

	Application.LogMessage( "\n\tSearching " + mixer.FullName + " for clips...", c.siComment );

	if mixer.Clips.Count > 0 :

		for clip in mixer.Clips :

			Application.LogMessage( "\t" + clip.FullName + " is a " + ClassName(clip) + "/" + clip.Type, c.siComment )

			if foundclips == "" :

				foundclips = foundclips + clip.FullName 

			else : 

				foundclips = foundclips + "," + clip.FullName

	else :

		Application.LogMessage( "\tNo sources found on " + mixer.FullName, c.siComment )

	return foundclips

# Helper function to strip off model name for FullNames

def GetRelativeNameForTarget( in_param ) :

	mdlname = in_param.Model.FullName

	if  mdlname == "Scene_Root" :

		return in_param.FullName

	else :

		tmp = in_param.FullName

		return tmp.replace( mdlname + ".", "" )

# Helper function to create constraint-based action

def CreateConstraintAction( in_model ) :

	# Build Orientation Constraint to null from cylinder

	a = in_model.AddNull()

	Application.SelectObj(a)

	Application.Translate("", 5.5173674053756, 2.96222253259053, 

		-0.296222253259053, c.siRelative, c.siView, c.siObj, 

		c.siXYZ, "", "", "", "", "", "", "", "", "", 1)

	b = in_model.AddGeometry("Cylinder", "MeshSurface" )

	Application.SetUserPref( "SI3D_CONSTRAINT_COMPENSATION_MODE", 1)

	Application.ApplyCns( "Orientation", b, a, 1 )

	Application.SetUserPref( "SI3D_CONSTRAINT_COMPENSATION_MODE", 0 )

	# Relative names (needed for AddClip under a nested model)

	relB = GetRelativeNameForTarget( b )

	# Make it into an Action (constraints are always on global Kinematics)

	# Get list of parameters to mark

	params = relB + "*/.kine.global.ori.euler"

	Application.StoreAction( in_model, params, 4, 

		"StoredAnimCnsAction", 1, 1, 100, 0, 0, 1, 1 )

# Helper function to create fcurve-based action

def CreateFCurveAction( in_model ) :

	obj = in_model.AddNull()

	# Set FCurves on the null's scaling

	keys = [ 5, 1.2,  20, 1.7,  45, 2.0,  90, 2.5 ]

	obj.sclx.AddFCurve2( keys )

	keyfactor = 0.66

	posfactor = 0.54

	i=0

	while i < len(keys) :

		keys[i] = keys[i] + keyfactor

		keys[i+1] = keys[i+1] * posfactor

		i = i + 2

	obj.scly.AddFCurve2( keys )

	keyfactor = 0.27

	posfactor = 0.44

	while i < len(keys) :

		keys[i] = keys[i] - keyfactor

		keys[i+1] = keys[i+1] * posfactor

		i = i + 2

	obj.sclz.AddFCurve2( keys )

	# Get list of parameters to mark

	params = obj.sclx.FullName + "," + obj.scly.FullName + "," + obj.sclz.FullName

	# Make the FCurves into an Action

	src = Application.StoreAction( in_model, params, 2, "StoredAnimFCrvAction" )

	clip = Application.AddClip( in_model, src )

	# Add some clip effects to it

	toclip = clip.Name + ".ActionClip"

	rtn = Application.GetMappingRule( toclip, 0 )

	fromclip = rtn.Value( "From" )

	Application.SetMappingRule( toclip, fromclip, "this+5", 1 )

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# 	MAIN

#

Application.NewScene( "", 0)

from win32com.client import constants as c

# Set up some animation action nested inside models (see bottom for functions)

CreateFCurveAction( Application.ActiveSceneRoot )

m1 = Application.ActiveSceneRoot.AddModel()

m1.Name = "Sunshine"

CreateConstraintAction( m1 )

# Get a collection of clips under every model

results = FindClipsUnderModel( Application.ActiveSceneRoot )

if results != "" :

	cliplist = XSIFactory.CreateActiveXObject( "XSI.Collection" )

	cliplist.AddItems( results )

# Print out list

for clip in cliplist :

	Application.LogMessage( clip.Name + " is a " + clip.Type )

# Expected results:

#

#	Searching Mixer for clips...

#	Mixer.Mixer_Anim_Track.StoredAnimFCrvAction_Clip is a Clip/mixeranimclip

#INFO : StoredAnimFCrvAction_Clip is a mixeranimclip

'

' This example demonstrates how to crawl through the Mixer to try and extract

' all the interesting pieces of data, through clips, sources, tracks, etc.

'

NewScene , false

' Set up some clips in the mixer

CreateStaticAction( ActiveSceneRoot )

CreateShapeAction( ActiveSceneRoot )

CreateAudioSource( ActiveSceneRoot )

' Traverse the mixer, finding as much info as we can

ReadMixerContents ActiveSceneRoot.Mixer

sub ReadMixerContents( in_mixer )

	LogMessage vbTab & "Reading " & in_mixer.FullName & " in ReadMixerContents()" 

	' CLIPS

	LogMessage vbTab & vbTab & "Found " & in_mixer.Clips.Count & " clip(s)."

	ReadClipsFromContainer in_mixer 

	' TRACKS

	LogMessage vbTab & vbTab & "Found " & in_mixer.Tracks.Count & " track(s)."

	for each trk in in_mixer.Tracks

		' TRACKS::CLIPS

		ReadClipsFromContainer trk 

	next

	' TRANSITIONS

	LogMessage vbTab & vbTab & "Found " & in_mixer.Transitions.Count & " transition(s)."

	for each trns in in_mixer.Transitions

		LogMessage vbTab & vbTab & vbTab & "Found the " & trns.FullName &  _

			" transition which starts at frame " & trns.StartClip &  _

			" and ends at frame " & trns.EndClip

	next

	' NESTED RELATIONS

	LogMessage vbTab & vbTab & "Found " & in_mixer.NestedRelations.Count & " nested relation(s)."

	if in_mixer.NestedRelations.Count > 0 then

		ReadRelations in_mixer.NestedRelations

	end if

end sub

sub ReadClipsFromContainer( in_can )

	LogMessage vbTab & "Reading " & in_can.FullName & " in ReadClipsFromContainer()"

	for each clp in in_can.Clips

		' MAPPEDITEMS

		if clp.Type <> siClipAudioType then

			if TypeName(clp.MappedItems) <> "Nothing" then

				LogMessage vbTab & vbTab & "Found " & clp.MappedItems.Count & " mapped items(s)"

				for each mapping in clp.MappedItems

					LogMessage vbTab & vbTab & vbTab & mapping.FullName & ": " & ClassName(mapping)

					' MAPPEDITEMS::CLIPEFFECTITEM

					ReadClipEffectItem mapping.ClipEffectItem 

				next

			end if

		end if

		' TIMECONTROL

		if  TypeName(clp.TimeControl) <> "Nothing" then

			LogMessage vbTab & vbTab & "Found this clip's time control: " & clp.TimeControl.FullName

			set tc = clp.TimeControl

			LogMessage vbTab & vbTab & vbTab & "Scaling Factor: " & tc.Scale 

			LogMessage vbTab & vbTab & vbTab & "Start Offset: " & tc.StartOffset 

			LogMessage vbTab & vbTab & vbTab & "First Frame: " & tc.ClipIn 

			LogMessage vbTab & vbTab & vbTab & "Last Frame: " & tc.ClipOut 

			LogMessage vbTab & vbTab & vbTab & "siTimeControlExtrapolationType before this clip: " _

				& tc.ExtrapolationBeforeType & " (" & tc.ExtrapolationBeforeValue & ")" 

			LogMessage vbTab & vbTab & vbTab & "siTimeControlExtrapolationType after this clip: " _

				& tc.ExtrapolationAfterType & " (" & tc.ExtrapolationAfterValue & ")" 

		else

			LogMessage vbTab & "TimeControl is not available on this clip."

		end if

		' SOURCE

		LogMessage vbTab & vbTab & "Found this clip's source: " & clp.Source.FullName & "(" & ClassName(clp.Source) & ")"

		' EFFECT

		if TypeName(clp.Effect) <> "Nothing" then

			LogMessage vbTab & vbTab & "Found this clip's effect: " & clp.Effect.FullName 

			ReadClipEffect clp.Effect 

		end if

		' RELATIONS

		LogMessage vbTab & vbTab & "Found " & clp.Relations.Count & " relation(s) on this clip." 

		ReadRelations clp.Relations 

	next

end sub

sub ReadClipEffect( in_clpeff )

	LogMessage vbTab & "Reading " & in_clpeff.FullName & " in ReadClipEffect()"

	' CLIPEFFECTITEMS

	LogMessage vbTab & vbTab & "Found " & in_clpeff.Items.Count & " clip effect item(s)" 

	for each thing in in_clpeff.Items

		ReadClipEffectItem thing

	next

	' VARIABLES

	LogMessage vbTab & vbTab & "Found " & in_clpeff.Variables.Count & " variables(s)" 

	if  in_clpeff.Variables.Count > 0 then

		for each var in in_clpeff.Variables

			LogMessage vbTab & vbTab & vbTab & "Found this variable on the clip effect: " & var.FullName

		next

	end if

	' TIMEREFERENCE

	if TypeName(in_clpeff.TimeReference) <> "Nothing" then

		dim trparams

		if in_clpeff.TimeReference then

			trparams = "spans over extrapolation (siExtrapolatedClip)"

		else 

			trparams = "repeats itself over time (siOriginalClip)"

		end if

		LogMessage vbTab & vbTab & "Found this time reference indicating that this clip effect item: " & trparams 

	else

		LogMessage vbTab & vbTab & "No time reference found on the clip effect" 

	end if

	' POSEEFFECT

	if TypeName(in_clpeff.PoseEffect) <> "Nothing" then

		LogMessage vbTab & vbTab & "Found this pose effect property on the clip effect: " _

			& in_clpeff.PoseEffect.FullName & " containing " _

			& in_clpeff.PoseEffect.Parameters.Count & " parameters...."

		set peparams = in_clpeff.PoseEffect.Parameters

		for each p in peparams

			LogMessage vbTab & vbTab & vbTab & "Found this parameter on the pose effect property: " & p.FullName 

		next

	else

		LogMessage vbTab & vbTab & "No pose effect property found on the clip effect" 

	end if

	' ISACTIVE

	LogMessage vbTab & vbTab & "Is this clip effect active? -- " & in_clpeff.IsActive 

	' ISPOSEEFFECTACTIVE

	LogMessage vbTab & vbTab & "Is the pose effect on this clip effect active? -- " & in_clpeff.IsPoseEffectActive 

end sub

sub ReadRelations( in_rels )

	LogMessage vbTab & "Reading " & in_rels.GetAsText() & " in ReadRelations()" 

	for each rel in in_rels

		LogMessage vbTab & vbTab & vbTab & "Master: " & in_rels(r).MasterClip

		LogMessage vbTab & vbTab & vbTab & "Slave: " & in_rels(r).SlaveClip

	next

end sub

sub ReadClipEffectItem( in_clpeffitm )

	LogMessage vbTab & vbTab & "Reading " & in_clpeffitm.FullName & " in ReadClipEffectItem()" 

	LogMessage vbTab & vbTab & vbTab & "Value of " & in_clpeffitm.Parameter.FullName & " = " & in_clpeffitm.Parameter.Value 

	dim str 

	if in_clpeffitm.Expression = "" then

		str = "(no expression)" 

	else

		str = in_clpeffitm.Expression

	end if

	LogMessage vbTab & vbTab & vbTab & "Value of ClipEffectItem.Expression = " & str 

end sub

' Expected Results:

'INFO : 	Reading Mixer in ReadMixerContents()

'INFO : 		Found 2 clip(s).

'INFO : 	Reading Mixer in ReadClipsFromContainer()

'INFO : 		Found 1 mapped items(s)

'INFO : 			MappedItem: MappedItem

'INFO : 		Reading  in ReadClipEffectItem()

'INFO : 			Value of Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.param = 0

'INFO : 			Value of ClipEffectItem.Expression = (no expression)

'INFO : 		Found this clip's time control: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.timectrl

'INFO : 			Scaling Factor: 1

'INFO : 			Start Offset: 1

'INFO : 			First Frame: 1

'INFO : 			Last Frame: 100

'INFO : 			siTimeControlExtrapolationType before this clip: 0 (0)

'INFO : 			siTimeControlExtrapolationType after this clip: 0 (0)

'INFO : 		Found this clip's source: Mixer.Shape_ClusterClip_source(ActionSource)

'INFO : 		Found this clip's effect: 

'INFO : 	Reading  in ReadClipEffect()

'INFO : 		Found 1 clip effect item(s)

'INFO : 		Reading  in ReadClipEffectItem()

'INFO : 			Value of Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.param = 0

'INFO : 			Value of ClipEffectItem.Expression = (no expression)

'INFO : 		Found 0 variables(s)

'INFO : 		Found this time reference indicating that this clip effect item: spans over extrapolation (siExtrapolatedClip)

'INFO : 		Found this pose effect property on the clip effect: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState containing 9 parameters....

'INFO : 			Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.sclx

'INFO : 			Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.scly

'INFO : 			Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.sclz

'INFO : 			Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.posx

'INFO : 			Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.posy

'INFO : 			Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.posz

'INFO : 			Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.orix

'INFO : 			Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.oriy

'INFO : 			Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.oriz

'INFO : 		Is this clip effect active? -- True

'INFO : 		Is the pose effect on this clip effect active? -- False

'INFO : 		Found 0 relation(s) on this clip.

'INFO : 	Reading  in ReadRelations()

'INFO : 		Found this clip's time control: Mixer.Mixer_Audio_Track.Clip.timectrl

'INFO : 			Scaling Factor: 1

'INFO : 			Start Offset: 22

'INFO : 			First Frame: 1

'INFO : 			Last Frame: 6.87475789516606

'INFO : 			siTimeControlExtrapolationType before this clip: 0 (0)

'INFO : 			siTimeControlExtrapolationType after this clip: 0 (0)

'INFO : 		Found this clip's source: Sources.NEWALERT_WAV(Source)

'INFO : 		Found 0 relation(s) on this clip.

'INFO : 	Reading  in ReadRelations()

'INFO : 		Found 2 track(s).

'INFO : 	Reading Mixer.Mixer_Shape_Track in ReadClipsFromContainer()

'INFO : 		Found 1 mapped items(s)

'INFO : 			MappedItem: MappedItem

'INFO : 		Reading  in ReadClipEffectItem()

'INFO : 			Value of Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.param = 0

'INFO : 			Value of ClipEffectItem.Expression = (no expression)

'INFO : 		Found this clip's time control: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.timectrl

'INFO : 			Scaling Factor: 1

'INFO : 			Start Offset: 1

'INFO : 			First Frame: 1

'INFO : 			Last Frame: 100

'INFO : 			siTimeControlExtrapolationType before this clip: 0 (0)

'INFO : 			siTimeControlExtrapolationType after this clip: 0 (0)

'INFO : 		Found this clip's source: Mixer.Shape_ClusterClip_source(ActionSource)

'INFO : 		Found this clip's effect: 

'INFO : 	Reading  in ReadClipEffect()

'INFO : 		Found 1 clip effect item(s)

'INFO : 		Reading  in ReadClipEffectItem()

'INFO : 			Value of Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.param = 0

'INFO : 			Value of ClipEffectItem.Expression = (no expression)

'INFO : 		Found 0 variables(s)

'INFO : 		Found this time reference indicating that this clip effect item: spans over extrapolation (siExtrapolatedClip)

'INFO : 		Found this pose effect property on the clip effect: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState containing 9 parameters....

'INFO : 			Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.sclx

'INFO : 			Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.scly

'INFO : 			Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.sclz

'INFO : 			Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.posx

'INFO : 			Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.posy

'INFO : 			Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.posz

'INFO : 			Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.orix

'INFO : 			Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.oriy

'INFO : 			Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.oriz

'INFO : 		Is this clip effect active? -- True

'INFO : 		Is the pose effect on this clip effect active? -- False

'INFO : 		Found 0 relation(s) on this clip.

'INFO : 	Reading  in ReadRelations()

'INFO : 	Reading Mixer.Mixer_Audio_Track in ReadClipsFromContainer()

'INFO : 		Found this clip's time control: Mixer.Mixer_Audio_Track.Clip.timectrl

'INFO : 			Scaling Factor: 1

'INFO : 			Start Offset: 22

'INFO : 			First Frame: 1

'INFO : 			Last Frame: 6.87475789516606

'INFO : 			siTimeControlExtrapolationType before this clip: 0 (0)

'INFO : 			siTimeControlExtrapolationType after this clip: 0 (0)

'INFO : 		Found this clip's source: Sources.NEWALERT_WAV(Source)

'INFO : 		Found 0 relation(s) on this clip.

'INFO : 	Reading  in ReadRelations()

'INFO : 		Found 0 transition(s).

'INFO : 		Found 0 nested relation(s).

' Helper routines to create the sources

sub CreateStaticAction( in_model )

	set obj = in_model.AddGeometry( "Cone", "MeshSurface" )

	targets = Array( obj.rotx.FullName, obj.roty.FullName, obj.rotz.FullName )

	statics = Array( 22.5, 90, 45 )

	actives = Array( true, true, true )

	in_model.AddActionSource "StoredAnimStaticAction", targets, statics, actives 

end sub

sub CreateShapeAction( in_model )

	set obj = in_model.AddGeometry( "Cone", "MeshSurface" )

	target = obj & ".pnt[0,2,5,8,11,14,17,20,23]"

	SetSelFilter "Vertex" 

	SelectGeometryComponents target 

	Translate , 0, -2, 0, siAbsolute, siPivot, siObj, siY, , , , , , , , , , 1 

	set clip = SaveShapeKey( target, , , 1, , , , , siShapeObjectReferenceMode )

	target = clip.Source.SourceItems(0).Target

	Translate , 0, -1, 0, siAbsolute, siPivot, siObj, siY, , , , , , , , , , 1 

	SaveShapeKey target, , , 36, , , , , siShapeObjectReferenceMode 

	Translate , 0, 0, 0, siAbsolute, siPivot, siObj, siY, , , , , , , , , , 1 

	SaveShapeKey target, , , 67, , , , , siShapeObjectReferenceMode 

end sub

sub CreateAudioSource( in_model )

	if in_model.HasMixer() then

		set mixmaster = in_model.Mixer 

	else

		set mixmaster = in_model.AddMixer()

	end if

	set aud_track = AddTrack( in_model, mixmaster, 2 )

	var aud_src_path = XSIUtils.BuildPath( Application.InstallationPath( siFactoryPath ), "Data", "XSI_SAMPLES", "Audio", "Torefaction.wav" );

var aud_src = ImportAudio( mdl, aud_src_path );

	AddAudioClip in_model, aud_src, mixmaster, aud_track, 22 

end sub