World: r3wp

presumably you can use it in vid and use those values.

fair enough?

quite a detour...

but OK, I only need to calculate it for two lines of text right now

>> layout [ a: text "this is a line" font [ size: 20 ]]
>> line-list: make system/view/line-info []
>> textinfo a line-list 0
>> probe line-list
make object! [
    start: "this is a line"
    num-chars: 14
    offset: 2x2
    size: 104x23
]
>> layout [ a: text "this is a line" font [ size: 12 ]]
>> textinfo a line-list 0
>> probe line-list
make object! [
    start: "this is a line"
    num-chars: 14
    offset: 2x2
    size: 68x15
]

could be possible to simplify that...

isn't there a SIZE-TEXT function?

dunno

still needs a face

>> size-text make face [text: "hello"]
== 29x15

easier :)

throw in a font definition

example?

well, just the one used in DRAW for the text that needs to be printed

center: func [text width font] [
  width / 2 - second size-text make face compose [
    text: (text)
    font: (font)
  ]
]

that's what it takes

but it only works sometimes.. I don't know why

copy

found the bug

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