'---------------------------------------------------------
' VBScript example : Setting image clip sources. This script
' demonstrates the use of SetImageSource to set the source
' image for image clips.
'---------------------------------------------------------
' Get the filenames of some image sources.
Dim XSIsrc, Teethsrc, Jiosrc
Source1 = Application.InstallationPath( siFactoryPath ) & "\Data\XSI_SAMPLES\Pictures\xsilogo.jpg"
Source2 = Application.InstallationPath( siFactoryPath ) & "\Data\XSI_SAMPLES\Pictures\top_teeth.jpg"
Source3 = Application.InstallationPath( siFactoryPath ) & "\Data\XSI_SAMPLES\Pictures\jio.jpg"
' Now create some image clips with the images assigned.
Dim XSIClip, TeethClip, JioClip
SICreateImageClip Source1, "XSI", XSIClip
SICreateImageClip Source2, "Teeth", TeethClip
SICreateImageClip Source3, "Jio", JioClip
logmessage "Image clip " & XSIClip & " created with source " & Source1
logmessage "Image clip " & TeethClip & " created with source " & Source2
logmessage "Image clip " & JioClip & " created with source " & Source3
' If the image clips are inspected at this point, notice that each clip
' has a source image related to its name. (i.e Clips.XSI source = xsilogo.jpg).
' Now we can change the image sources, so that they are associated with different clips
SetImageSource "Sources.xsilogo_jpg", JioClip
SetImageSource "Sources.jio_jpg", TeethClip & "," & XSIClip
'---------------------------------------------------------
' Output from this script:
'INFO : "Image clip Clips.XSI created with source <FatoryPath>\Data\XSI_SAMPLES\Pictures\xsilogo.jpg"
'INFO : "Image clip Clips.Teeth created with source <FatoryPath>\XSI_SAMPLES\Pictures\top_teeth.jpg"
'INFO : "Image clip Clips.Jio created with source <FatoryPath>\Data\XSI_SAMPLES\Pictures\jio.jpg"
'---------------------------------------------------------