[REBOL] IMAGE-LAB Function
From: robbo1mark::aol::com at: 2-Mar-2001 13:45
JEFF / EVERYBODY
I've slightly amended Jeff's excellent implementation of my Image-Lab
function!
to include a RESIZE refinement which suprise suprise enables image resizing.
This takes a pair! pixel size as it's additional parameter.
Here's the func,
enjoy,
Mark
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: image/size
effect: effects
]
if resize [f/size: new-size insert effects [aspect fit] in: to-image f]
if preview [view f]
any [all [bmp save/bmp out in] all [png save/png out in]]
]
