'
' This example creates a sphere, applies a lambert shader to it, prints out
' the list of connection points to that shader, connects the toon shader 
' to the surface and shadow connection points and then prints the updated list.
'
' Create the sphere to which the shader will be connected
NewScene , false
set oSphere = CreatePrim( "Sphere", "NurbsSurface" )
' Apply a lambert shader to instantiate the material
sPresetPath = XSIUtils.BuildPath(_
        Application.InstallationPath(siFactoryPath), _
        "Data", "DSPresets", "Shaders", "Material", "Lambert.Preset" _
)
set oShader = SIApplyShader( sPresetPath, oSphere, "Christopher" )
' Convert the shader to a Shader object 
set oShader = oShader(0)
' Print lambert shader info 
printShaderInfo oShader
' Load a toon shader
CreateShaderFromPreset "Shaders\Material\Toon_Paint_Rounded.Preset", "Sources.Materials.DefaultLib.Material"
' For convenience, create a collection to hold the parameters
' to be disconnected (Surface and Shadow connection points).
set oCnxPoints = CreateObject( "XSI.Collection" )
oCnxPoints.Add oSphere & ".material.Surface"
oCnxPoints.Add oSphere & ".material.Shadow"
' Use that collection to connect the toon shader to the sphere 
set oToony = SIConnectShaderToCnxPoint( "Sources.Materials.DefaultLib.Material.Toon_Paint_Rounded", oCnxPoints )
' Convert the shader to a Shader object 
set oToony = oToony(0)
' Print toon shader info 
printShaderInfo oToony
' This is a convenience routine that prints information about the shader
sub printShaderInfo( in_shader )
        ' From the shader object you can get the material it belongs to
        set oMaterial = in_shader.Owners(0)
        ' Use the material to return the parameters that are connected and
        ' print out their names
        for each p in oMaterial.Parameters
                 if TypeName( p.Source ) <> "Nothing" then
                         Application.LogMessage p.ScriptName & " is connected to " & p.Source.Name
                 end if
        next
end sub
' Output of the above script:
' ...before adding the toon shader
' INFO : surface is connected to Christopher
' INFO : shadow is connected to Christopher
' INFO : Photon is connected to Christopher
'
' ...after adding the toon shader
' INFO : surface is connected to Phong
' INFO : shadow is connected to Phong
' INFO : Photon is connected to Lambert