[REBOL] Re: IMAGE-LAB Function

From: jeff:rebol at: 2-Mar-2001 12:02

image-lab: func [
    in [file!] out [file!] effects [block!]
    /bmp /png /preview /resize new-size [pair!] /local f
][
    in: to-image f: make face [
        image: load-image in
        size: any [new-size image/size]
        effect: head insert effects pick [[aspect fit]] []] found? resize
    ]
    if preview [view f]
    any [all [bmp save/bmp out in] all [png save/png out in]]
]

1 · [2] · 3 · See whole thread