image manipulation w/View?
[1/4] from: jseq::mediaone::net at: 24-May-2001 9:55
Is it possible to use VID's ability to "rotate" an image in a facet to build a simple image rotator program? I couldn't find the old email where Carl did the graphics on the products page... which used some View code and outputted image files of the composited facets, but I suspect that's the kind of code I want to write. FWIW, this is for a quick and dirty script which I can use to reorient my digital photos. Thanks, JS
[2/4] from: gjones05:mail:orion at: 24-May-2001 11:15
From: "John Sequeira"
> Is it possible to use VID's ability to "rotate" an image > in a facet to build a simple image rotator program?
<<quoted lines omitted: 4>>> FWIW, this is for a quick and dirty script which I can > use to reorient my digital photos.
Anton did the dirty work on rotating images. Check out the desktop, the sites, then Anton, then animations folder, then rotate: (direct url) http://users.bigpond.net.au/datababies/anton/rebol/anim/anim-rotate.r Following is the excerpt from Carl's email to which you refer. Hope this helps. --Scott Jones ======================================== This is cute... I sat down tonight to make a simple block diagram for illustrating the REBOL product layers on our website. After trying to get it right in Photoshop, I gave up and switched to REBOL. Took me less time, and it was much easier to polish and experiment with it... and I can easily change it around or add to it in the future. The block diagram is 1.34 K. Now that's compression! Man I like REBOL, -Carl REBOL [Title: "Block Diagram"] i1: to-image layout [ origin 0 backcolor white style box box font [color: 0.0.0 valign: 'top shadow: none space: 0x4] edge [size: 2x2] b1: box 180x120 "View / Pro" effect [gradient 0x1 220.160.220 20.0.20] at b1/offset + 20x30 box 140x90 "View" effect [gradient 0x1 160.160.250 0.0.60] at b1/offset + 40x60 box 100x60 "Core" effect [gradient 0x1 250.130.130 80.0.0] at b1/offset + 0x118 image 180x32 "REBOL Client" black ] i2: to-image layout [ origin 0 backcolor white style box box font [color: 0.0.0 valign: 'top shadow: none space: 0x4] edge [size: 2x2] b1: box 180x120 "Command" effect [gradient 0x1 220.220.140 20.20.0] at b1/offset + 20x30 box 140x90 "Core / Pro" effect [gradient 0x1 160.250.160 0.60.0] at b1/offset + 40x60 box 100x60 "Core" effect [gradient 0x1 250.130.130 80.0.0] at b1/offset + 0x118 image 180x32 "REBOL Server" black ] i3: to-image layout [ origin 0 backcolor white at 0x0 box 40x40 white effect [arrow rotate 270] at 110x0 box 40x40 white effect [arrow rotate 90] at 24x10 box black 100x20 ] y: i2/size/y - i3/size/y / 2 view layout [ backcolor white across space 0 image i1 pad 0x1 * y a1: image i3 effect [shadow 255.255.255] pad 0x-1 * y image i2 at a1/offset - 0x20 text "Internet" a1/size font-size 16 bold center ]
[3/4] from: arolls:bigpond:au at: 25-May-2001 2:58
Oh $#!7, I'd better add interpolation... Anton.
[4/4] from: larry:ecotope at: 24-May-2001 11:50
Hi John You can use any of the image effects available in View to create a new image. Here is an example using the rotate effect: im: load %my-pic.jpg ; can read PNG BMP JPG GIF new-im: to-image layout [origin 0x0 image im effect [rotate 90]] save/png %my-new-pic.png new-im ; can write PNG BMP -Larry
- Quoted lines have been omitted from some messages.
View the message alone to see the lines that have been omitted