World: r3wp

thought it could do that directly, but then:

save/png %a.png to image! layout/tight [image 300x300 i1]

yes..that works!

but it eats memory. beware of that :-)

original: %image.png  ; INPUT FILE
resized: %resized.png ; OUTPUT FILE
new-size: 300x300


save/png resized draw make image! new-size compose [image (load original) 
0x0 (new-size - 1x1)]

; examine results
view layout [image (load original) image (load resized)]

The above uses AGG scaling via the DRAW dialect. If you are converting 
many images, it should be faster than using LAYOUT all the time (and 
the code is shorter).

Henrik: PDF Maker 1 has been used extensively with images. And they'll 
be back in v2 very soon. The only drawback is lack of any compression, 
so the resulting PDF file is rather big (if the source image is big).

gabriele, that sounds good :-)

wow, where does the 'draw command come from !!! hehe am I the only 
one who didn't even know it was there?  I guess its there since draw 
was added to view!

is there a way to alter the sampling algorythms used in draw?

faster/better quality and up and down sizing all have optimised algorythms. 
 There is no universal algorythm for resizing, not even the slower 
ones.  Some have sweetspots in various conditions.

draw native has been added with AGG

I just miss being able to create proper thumbnails with draw AGG

Being able to save JPGs is my only outstanding image-related request, 
but I know that isn't likely to happen.

Gregg, why not? Is the code too large for Carl to include it, or 
is it something else?

licensing ?

http://www.extremetech.com/article2/0,3973,389261,00.asp

graham, I think that was overthrown in 2004

http://www.groklaw.net/article.php?story=20060526105754880

correction: 2006

So, did they pay Sony $15M back ?

There should be no legal issue with Independent JPEG Group's version: 
http://www.ijg.org/
From the README:


It appears that the arithmetic coding option of the JPEG spec is 
covered by
patents owned by IBM, AT&T, and Mitsubishi.  Hence arithmetic 
coding cannot
legally be used without obtaining one or more licenses. 
 For this reason,
support for arithmetic coding has been removed 
from the free JPEG software.
(Since arithmetic coding provides only 
a marginal gain over the unpatented
Huffman mode, it is unlikely 
that very many implementations will support it.)
So far as we are 
aware, there are no patent restrictions on the remaining
code.

I'm not a law expert, so I might be wrong.

I don't think there would be any problems with the law, only a matter 
of the size of the implementation.

I do believe it was a size issue, Graham.

How to properly invoke event after window opens.
Or the exact my problem is:

I need to display layout face for web browser plugin. And then after 
it is displayed update some one of subfaces and show them.

It is no problem to do so for new windows outside first one in web 
browser page if opening with /new, but I want to do it for main window 
in browser page.

In such cases it looks like /new does not help - nothing is executed 
after view/new main-win.

Do you mean you want to show windows inside the main window ? Or 
are you happy with panels ? eg:

view layout [btn "code" [my-panel/pane: layout/tight [size 400x400 
backcolor teal title "Code"] show my-panel] btn "documentation" my-panel: 
box 400x400 edge [size: 2x2 color: coal]]

In my case I have panel and some faces what I want to update *after* 
main window is opened.

Ok, order of operations should be:
1)   VIEW main-window
2)   SHOW  subfaces

Not after a button is pressed.

Ok, instead of
	VIEW main-window
you can write
	VIEW/NEW main-window
	DO-EVENTS

Which means you can also write:
	VIEW/NEW main-window
	my-panel/text: "new text here.."
	SHOW my-panel
	DO-EVENTS

Nothing is happening after view main-win - let's simplify:

view/new mainWin

alert "AAAA"

What happens when you run the above code ?
You do not see mainWin at all ?

I see mainWin, but not alert.

Hmm... I will have to test, but I have not tried the web plugin for 
a long while. Anyone else have it set up ?

Why want you do that?
If you want to refine things after layout, you can do instead:
 lay:layout[..]
 do extras
 view lay
I

Something is totaly wrong I I can't get  to run new version of my 
script in my web page.

I am changeing version numbers to the same at the both ends (html 
page and script) - no success.?
What else could I missed.

O'k I somehow managed to view chages in Plugin object frame by using 
new script instead of old one (saveiing old one as old01.r and putting 
it in html page).
But Volker's example does not work for me, fex:

mainWin: layout [
	t1: text "AAA"
	button 200x20 "Atvçrt kârtis" [
		do something
	]
	do [
		t1/text: "Text changed"
		show t1
	]
]

view mainWin

What exactly does not work ?

I presume you see the window with the text and the button.  Do you 
see "Text changed", or "AAA" ?

Probably you only see "Text" in the window.

The TEXT has a constant size and the word wrap means that only "Text" 
can be seen.
Try changing to this:

t1: text -1x100 "AAA" edge [size: 1x1]  
do [t1/text: "Text changed" show t1]

Look here:
	print mold svv/vid-styles/text/init

where it says:
	size: (size-text self) ....

We can do the same:
view layout [
	t1: text "AAA"
	btn "Modify" [
		do bind [
			text: "Text changed"
			size: 1000x200
			size: (size-text self) + (edge-size? self) 

     + (to-pair all [para (to-pair para/margin) + to-pair para/origin])
			show self
		] t1
	]
]

I see just "AAA". What I need is to see "Text changed".

It could look useless, but in real life I need similar thing, but 
with panes and images.

I would like to open plugin main window, so that user could see all 
the controls on layout.

When it is done, then image from internet is loaded - progress bar 
is changing and finaly image is displayed in the pane.

It is not problem to change some control by using button when it 
the layout is open - of course I should take in account text size 
for text fields.

My problem is how to invoke event that in other systems is called 
- "after window open" or something similar.

I tested the above code with the plugin and it's working for me. 
There is no good reason why this should not work for you too. (There 
must only be a bad reason :-)

I'm now reviewing one of my old View script and I need to turn of 
antialiasing to make it compatible with the AGG draw, what's the 
command please? I cannot find it.

I've found it, it's anti-alias off not antialias :-) http://www.rebol.com/docs/draw-ref.html

Hmm, it's not good, that now it will throw error if I use older Rebol 
version:(

Well, Anton first my mistake was connected with that plugin used 
previous version  of script.
To better see my problem,  than try this:

mainWin: layout [
	t1: text "AAA       bbbbb"
	button 200x20 "Do something" [
		do something
	]
	do [
		wait 10
		t1/text: "Text changed"
		show t1
	]
]
view mainWin


Then you wil of course get text changed but before 10 seconds you 
will only see just "Rebol/Plugin 2.6.2.3.1", but not the layout - 
layout appears after 10 seconds and then of course t1 is cahged.

But I need at first to see layout and then after 10 seconds t1 is 
changed.