' 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