[REBOL] Re: help needed from graphics GURUS ?
From: gscottjones:mchsi at: 31-Aug-2002 22:06
> On 01-Sep-02, Gregg Irwin wrote:
> > Fonts need to be installed under Windows. Not knowing how REBOL uses
> > them, maybe finding the files is enough.
From: "Carl Read"
> Just suck it and see...
> view layout [
> text "Hello" font [name: "name-of-a-font-on-your-system"]
OK, I sucked, and saw .... disappointment. When I peeked at the
\windows\fonts directory earlier, I had forgotten that the folder view was
one of Windows fancy folders. Directory reading under DOS looks more
traditional, which means font-names for the files are frequently truncated.
To verify, I quickly hacked the following. Looking like either need a
mapping table or GDI access ... or ... someone needs to save me from myself.
font-files: read %//windows/fonts/.
font-blk: copy 
foreach font font-files [append font-blk first parse/all font "."]
lo-blk: copy 
foreach font font-blk [
append lo-blk copy [text "hello" font ]
append/only lo-blk append copy [name: ] copy font
while [not tail? lo-blk] [
lo-blk: skip lo-blk 60
insert lo-blk 'return
lo-blk: next lo-blk
lo-blk: head lo-blk
lo: layout lo-blk