'------------------------------------------------------------------
' This example shows how to add an image clip from an image source.
'------------------------------------------------------------------
option explicit
' 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" )
' Now output some information about the clip, and its source.
Dim SourceName, SourceFile, XRes, YRes
SourceName = GetValue( oClipObj & ".Source.Name" )
logmessage oClipObj & " Source       : " & CStr(SourceName)
SourceFile = GetValue( oClipObj & ".SourceFileName" )
logmessage oClipObj & " Source File  : " & CStr(SourceFile)
XRes = GetValue( "Sources." & SourceName & ".XRes" )
logmessage oClipObj & " X Resolution : " & CInt(XRes)
YRes = GetValue( "Sources." & SourceName & ".YRes" )
logmessage oClipObj & " Y Resolution : " & CInt(YRes)
'---------------------------------------------------------
' Output from this script:
'INFO : "Clips.XSIlogo_Clip Source       : XSIlogo"
'INFO : "Clips.XSIlogo_Clip Source File  : <FactoryPath>\Data\XSI_SAMPLES\Pictures\xsilogo.jpg"
'INFO : "Clips.XSIlogo_Clip X Resolution : 500"
'INFO : "Clips.XSIlogo_Clip Y Resolution : 513"
'---------------------------------------------------------