6 lines
2.4 KiB
Plaintext
6 lines
2.4 KiB
Plaintext
XEROX NOVAFONT
|
||
2
|
||
|
||
4
|
||
|
||
1
|
||
|
||
NOVAFONT
|
||
1
|
||
|
||
4
|
||
|
||
By: Nick Briggs (Briggs.pa@Xerox.com)
|
||
INTERNAL
|
||
By Nick Briggs
|
||
With prodding from Larry Masinter
|
||
|
||
This utility file allows Lisp to use in fonts in the NOVAFONT format, which is used by Viewpoint.
|
||
NovaFont files have in them both the display bitmaps for all sizes of the font, and also the printer widths.
|
||
NovaFont files need to be explicitly noticed.
|
||
(notice-novafont-file filename) [Function]
|
||
After calling notice-novafont-file, the fonts in the given file name will be "known" by the environment. For example,
|
||
(notice-novafont-file "{eris}<lispcore>xeroxprivate>fonts>optimamedium.novafont")
|
||
After this, FONTCREATE will get the bits from the file.
|
||
The novafont reader is crafted in such a manner that it only ever reads the file forwards, so you can load fonts from an NS server. For PARC users, note that there are a bunch of NovaFonts (a few malformed...!) on
|
||
{starfile public:}<vp applications>*.novafont
|
||
including all the "printwheel" fonts, all the Japanese and Chinese character sets (60Q thru 140Q approx), the PC fonts, Quartz .
|
||
Unfortunately, it currently doesn't die "gracefully" on the malformed files. It can't just call VP-FONT-P on the files and continue on because it would mean backing up the file pointer.
|
||
|
||
Instead of loading NovaFonts on demand, all of the display fonts in a NovaFont file can be loaded at once by calling
|
||
(load-novafont-file filename) [Function]
|
||
. È È ( È ( È ( Š Š8 ( Š Š8 D È È PAGEHEADING RUNNINGHEAD TERMINAL
|
||
MODERN MODERN LOGO MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN HRULE.GETFN MODERN ' – n / + w Q 8 Ø . ‚ ¼ u ) ˜ 5zº |