>If you make any headway with the new image properties, please share with
the
>list.  I've been hoping/begging/pleading for some elaboration here, but
to
>date haven't seen any details posted...
I uploaded a demo stack a while ago to
ftp://members.aol.com/tuvsnyder/mcdemos/imagedata.mc

here's a function to get the color of a pixel in an image using imagedata

function bintorgb trgb
  return chartonum(char 4 of trgb),chartonum(char 3 of
trgb),chartonum(char 2 of trgb)
end bintorgb

function getPixel x,y,imagenum
  put the imagedata of image imagenum into idata
  put the length of idata into idatasize
  put idatasize/height of image imagenum into bytesperline
  put y * bytesperline + (x * 4) into toffset
  return bintorgb(char toffset to toffset+3 of idata)
end  getPixel

To test put the following script into an image:
on mouseUp
  put the mousecolor into mcolor
  put the mouseh - the left of me into xoffset
  put the mousev - the top of me into yoffset
  put getPixel(xoffset,yoffset,1) && "mousecolor:"&mcolor
end mouseUp

Tuviah

Archives: http://www.mail-archive.com/[email protected]/
Info: http://www.xworlds.com/metacard/mailinglist.htm
Please send bug reports to <[EMAIL PROTECTED]>, not this list.

Reply via email to