Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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"] > ]
Hi, Folks, 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. Again! :-( --Scott Jones 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 view lo