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
Notes
- Quoted lines have been omitted from some messages.
View the message alone to see the lines that have been omitted