World: r3wp

So you could use  save/bmp #{} to-image face

for those faces which have DRAW blocks, as a temporary measure.

so it saves it as a bmp in memory?

I was wrong. There is image! support, although this was not brought 
out in the dialect (strange). Problem is right now that Ghostscript 
refuses to display postscripts with images from to-postscripts.

Yes, it saves as a bmp bitmap in the binary specified, so no need 
for intermediate file.

Geomol's dialect allows image! but you have to reference it by a 
word (no direct reference).

(Never mind the save/bmp thing.)

:-) Good to see some being done in this area. If you have ideas for 
the postscript dialect
http://home.tiscali.dk/john.niclasen/postscript/postscript.r
, let me know.


Documentation: http://home.tiscali.dk/john.niclasen/postscript/postscript.html

Ah docs by the author.. :)

Yeah, that's rare, isn't it! ;P

write/binary %test-image.ps postscript [DeviceRGB [translate 10x10 
scale 72x72 image help.gif]]

I can see the help.gif image, in colour, at the bottom of the page, 
using kghostview.

I can too using Preview under OS X.

Hmm.. what's the height of the page ?  I want to put the image at 
the top.

Paper sizes in postscript:
A4: 595x842
A5: 420x595
Letter: 612x792

You can also use the command "switchy" to switch y-axis. See last 
command in the docs.

Aha, that's useful for what Henrik's doing.

I suppose actually I should ignore the page size.

The whole page will be upside down, it seems, also the graphics. 
That can prob. be fixed with some transformation.

I think, if you write code, that'll produce postscript output, you 
have to know the paper size. At least the last step has to know. 
I see postscript as a language, where you have full control over, 
what you get on the paper.

In contrast to e.g. HTML, where it's up to the browser, how it'll 
look.

This talks about page size.

http://alumni.media.mit.edu/~szummer/postscript/

How to generate portable Postscript

Do not explicitly specify paper format. 
 Unfortunately, many programs 
force you to select a paper size. Often, it can be edited out of 
the Postscript file. Instead, let the printer decide whether it can 
print a document with specific dimensions.

It's an old document, from 2000, though...

I'm just wondering what the default page size is, when it's not specified.

pagesize: 595x842  ; Default A4 page size
img: help.gif
offset: 0x0

write/binary %test-image.ps postscript compose/deep [DeviceRGB [translate 
(as-pair offset/x pagesize/y - offset/y - img/size/y) scale 36x36 
image img]]

kghostview test-image.ps  shows the help.gif image just down a little 
bit from the top-left of the page. I suppose it's a margin of some 
sort.

Hmm.. if I have
	offset: pagesize - img/size

then it shows the image just a little left of bottom-right corner 
of page.
Another margin ?

Anyway... just a little dabble in the postscript world..

the only problem with switchy is that everything is upside down, 
inclusing text.

Geomol, I've added direct support for image! in the postscript dialect. 
It seemed appropriate to do.

Henrik, I can see, there's a bit difference in our versions. Maybe 
we should merge at some point? Image is in both our versions though.

I was editing 0.4.3 from February 2008. Is yours newer?

No, same version:
http://home.tiscali.dk/john.niclasen/postscript/postscript.r

I mean, I haven't done anything else with it since.

I remember images working fine this spring, but it does not work 
now. I'm wondering what's wrong.

Ok, what do you wanna do? Anton did a little test, that worked ok. 
I can run the test here too.

I want to do the equivalent of what anton did above, just with to-postscript.

then we can compare

http://rebol.hmkdesign.dk/files/test.ps

That one fails here.

to-postscript layout/tight [text "Page 1" image help.gif]

That's the code for it

Geomol, the code for image that is in your version is:

image: [err:
	'image set name [file! | url! | word!] (

  img: either word! = type? name [get name] [load-image/update name]
		x: img/size/x
		y: img/size/y

I've changed that to:

image: [err:

 'image [set img [file! | url!] (img: load-image/update img) | set 
 img word! (img: get img) | set img image!] (
		x: img/size/x
		y: img/size/y

When I run your test with my version of postscript.r, I get a page 
with a gray box in upper left and the text "Page 1". It's an ok PS 
file here.

Should I see the help.gif image too?

yes, it should be there.

Ghostscript will not run that file here.

ah wait... let me check if your version of to-postscript properly 
supports images

it was wrong. please try again.