Mailing List Archive: Re: REBOL/Power-Tools/Graphics INVERT-IMAGE function!

[REBOL] Re: REBOL/Power-Tools/Graphics INVERT-IMAGE function!

From: robbo1mark:aol at: 1-Mar-2001 11:08

JEFF,

fantastic - maximum productivity - minimal expression!

this is REBOL at it's best!

query? how long have op!'s been useable with image! types.

>> ? xor
USAGE:
    value1 XOR value2

DESCRIPTION:
     Returns the first value exclusive ORed with the second.
     XOR is an op value.

ARGUMENTS:
     value1 -- (Type: logic number char tuple)
     value2 -- (Type: logic number char tuple)
>>

It doesn't mention this in the docs or help?

cheers,

Mark

In a message dated Thu, 1 Mar 2001 10:22:55 AM Eastern Standard Time, [jeff--rebol--net] 
writes:

<<

invert-image: func [
    im [file! url!] tg [file!] /local f
][
    im: load-image im
    f: make face [font: para: edge: none color: white size: im/size]
    save/png tg to-image view make f [image: im xor to-image f]
]