LiveCode Forums.

Code: Select all

My version:

function getPixelColor pPt -- pass local stack-based pt
  put the screenmouseloc into tOldLoc
  put (item 1 of pPt) + (the left of this stack) into tloc
  put (item 2 of pPt) + (the top of this stack) into item 2 of tloc
  set the screenmouseloc to tloc
  put the mousecolor into tColor
  set the screenmouseloc to tOldLoc
  return tColor
end getPixelColor
------
Unknown author:

function readPixelColor pVal
   put globalLoc(pVal) into pVal
   put item 1 of pVal + 1 into item 3 of pVal
   put item 2 of pVal + 1 into item 4 of pVal
   export snapshot from rect pVal to templateImage
   get the imageData of templateImage
   reset templateImage
   return byteToNum(char 2 of it) & "," & byteToNum(char 3 of it) & "," & byteToNum(char 4 of it)
end readPixelColor

-------
Scott Rossi:

local theImageData

function getPixelColor pImage,pX,pY
   if theImageData is empty then put the imageData of pImage into theImageData
   put width of pImage into W
   put ((pY-1)*W)*4+pX*4 into lastChar
   put charToNum(char lastChar of theImageData) into B
   put charToNum(char lastChar-1 of theImageData) into G
   put charToNum(char lastChar-2 of theImageData) into R
   return R,G,B
end getPixelColor

This should retrieve the color of a pixel in a target image based on the X,Y
offset of the touch from the topLeft.  The idea is to store the imageData of
the target image in theImageData variable so the function doesn't have to
retrieve it repeatedly.

I've been wanting mouseColor on iOS myself and while not true mouseColor,
this comes close.  Hope this helps.

Code: Select all

on mouseUp
   put the imageData of img 1 into temp
   repeat with x = 1 to the height of img 1 step 3
      repeat with y = 1 to the width of img 1 step 3
         repeat with u = 1 to 4
            put byteToNum(char y of temp) & "," after accum
         end repeat
         delete the last char of accum
         put "*" after accum
      end repeat
      delete the last char of accum
      put return after accum
   end repeat
end mouseUp

Code: Select all

on mouseMove x,y
   if the mouseLoc is within the rect of img "myImage" then set the backColor of grc "gTestColor" to the mouseColor
end mouseMove

Code: Select all

go stack url "https://netrin.on-rev.com/searchimage/pixelColor.livecode"