' 
' This example demonstrates how DeleteUnusedImageSources works by connecting
' an image clip to a cylinder (so it's protected from DeleteUnusedImageSources).
' Then it deletes the image clip (so it's unused) and then runs the
' DeleteUnusedImageSources command again, which removes the image clip and its
' source from the scene.
'
' Tip: To see the difference between running DeleteUnusedImageSources before
' deleting the clip and after, first run the example up to the PART TWO
' comment. Then run the rest of the example to see the difference.
'
' PART ONE
NewScene , false
CreatePrim "Cylinder", "MeshSurface"
' First, add an image source.
Dim oSourceObj, ImageFile
ImageFile = Application.InstallationPath( siFactoryPath ) & "/Data/XSI_SAMPLES/Pictures/xsilogo.jpg"
SIAddImageSource ImageFile, "XSIlogo", oSourceObj
' Now create an image clip from the image source.
Dim oClipObj 
set oClipObj = AddImageClip( oSourceObj, "XSIlogo_Clip" )
SIConnectShaderToCnxPoint oClipObj, "Sources.Materials.DefaultLib.Scene_Material.Phong.ambient"
' Running this will have no effect
DeleteUnusedImageSources
' PART TWO
' Now delete the image clip, so the source will become un-used.
DeleteObj "Clips.XSIlogo_Clip"
' Running this will remove the image source since it un-used now.
DeleteUnusedImageSources