On Mon, 26 Feb 2007, Stephen Barncard <[EMAIL PROTECTED]>
wrote:
Thanks to all who responded. I was turned onto a lot of information
about color. I guess the upshot is that a simple compliment -
literally - will do what I wanted - subtracting 255 from each part of
the color array. This is what I came up with: FUNCTION complimentColor
pTrio REPEAT for each item tITEM in pTrio put abs(tITEM - 255) & comma
after tOut END REPEAT delete last char of tOut return tOut END
complimentColor
For those who do not want to bother to download a big stack just for
the matter of a few script lines
here is the script of btn "complementary colors" that at least gives
you a hint how to proceed to find out
complementary color triplets:
"on mouseUp
set the cursor to watch
put the milliseconds into Start
put the imageData of image 2 into iData
put 0 into counter
repeat for each char C in idata
add 1 to counter
put numtochar(255 - chartonum(C)) into char counter of idata
end repeat
set the imageData of image 2 to iData
put the milliseconds - Start into fld "test"
end mouseUp"
Regards,
Wilhelm Sanke
stephen barncard s a n f r a n c i s c o
As always, there are multiple ways to achieve identical results - that's
one of the interesting facets of programming. "abs(tITEM - 255)" - as in
your function above - produces the same result as "255 - tItem", but if
you put 255 in front you do not need the correcting workaround "abs". --
Wilhelm Sanke <http://www.sanke.org/MetaMedia>
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
