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

From: jeff:rebol at: 1-Mar-2001 7:02

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]
]

1 · 2 · 3 · 4 · [5] · 6 · 7 · See whole thread