NewScene , false
set oImageClip = CreateImageClip( "$SI_HOME\Data\XSI_SAMPLES\Pictures\jio.jpg" )
set oImage = oImageClip.GetImage
dim aPixelWanted(1,3)
aPixelWanted(0,0) = 0 : aPixelWanted(1,0) = 0
aPixelWanted(0,1) = 0 : aPixelWanted(1,1) = 1
aPixelWanted(0,2) = 0 : aPixelWanted(1,2) = 2
aPixelWanted(0,3) = 0 : aPixelWanted(1,3) = 3
'Read the requested pixel values
rgba = oImage.GetPixelArray( aPixelWanted )
for i=LBound(rgba,2) to UBound(rgba,2)
logmessage "Pixel i :" & i
LogMessage "R :" & rgba(0,i)
LogMessage "G :" & rgba(1,i)
LogMessage "B :" & rgba(2,i)
LogMessage "A :" & rgba(3,i)
next |