' The script demonstrates the relationship between the Image, ImageClip and Source
' objects
Option Explicit
' ----------------------------------------------------------------
' create a new image clip
' ----------------------------------------------------------------
newscene , false
dim oImageClip 
set oImageClip = CreateImageClip( _
                "$SI_HOME\Data\XSI_SAMPLES\Pictures\jio.jpg", _
                "MyImage" )
logmessage "image familes->" & oImageClip.families
' ----------------------------------------------------------------
' get startframe, endframe, xdimension and ydimension parameters
' ----------------------------------------------------------------
if typename(oImageClip) <> "Nothing" then
        'Use the source to get image information
        dim oImageSource : set oImageSource = oImageClip.Source
        logmessage "startframe->" & oImageSource.FrameStart.Value
        logmessage "endframe->" &  oImageSource.FrameEnd.Value
        logmessage "xdimension ->" &  oImageSource.XRes.Value
        logmessage "ydimension ->" &  oImageSource.YRes.Value
        'Read bottom left pixel 
        dim oImage : set oImage = oImageClip.GetImage
        dim oPixel : set oPixel = oImage.GetPixel( 0, 0 )
        logmessage "The pixel color is:"
        logmessage "R: " & oPixel.Red 
        logmessage "G: " & oPixel.Green
        logmessage "B: " & oPixel.Blue
        logmessage "A: " & oPixel.Alpha
        logmessage "xdimension (method2) ->" &  oImage.ResX
        logmessage "ydimension (method2)->" &  oImage.ResY
        logmessage "Channels ->" &  oImage.NumChannels
        logmessage "Channel Size (bytes) ->" &  oImage.ChannelSize       
end if
' ----------------------------------------------------------------
' Demonstrate how to find all image clips in the scene
' ----------------------------------------------------------------
logmessage "All image clips in Scene:"
dim oImageClips : set oImageClips = Project_GetImageClips()
for each oImageClip in oImageClips
        logmessage "Image Clip->" &oImageClip 
next 
' ----------------------------------------------------------------
' Return collection of project image clips
' ----------------------------------------------------------------
function Project_GetImageClips()
        dim oCol : set oCol = enumelements( "Clips.Image" )
        set Project_GetImageClips = sifilter( oCol, "Image Clips", ,siSearchFamilies )
end function