World: r3wp

compose copy [ ]

size-text is the limit of the size of the face as well

oh ..

center: func [text width font] [
  (width / 2) - (first size-text make face compose copy [
    text: (text)
    font: (font)
    size: (as-pair width 100)
  ])
]

hmm... maybe a different one is better...

center: func [text size font] [
  (size/x / 2) - (first size-text make face compose copy [
    text: (text)
    font: (font)
    size: (size)
  ])
]

center: func [text size font] [
  divide subtract size/x first size-text make face compose copy [
    text: (text)
    font: (font)
    size: (size)
  ] 2
]

getting better :-)

offsets a few pixels to the left, but it seems to center the text

the offset gets bigger when using a larger font.. wonder what causes 
it

anyhoo:


img: draw make image! 297x210 compose [pen red font (make face/font 
[size: 30]) text (as-pair center "BOOM!" 297x210 make face/font [size: 
30] 20) "BOOM!"]
view layout [image img]

I hope this can be done a little prettier...

http://www.hmkdesign.dk/run14.png<--- the offset can be seen at 
the bottom. I haven't tested, but maybe the kerning between the VID 
and DRAW font rendering isn't the same.

That looks like a nice little application! :-) Nice!

been working on that thing for way too long... but hopefully it can 
be completed now

How did you do those lists with the rows and columns? : - )  Just 
kidding, Looks great.

that's current generation LIST-VIEW. no hidden mirrors or anything.

You mean the version that is posted?

yes

well, there might actually be one feature missing in 0.0.38: focusing 
and unfocusing of list views

unfocused list views sport a grey selector instead of a green one

Henrik, nice .. but I can't see the problem.

the "paper" in the bottom shows "0000". They are slightly aligned 
to the left. They shouldn't be.

Ahh..

but that's a View preview - presumably the postscript print out is 
centred?

I hope so

I noticed that viewing pdfs from ps2pdf is not exact.

the vertical height is not right in the pdf.

If you look at my layout examples above, you can see that the font 
size is not the same as the point size used in View.

So, that a fontsize of 20 gives a y: 23

fontsize of 12, gives y: 15

Perhaps they should be equal.

but it may relate to the horizontal displacement problem you're having.

can any view experts explain why the difference?

that's right. the font points are of a smaller dpi than the coordinate 
system it seems

I'll submit a rambo ...

I think the font size is bound to the screen resolution

under linux they tend to go up or down, because you can set the DPI 
settings in X

So, what do you suggest?

post a RAMBO and see what happens. at least on the size difference 
between fonts in VID and fonts in DRAW

Perhaps you can ..

I can't confirm it, and I haven't worked that much with it yet to 
be certain.

Posted a rambo on the subject.

I can't see RT changing anything here without invalidating every 
script before that uses a

font.

it'll have to be worked around for now. if the size deviation is 
proportional to the size of the font, it could be fixed with a coefficient 
on the font size of the DRAW text

Chris posted this to me

Is this indicative of the current problem?

>> foreach typeface ["arial" "times new roman" "verdana" "trebuchet 
ms"][

[    layout [tx: text font [name: typeface size: 10] do [probe second 
size-text tx]]
[    ]
13
12
12
15

hmm... preview.app has a funny way of detecting when to rotate the 
paper. if the first given text is rotated 90 degrees, it will rotate 
the paper, otherwise it will not. I wonder if this is standard behaviour?

oh, great, now I can't print Danish letters with PS