/*
	This example demonstrates how to find all sources in the scene
	by using the Model.Sources property on every model returned from
	the X3DObject.Models property, given this structure:
	    Scene_Root (Model)
	        |- Herb (Model)
	        |    |- Mixer		(animation clip on null.posx)
	        |    |- null 		(null.size = FCurve)
	        |
	        |- Jesse (Model)
	        |    |- Mixer		(animation clips on null.scly,null.sclz,null.rotz)
	        |    |- null
	        |
	        |- Sally (Model)
	             |- Mixer		(audio clip)
	             |- grid		(image on its texture projection)
*/
function FindSourcesUnderModel( in_model )
{
	// We will return a comma-delimited string of the names of all sources found 
	var foundsrcs = "";
	Application.LogMessage( "\n\tSearching " + in_model.FullName + " for sources...", siComment );
	// Loop through the collection of sources found under this model to print the
	// name and add its name to the result string
	if ( in_model.Sources.Count > 0 ) {
		var s = new Enumerator( in_model.Sources );
		for ( ; !s.atEnd(); s.moveNext() ) {
			var src = s.item();
			Application.LogMessage( "\t" + src.FullName + " is a " + ClassName(src), siComment );
			// Shorthand for making sure we don't add an extra comma to the start of the list
			foundsrcs += ( foundsrcs == "" ) ? src.FullName : "," + src.FullName;
		}
	} else {
		Application.LogMessage( "\tNo sources found on " + in_model.FullName, siComment );
	}
	// Return empty strings too; the caller will handle testing for no data
	return foundsrcs;
}
// Set up the scene (see end of example for details)
SetTheScene();
// Search through all models in the scene for sources
var models = new ActiveXObject( "XSI.Collection" );
models.AddItems( ActiveSceneRoot.Models(true) );
models.Add( ActiveSceneRoot );
Application.LogMessage( "SEARCHING MODELS: " + models.GetAsText(), siComment );
// Build a collection of sources
var sources = new ActiveXObject( "XSI.Collection" );
for ( var m=0; m<models.Count; m++ ) {
	var results = FindSourcesUnderModel( models(m) );
	if ( results != "" ) { 
		sources.AddItems(results); 
	}
}
// Now this source collection contains all sources in the scene,
// regardless of which model they are under
Application.LogMessage( "\nFINAL SCORE: Found " + sources.Count + " sources: ", siComment );
Application.LogMessage( sources.GetAsText(), siComment );
// And just for bonus marks, get the list of external files
var extfiles = ActiveProject.ActiveScene.ExternalFiles;
Application.LogMessage( "\nBONUS: Found " + extfiles.Count + " external file(s)", siComment );
for ( var f=0; f<extfiles.Count; f++ ) {
	Application.LogMessage( "\t" + extfiles(f).ResolvedPath, siComment );
}
// Expected results:
//SEARCHING MODELS: Herb,Jesse,Sally,Scene_Root
//
//	Searching Herb for sources...
//	Sources.Herb.Shuffle is a ActionSource
//
//	Searching Jesse for sources...
//	Sources.Jesse.Zinging is a ActionSource
//	Sources.Jesse.Thwacking is a ActionSource
//
//	Searching Sally for sources...
//	No sources found on Sally
//
//	Searching Scene_Root for sources...
//	No sources found on Scene_Root
//
//FINAL SCORE: Found 3 sources: 
//Sources.Herb.Shuffle,Sources.Jesse.Zinging,Sources.Jesse.Thwacking
//
//BONUS: Found 2 external file(s)
//	C:\Program Files\Messenger\ONLINE.WAV
//	<factory_path>\Application\rsrc\noIcon.pic
// Helper function to make this example more readable
function SetTheScene()
{
	NewScene( null, false );
	// ~~~~ HERB'S SETUP ~~~~ 
	var herb = ActiveSceneRoot.AddModel();
	herb.Name = "Herb";
	var obj = herb.AddNull();
	// Make the icon a diamond
	obj.primary_icon = 7;
	// Set up an fcurve on the size of the null
	var keys = new Array( 1, 1,  34, 12,  73, 38 );
	obj.size.AddFCurve2( keys );	
	// Set up another fcurve on the null's position in X
	keys = new Array( 3, 0.5,  22, 1.0,  75, 3.5,  80, -2.0 );
	var fc = obj.posx.AddFCurve2( keys );
	// Store the fcurve on posx as an action source
	herb.AddActionSource( "Shuffle", new Array(obj.posx.FullName), 
		new Array(fc), new Array(true) );
	// ~~~~ JESSE'S SETUP ~~~~ 
	var jess = ActiveSceneRoot.AddModel();
	jess.Name = "Jesse";
	obj = jess.AddNull();
	// Create an action source on the null's scaling in Y and Z (fcurves)
	keys = new Array( 5, 1.2,  20, 1.7,  45, 2.0,  90, 2.5 );
	targets = new Array( obj.scly.FullName, obj.sclz.FullName );
	sources = new Array( obj.scly.AddFCurve2(keys), obj.sclz.AddFCurve2(keys) );
	actives = new Array( true, true );
	jess.AddActionSource( "Zinging", targets, sources, actives );
	// Add a rotation source too
	keys = new Array( 6, 0,  36, -30,  99, 0 );
	targets = new Array( obj.rotz.FullName );
	sources = new Array( obj.rotz.AddFCurve2(keys) );
	actives = new Array( true );
	jess.AddActionSource( "Thwacking", targets, sources, actives );
	// ~~~~ SALLY'S SETUP ~~~~ 
	var sal = ActiveSceneRoot.AddModel();
	sal.Name = "Sally";
	obj = sal.AddGeometry( "Grid", "MeshSurface" );
	// Create a grid with a texture projection
	ApplyShader( obj, null, null, siUnspecified, siLetLocalMaterialsOverlap );
	CreateProjection( obj, siTxtSpherical, siTxtDefaultSpherical, "", "Texture_Projection", null, siRelDefault, "" );
	// Applying an image to the texture projection creates an image source
	BlendInTextureLayers( "Image", obj, 1, false, siReplaceAndBlendInPreset, true, true, false, false );
	// Also add an audio source and instantiate it in the mixer
	var aud = ImportAudio( sal, null, "Wavy" );
	AddAudioClip( sal, aud );
}