Mailing List Archive: Re: /View Effects

[REBOL] Re: /View Effects

From: jeff:rebol at: 2-Mar-2001 8:59


> >> image-lab/invert/preview/bitmap %ukiah.jpg %silly.bmp

image-lab: func [
    in [file!] out [file!] effects [block!]
    /bmp /png /preview /local f
][
    in: to-image f: make face [
        image: load-image in
        size: image/size
        effect: effects
    ]
    if preview [view f]
    any [all [bmp save/bmp out in] all [png save/png out in]]
]

image-lab/preview/bmp %space.jpg %sp.bmp [invert reflect 1x-1 tint 90]