'
'	This example shows how to access the shader on an object
'
NewScene , false
dim root, grid
set root = ActiveProject.ActiveScene.Root
set grid = root.AddGeometry("Grid", "MeshSurface")
'Create a Lambert shader
grid.AddMaterial "Lambert" 
'Access the new Shader
LogMessage "Shader name:" & grid.Material.Shaders(0).Name

'
'	This example shows how to recursively search a render tree
'
'	It shows how to access Shaders via the Source property of a Parameter
'	It also shows how to use XSICollection object to accumulate a list of objects
'
'	Note: to find ImageClips the Material.ImageClips property can be used rather
'	a recursive scan like this.  And the FindObjects command can be used to find
'	all shaders of a particular type.
'
set oObj = BuildDemoScene			' Create a little sample render tree
FindShaders(oObj)					' Search the scene to find and log shaders
' ---------------------------------------------------
' Expected results:
' INFO : Skipping Sources.Materials.DefaultLib.Material.Phong
' INFO : SUMMARY: Searched 2 shader(s)
' INFO : SHADERS SEARCHED:
' INFO : Sources.Materials.DefaultLib.Material.Phong
' INFO : Sources.Materials.DefaultLib.Material.Lambert
' ---------------------------------------------------
' This is the actual code doing the searching
sub FindShaders( in_oObj )
	dim oShaderList, oImageClipList
	set oShaderList = CreateObject("XSI.Collection")
	oShaderList.Unique = true
	' We expect the input object to be a "SceneItem" object
	set oMat = in_oObj.Material
	' Although not actually a shader, we start searching
	' for shaders from the parameters of the material
	SearchShader oMat, oShaderList
	Application.LogMessage "SUMMARY: Searched " & oShaderList.Count & " shader(s)"
	if ( oShaderList.Count > 0 ) then
		Application.LogMessage "SHADERS SEARCHED:"
		for each oShader in oShaderList
			Application.LogMessage oShader.Fullname
		next				
	end if
end sub
' Recursively search any connected shaders
' Each shader is visited only once
sub SearchShader( in_oShader, io_oVisitedShaderList)
	for each oParam in in_oShader.Parameters
		if typename( oParam.Source ) = "Shader" then
			if ( NOT IsShaderInList(oParam.Source, io_oVisitedShaderList) ) then
				io_oVisitedShaderList.Add(oParam.Source)
				' Recursively search this shader
				SearchShader oParam.Source, io_oVisitedShaderList 
			end if 
		end if
	next
end sub
' Determines if a shader is already in an XSICollection
function IsShaderInList( oShader, io_oVisitedShaderList )
	for each oVisitedShader in io_oVisitedShaderList	
		if (oVisitedShader.FullName = oShader.FullName) then
			Application.LogMessage "Skipping " & oShader.FullName
			IsShaderInList = true
			exit function
		end if
	next
	IsShaderInList = false 
end function
' ---------------------------------------------------
' Create a little sample render tree
' It has no interesting visual appearance but is a render tree with
' various shaders and two images so that we can demonstrate the 
' FindImageClips routine
'
' Return value is the X3DObject
function BuildDemoScene
	ImageFile1 = XSIUtils.BuildPath(_
		Application.InstallationPath(siFactoryPath), _
		"Data", "XSI_SAMPLES", "Pictures", "jaiqua_face.jpg" )			
	ImageFile2 = XSIUtils.BuildPath(_ 
		Application.InstallationPath(siFactoryPath), _
		"Data", "XSI_SAMPLES", "Pictures", "ehair_08.jpg" )			
	NewScene , false
	set oObj = ActiveSceneRoot.AddGeometry("Sphere", "MeshSurface")
	oObj.AddMaterial "Phong" 
	dim oPhongShader, oAmbientParam, oDiffuseParam, oShinyParam
	set oPhongShader = oObj.Material.Shaders(0)
	set oAmbientParam = oPhongShader.Parameters("ambient")
	set oDiffuseParam = oPhongShader.Parameters("diffuse")	
	set oShinyParam = oPhongShader.Parameters("shiny")	
	dim oImageClip1, oImageClip2
	SICreateImageClip ImageFile1, ,oImageClip1	
	SICreateImageClip ImageFile2, ,oImageClip2
	dim oImageNode1,oImageNode2
	set oImageNode1 = oAmbientParam.connectfrompreset("Image", siTextureShaderFamily)
	oDiffuseParam.Connect(oImageNode1)	
	oImageNode1.Parameters("tex").Connect(oImageClip1)
	set oImageNode2 = oShinyParam.connectfrompreset("Image", siTextureShaderFamily)
	oImageNode2.Parameters("tex").Connect(oImageClip2)
	' Commands can also be used to build a render tree
	CreateShaderFromPreset "Shaders\Material\Lambert.Preset", "Sources.Materials.DefaultLib.Material"
	SIConnectShaderToCnxPoint "Sources.Materials.DefaultLib.Material.Lambert", oObj.Material & ".Photon"
	' Return the sphere
	set BuildDemoScene = oObj
end function

/*
	This example lists all installed shaders with their ProgId and OutputType, 
	plus all texturable parameters and their shader input type.
*/
var re = / /g;
var strShaderNames = Dictionary.info("",siShaderFamily).replace(re,"");
var aShaders = strShaderNames.split(",");
XSIUtils.QuickSort( aShaders );
var colitem = XSIFactory.CreateObject("XSI.CollectionItem");
var cShaders = 0;
for ( var i = 0; i < aShaders.length; i++ )
{
	var shader = null;
	var progid = "Softimage." + aShaders[i];
	if ( progid == "Softimage.TraversalCallback" ) continue;
	try {
		shader = XSIFactory.CreateObject( progid );
	} catch (e) {
		logmessage( "Error: can't create shader : " + progid );
		continue;
	}
	cShaders++;
	logmessage( progid + " " + ShaderParameterTypeAsText(shader.OutputType) );
	var params = shader.parameters;
	for ( var j = 0; j < params.count; j++ )
	{
		var param = shader.parameters(j);
		if ( param.capabilities & siTexturable )					
			logmessage( "\t" + param.name + " " + ShaderParameterTypeAsText(shader.GetShaderInputType(param.scriptname)));
	}
}
logmessage( "Shaders found = " + cShaders );
function ShaderParameterTypeAsText(type)
{
	switch (type)
	{
		case siUnknownParameterType : return "siUnknownParameterType";			
		case siBooleanParameterType : return "siBooleanParameterType";			
		case siColorParameterType : return "siColorParameterType";			
		case siDataParameterType : return "siDataParameterType";			
		case siIntegerParameterType : return "siIntegerParameterType";			
		case siLensParameterType : return "siLensParameterType";			
		case siLightParameterType : return "siLightParameterType";			
		case siMaterialParameterType : return "siMaterialParameterType";			
		case siMatrixParameterType : return "siMatrixParameterType";			
		case siModelParameterType : return "siModelParameterType";			
		case siRealTimeParameterType : return "siRealTimeParameterType";			
		case siReferenceParameterType : return "siReferenceParameterType";			
		case siScalarParameterType : return "siScalarParameterType";			
		case siShaderParameterType : return "siShaderParameterType";			
		case siStringParameterType : return "siStringParameterType";			
		case siStructParameterType : return "siStructParameterType";			
		case siTextureParameterType : return "siTextureParameterType";			
		case siTextureSpaceParameterType : return "siTextureSpaceParameterType";			
		case siVectorParameterType : return "siVectorParameterType";			
		default: return type;
	}
}
//