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}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:}*.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(ŠŠ8DÈÈ PAGEHEADING RUNNINGHEADTERMINAL MODERN MODERNLOGOMODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN ' –n/+wQ8Ø.‚¼u)˜5zº