(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED " 9-Sep-94 14:10:02" ("compiled on " |{DSK}lispusers>NOVAFONT.;1|) "28-Jul-94 17:28:46" |bcompl'd| |in| "Medley 25-Aug-94 ..." |dated| "25-Aug-94 10:02:49") (FILECREATED " 9-Feb-89 13:52:01" {ERINYES}MEDLEY>NOVAFONT.\;5 37388 |changes| |to:| (FNS \\READNOVAFONTFILE.IP) (VARS NOVAFONTCOMS) |previous| |date:| " 8-Feb-89 11:09:51" {ERINYES}MEDLEY>NOVAFONT.\;3) NOTICE-NOVAFONT-FILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 33 NOVAFONT-STREAM F 34 *NOVAFONT-INFO* F 35 *NOVAFONT-PATHNAME-DEFAULTS* F 36 A0364 F 37 NOTRACE) 4!ghgWB WF `WB [KIkBO.O,I hcH$WBJO. ]_0M\_2L_4O2lO2_6WJioO0O2O2^djg(kgNlgoNo O2_djgk goOo hO4 kj2 O:O81O4O: jO:_@O>O@h_>_O< O4 kj_*_(O*O(O4O* jWD_&O0 _$O&O$'_"O2_ O"O '_O6_OO'_O*_HO4O* JO. h_OFOOh_O3OOh_O" O Oh_O& O$OhcDO$OO OOOOO O*k_*;O.k_. (543 LISTPUT 455 ELT 447 ELT 392 MKATOM 387 U-CASE 369 ELT 342 ARRAYSIZE 334 CL:FORMAT 287 ELT 265 ARRAYSIZE 255 ECASE-FAIL 208 ECASE-FAIL 98 \\MVLIST 93 READ-NOVAFONT-FONTHEADER 88 ELT 70 \\MVLIST 42 \\MVLIST 37 READ-NOVAFONT-FILEHEADER 24 CL:ENOUGH-NAMESTRING 17 CL:MAKE-PATHNAME) (236 ITALIC 225 REGULAR 191 BOLD 178 MEDIUM 168 LIGHT 10 :DEFAULTS 4 :VERSION) ( 250 (0 1) 243 (|fetch| (FONTDESCRIPTION EMPHASIS) |of| NOVAFONT-DESCRIPTOR) 203 (0 1 2) 197 (|fetch| (FONTDESCRIPTION WEIGHT) |of| NOVAFONT-DESCRIPTOR) 145 "~A~D~A~S") NOTICE-NOVAFONT-FILEA0002 :D8 (F 0 NOVAFONT-STREAM F 1 A0364) PgQ (11 CL:CLOSE) (5 :ABORT) () NOTICE-NOVAFONT-FILE :D8 (L (0 NOVAFONT-FILENAME) P 1 A0364 P 0 NOVAFONT-STREAM I 1 NOTRACE) 0@g ig HgI $(41 CL:CLOSE 29 \\MVLIST 24 NOTICE-NOVAFONT-FILEA0001 10 OPEN) (35 :ABORT 19 NOTICE-NOVAFONT-FILEA0002 5 :INPUT) () LOAD-NOVAFONT-FILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 27 |stream| F 28 A0385) fW6  H_H_Okngjd ngjd ngjd eOOh hc8$OO _(W6O( Z_"JY_$I_&O$[djg(kgKlgoKo O$\djgkgoLo gh_,O" _"`dgdO"O$dMdO,djdj dj dj O"O$O,jghdNlki _dO_*O& kj"O0O.O&O0 _4jW6O(O4hddO0OOO _2O*O*O2 _dOOO*O* O2 _dOO O*O*O* O*O0O2O0k_0YO*O* O"O$O,jgO* Ok_(602 SETFONTDESCRIPTOR 576 \\AVGCHARWIDTH 439 \\READNOVAFONTFILE.DISPLAY 407 ELT 383 ARRAYSIZE 364 \\ALLOCBLOCK 266 MKATOM 261 U-CASE 242 ECASE-FAIL 198 ECASE-FAIL 124 \\MVLIST 119 READ-NOVAFONT-FONTHEADER 107 ELT 90 \\MVLIST 73 ARRAY 58 ARRAY 43 ARRAY 11 \\MVLIST 6 READ-NOVAFONT-FILEHEADER) (594 DISPLAY 569 FONTDESCRIPTOR 529 FONTDESCRIPTOR 522 FONTDESCRIPTOR 495 FONTDESCRIPTOR 488 FONTDESCRIPTOR 465 CHARSETINFO 456 FONTDESCRIPTOR 449 FONTDESCRIPTOR 342 DISPLAY 281 DISPLAY 274 |FONTDESCRIPTORTYPE#| 247 REGULAR 225 ITALIC 214 REGULAR 181 BOLD 168 MEDIUM 158 LIGHT 66 BYTE 51 WORD 36 WORD) ( 237 (0 1) 231 (|fetch| (FONTDESCRIPTION EMPHASIS) |of| |fontdescriptor|) 193 (0 1 2) 187 (|fetch| (FONTDESCRIPTION WEIGHT) |of| |fontdescriptor|)) LOAD-NOVAFONT-FILEA0019 :D8 (F 0 |stream| F 1 A0385) PgQ (11 CL:CLOSE) (5 :ABORT) () LOAD-NOVAFONT-FILE :D8 (L (0 |filename|) P 1 A0385 P 0 |stream|) 0@g ig HgI $(41 CL:CLOSE 29 \\MVLIST 24 LOAD-NOVAFONT-FILEA0001 10 OPEN) (35 :ABORT 19 LOAD-NOVAFONT-FILEA0019 5 :INPUT) () \\READNOVAFONTFILE.DISPLAY :D8 (L (8 FONTSPACINGWIDTHS 7 FONTPRINTERWIDTHS 6 RASTERINFOS 5 CHARSET 4 FACE 3 SIZE 2 FAMILY 1 OFFSET 0 STREAM)) F @A `llk HdIllk HdIllk HdI@l "HI HI @Al FFFd nngjd b jF @ GGGd nngjd bjG @ GGGd nngjd bjG @ @Alndll @lIIndlll [lkFj HjHGj HGj Fj mkFj mHMLrHMGM HMGM FM mkFM mFM NHMJJHMԺMk]HJHI `KFj n?HIHH lkIH OOZOHO:@`KFO n?HOOHHO Ok_EjNHH :7HJ HHx HHx H(743 \\TEXTBLT 696 ELT 638 \\TEXTBLT 596 ELT 581 BITMAPCREATE 515 ELT 501 ELT 488 ELT 481 ELT 460 ELT 419 ELT 406 ELT 399 ELT 380 ELT 349 ELT 338 READ-BLOCK-OF-BYTES 307 SETFILEPTR 285 AIN 279 ARRAYSIZE 269 ARRAY 247 ARRAYSIZE 230 AIN 224 ARRAYSIZE 214 ARRAY 192 ARRAYSIZE 175 AIN 169 ARRAYSIZE 160 ARRAY 138 ARRAYSIZE 124 SETFILEPTR 89 READ-BLOCK-OF-BYTES 71 \\ALLOCBLOCK 48 \\ALLOCBLOCK 25 \\ALLOCBLOCK 6 SETFILEPTR) (828 CHARSETINFO 820 CHARSETINFO 807 CHARSETINFO 799 CHARSETINFO 787 CHARSETINFO 774 CHARSETINFO 764 CHARSETINFO 730 CHARSETINFO 722 CHARSETINFO 707 CHARSETINFO 687 \\SYSPILOTBBT 672 CHARSETINFO 650 CHARSETINFO 628 CHARSETINFO 620 CHARSETINFO 607 CHARSETINFO 588 \\SYSPILOTBBT 568 CHARSETINFO 561 CHARSETINFO 540 CHARSETINFO 525 CHARSETINFO 469 CHARSETINFO 448 CHARSETINFO 432 CHARSETINFO 389 CHARSETINFO 370 CHARSETINFO 358 CHARSETINFO 262 BYTE 207 WORD 153 WORD 109 CHARSETINFO 98 CHARSETINFO 11 |CHARSETINFOTYPE#|) () \\READNOVAFONTFILE.IP :D8 (L (3 CHARSETINFO 2 CHARSET 1 OFFSET 0 STREAM)) @A @l QjdH dnnkZCj CH CJ CH J @Al ngjd [djK @ ngjd YdjI @ ljMLCMIM Mk]C(181 ELT 154 AIN 148 ARRAYSIZE 139 ARRAY 124 AIN 118 ARRAYSIZE 109 ARRAY 94 SETFILEPTR 14 READ-BLOCK-OF-BYTES 6 SETFILEPTR) (170 CHARSETINFO 132 WORD 102 WORD 76 CHARSETINFO 66 CHARSETINFO 55 CHARSETINFO 45 CHARSETINFO) () \\READDISPLAYFONTFILE.NOVAA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 STREAM F 1 CS F 2 FAMILY F 3 A0393 F 4 SIZE F 5 FACE F 6 CHARSET) PQRTUV  hc$(18 \\MVLIST 13 \\READNOVAFONTFILE.DISPLAY) NIL () \\READDISPLAYFONTFILE.NOVAA0002 :D8 (F 0 STREAM F 1 A0393) PgQ (11 CL:CLOSE) (5 :ABORT) () \\READDISPLAYFONTFILE.NOVA :D8 (L (4 DEVICE 3 ROTATION) P 3 A0393 P 2 STREAM P 1 CS I 5 CHARSET I 2 FACE I 1 SIZE I 0 FAMILY F 4 *NOVAFONT-INFO* F 5 *NOVAFONT-PATHNAME-DEFAULTS*) T@ 'A'BHdgjgkoHo lBHdgj(gkHgloHo 'Ejb 'Id<U gg ig JgK $@ABCDE (204 \\NO-NOVA-READDISPLAYFONTFILE 184 CL:CLOSE 172 \\MVLIST 167 \\READDISPLAYFONTFILE.NOVAA0001 153 OPEN 138 CL:MERGE-PATHNAMES 113 ECASE-FAIL 54 ECASE-FAIL 6 U-CASE) (178 :ABORT 162 \\READDISPLAYFONTFILE.NOVAA0002 148 :INPUT 143 :DIRECTION 91 BOLD 80 MEDIUM 69 LIGHT 33 ITALIC 22 REGULAR) ( 108 (LIGHT MEDIUM BOLD) 102 (CAR FACE) 49 (REGULAR ITALIC) 43 (CADR FACE)) \\CREATECHARSET.IP.NOVAA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 2 STREAM F 3 CS F 4 CHARSET F 5 A0396) LRST`llk HdIllk HdI hc $(66 \\MVLIST 61 \\READNOVAFONTFILE.IP 46 \\ALLOCBLOCK 23 \\ALLOCBLOCK) (9 |CHARSETINFOTYPE#|) () \\CREATECHARSET.IP.NOVAA0006 :D8 (F 0 STREAM F 1 A0396) PgQ (11 CL:CLOSE) (5 :ABORT) () \\CREATECHARSET.IP.NOVA :D8 (L (7 NOSLUG? 6 FONTDESC 4 DEVICE 3 ROTATION 2 FACE 1 PSIZE 0 FAMILY) P 3 A0396 P 2 STREAM P 1 CS I 5 CHARSET F 4 *NOVAFONT-INFO* F 5 *NOVAFONT-PATHNAME-DEFAULTS*) T@ 'A'BHdgjgkoHo lBHdgj(gkHgloHo 'Ejb 'Id<U gg ig JgK $@ABCDEFG (207 \\NO-NOVA-CREATECHARSET.IP 184 CL:CLOSE 172 \\MVLIST 167 \\CREATECHARSET.IP.NOVAA0001 153 OPEN 138 CL:MERGE-PATHNAMES 113 ECASE-FAIL 54 ECASE-FAIL 6 U-CASE) (178 :ABORT 162 \\CREATECHARSET.IP.NOVAA0006 148 :INPUT 143 :DIRECTION 91 BOLD 80 MEDIUM 69 LIGHT 33 ITALIC 22 REGULAR) ( 108 (LIGHT MEDIUM BOLD) 102 (CAR FACE) 49 (REGULAR ITALIC) 43 (CADR FACE)) DESCRIBE-FONT :D8 (L (5 FONTRASTER 4 FONTPRINTERWIDTHS 3 FONTSPACINGWIDTHS 2 CHARSETHEADER 1 FONTDESCRIPTOR 0 NAME) F 1 LASTFONTDESCRIPTOR) g AQAci @i oi ki Ai oi AHdjo&koHdlogoi AHdjokoHgoi oi Bi ki (225 SPACES 218 PRIN1 208 PRIN1 196 PRIN1 145 PRIN1 81 PRIN1 69 PRIN1 58 SPACES 50 PRIN1 38 PRIN1 30 TERPRI 9 BOUNDP) (181 OTHERWISE 130 OTHERWISE 4 LASTFONTDESCRIPTOR) ( 202 " character sets: " 189 "unknown" 174 "italic" 164 "regular" 138 "unknown " 124 "bold " 110 "medium " 100 "light " 75 "pt. " 44 ":") SELECT-FONT :D8 (L (5 FONTRASTER 4 FONTPRINTERWIDTHS 3 FONTSPACINGWIDTHS 2 CHARSETHEADER 1 FONTDESCRIPTOR 0 NAME)) Al h (14 ASSERT-FAIL) NIL () ENUMERATE-FONTS :D8 (L (2 READ-RASTERS-P 1 PROC 0 STREAM)) @j @ o @ ZJIkBOOhHO _@O \_L[_K_ kjbO OeOO _,jN@OO,B __"O__$O^_&N]_(M_*AOOO"O$O&O(O*lAO k_ Ok_U(149 \\MVLIST 144 READ-NOVAFONT-CHARACTERSET 126 ELT 104 ARRAYSIZE 82 \\MVLIST 77 READ-NOVAFONT-FONTHEADER 66 ELT 38 \\MVLIST 33 READ-NOVAFONT-FILEHEADER 23 CL:ERROR 12 VIEWPOINT-FONT-FILE-P 6 SETFILEPTR) NIL ( 18 "not a font file") VIEWPOINT-FONT-FILE-P :D8 (L (0 STREAM)) | @l Xdj jedn\@ lldHHHH H :8@l @ @ @ @ lY@Il @ @ @ @ li(103 SETFILEPTR 75 SETFILEPTR 37 GETEOFPTR 18 \\GETBASEFIXP 10 READ-BLOCK-OF-BYTES) NIL () READ-BLOCK-OF-BYTES :D8 (L (1 NUMBER-OF-BYTES 0 STREAM)) *Alj @ >@HjAlIH(11 \\ALLOCBLOCK) (27 FDEV 20 STREAM) () READ-NOVAFONT-CHARACTERSET :D8 (L (2 READ-RASTERS-P 1 OFFSETTOCHARSET 0 STREAM)) @A @l  @Al ngjd YdjI @ ngjd ZdjJ @ ngjd [djK @ `$lj2OOO_oO lj__OOBWHnH @Anl @lHHnl llk ljd OdOfHKJBLBN$IO n?O_OOh__Ok_GO&_KO HHKO Ok_AjIO n?Ij n?:zKO IO mkIO m_OOL o `MIO n?OHLO NOOOKO _NOjOk_(509 ELT 489 \\TEXTBLT 470 ELT 454 ASSERT-FAIL 441 BITMAPWIDTH 423 ELT 409 ELT 401 ELT 386 ELT 375 ELT 351 ELT 336 ELT 287 ELT 247 \\ALLOCBLOCK 233 READ-BLOCK-OF-BYTES 209 SETFILEPTR 194 BITMAPCREATE 157 CL:WARN 117 AIN 111 ARRAYSIZE 102 ARRAY 87 AIN 81 ARRAYSIZE 72 ARRAY 57 AIN 51 ARRAYSIZE 42 ARRAY 27 SETFILEPTR 14 READ-BLOCK-OF-BYTES 6 SETFILEPTR) (461 \\SYSPILOTBBT 122 *WARN-ON-KERNING* 95 BYTE 65 WORD 35 WORD) ( 449 "Attempted to blt beyond end of bitmap" 150 "Kerning on characters~{ ~S~}.") READ-NOVAFONT-FILEHEADER :D8 (L (0 STREAM)) `@ [lKf@j @l YIj j^InUKlldIIII I :6IXdgjk ZHkML.HJ$o@ o@ JM@ @ @ @ ll Mk](179 SETA 150 ASSERT-FAIL 145 FULLNAME 131 ASSERT-FAIL 126 FULLNAME 99 ARRAY 38 \\GETBASEFIXP 30 READ-BLOCK-OF-BYTES 22 SETFILEPTR 8 GETEOFPTR) (92 FIXP) ( 139 "~(~A~) is not a NOVAFONT format font file." 120 "~(~A~) is not a NOVAFONT format font file.") READ-NOVAFONT-FONTHEADER :D8 (L (1 FONTPOS 0 STREAM))   @A @l XdYdgjd Z@Al IkjNM@AlldIHH @ n @l [@ @ _ _Ok__OOmO\d _jO LKJ$ K;ooK; JNl@ @ @ @ l Nk^K aOO@ Ok_~(257 RPLCHARCODE 242 ASSERT-FAIL 229 SETA 201 CONCAT 172 \\FZEROP 148 NCHARS 120 ALLOCSTRING 108 READ-BLOCK-OF-BYTES 90 BIN16 84 SETFILEPTR 46 SETFILEPTR 35 ARRAY 17 READ-BLOCK-OF-BYTES 9 SETFILEPTR) (28 FIXP) ( 192 "UnknownFont-" 183 ((0 . |Classic|) (1 . |Modern|) (2 . |Titan|) (3 . |Pica|) (4 . |Trojan|) (5 . |Vintage|) (6 . |Elite|) (7 . |LetterGothic|) (8 . |Master|) (9 . |Cubic|) (10 . |Roman|) (11 . |Scientific|) (12 . |Gothic|) (13 . |Bold|) (14 . |OcrB|) (15 . |Spokesman|) (16 . |XeroxLogo|) (17 . |CenturyThin|) (18 . |ScientificThin|) (19 . |Helvetica|) (20 . |HelveticaCondensed|) (21 . |Optima|) (22 . |Times|) (23 . |Baskerville|) (24 . |Spartan|) (25 . |Bodoni|) (26 . |Palatino|) (27 . |Caledonia|) (28 . |Memphis|) (29 . |Excelsior|) (30 . |Olympian|) (31 . |Univers|) (32 . |UniversCondensed|) (33 . |Trend|) (34 . |BoxPS|) (35 . |Terminal|) (36 . |OcrA|) (37 . |Logo1|) (38 . |Logo2|) (39 . |Logo3|) (40 . |Geneva2|) (41 . |Times2|) (42 . |Square3|) (43 . |Courier|) (44 . |Futura|) (45 . |Prestige|) (46 . |ALLetterGothic|) (47 . |CenturySchoolBook|) (48 . |Spare1|) (49 . |Spare2|) (50 . |Spare3|) (51 . |Spare4|) (52 . |Spare5|) (53 . |Melior|) (54 . |PCTerminal|) (55 . |ITCAmericanTypewriter|) (56 . |ITCAvantGardeGothic|) (57 . |ITCAvantGardeGothicCondensed|) (58 . |ITCBauhaus|) (59 . |ITCBarcelona|) (60 . |ITCBenguiat|) (61 . |ITCBenguiatCondensed|) (62 . |ITCBenguiatGothic|) (63 . |ITCBerkeleyOldStyle|) (64 . |ITCBookman|) (65 . |ITCCaslonNo224|) (66 . |ITCCentury|) (67 . |ITCCheltenham|) (68 . |ITCClearface|) (69 . |ITCCushing|) (70 . |ITCEras|) (71 . |ITCFenice|) (72 . |ITCFranklinGothic|) (73 . |ITCFrizQuadrata|) (74 . |ITCGalliard|) (75 . |ITCGaramond|) (76 . |ITCIsbell|) (77 . |ITCItalia|) (78 . |ITCKabel|) (79 . |ITCKorinna|) (80 . |ITCLubalinGraph|) (81 . |ITCModernNo216|) (82 . |ITCNewBaskerville|) (83 . |ITCNewtext|) (84 . |ITCNovarese|) (85 . |ITCQuorum|) (86 . |ITCSerifGothic|) (87 . |ITCSouvenir|) (88 . |ITCSymbol|) (89 . |ITCTiffany|) (90 . |ITCUsherwood|) (91 . |ITCWeidemann|) (92 . |ITCVeljovic|) (93 . |ITCZapfBook|) (94 . |ITCZapfChancery|) (95 . |ITCZapfDingbats|) (96 . |ITCZapfInternational|) (97 . |Cipher|) (98 . |FlemishScriptII|) (99 . |Quartz|) (100 . |QuartzA|) (101 . |QuartzT|) (102 . |Souvenir|) (103 . |Shimmer|) (104 . APL) (105 . |Arrows|) (106 . |BravoX|) (107 . |ClassicPiOne|) (108 . |ClassicPiTwo|) (109 . |Cream|) (110 . |Cyrillic|) (111 . |Dots|) (112 . |Gacha|) (113 . |Gates|) (114 . |HelveticaD|) (115 . |Hippo|) (116 . |Keyhole|) (117 . |Laurel|) (118 . |LogoOutline|) (119 . |LSIGates|) (120 . |MarqHippo|) (121 . |MarqRoman|) (122 . |Math|) (123 . |Mathology|) (124 . |OldEnglish|) (125 . |RomanPS|) (126 . |Sigma|) (127 . |Splunk|) (128 . |Template|) (129 . |Testfont|) (130 . |TimesRoman|) (131 . |TimesRomanD|) (132 . |TitanLegal|) (133 . WSSA) (134 . |XeroxBook|) (135 . |LucidaRoman|) (136 . |MonoSpace|) (137 . |Spare6|) (138 . |Spare7|) (139 . |Spare8|) (140 . |Spare9|) (141 . |Spare10|))) \\TEXTBLT :D8 (L (5 |DestinationLeft| 4 |DestinationBitMap| 3 |SourceHeight| 2 |SourceWidth| 1 |SourceHunk| 0 PILOTBBT) P 0 \\INTERRUPTABLE) @D @j @Dn@E@j 0jdh@Bn@B@C @j@k kjh@A@AD@I@I@l Q@j @@jvNIL (120 PILOTBBT 109 PILOTBBT 95 PILOTBBT 84 PILOTBBT 11 BITMAP 5 PILOTBBT) () (PRETTYCOMPRINT NOVAFONTCOMS) (RPAQQ NOVAFONTCOMS ((* |;;;| "user callable functions (either load-on-demand or load them all") (FNS NOTICE-NOVAFONT-FILE LOAD-NOVAFONT-FILE) (* |;;;| "the parts necessary for using with FONTCREATE") ( FNS \\READNOVAFONTFILE.DISPLAY \\READNOVAFONTFILE.IP) (* |;;;| "modified versions of functions from the default font handling system") (FNS \\READDISPLAYFONTFILE.NOVA \\CREATECHARSET.IP.NOVA) (* |;;;| "the parts for general hacking of the NOVAFONT files") (FNS DESCRIBE-FONT SELECT-FONT ENUMERATE-FONTS VIEWPOINT-FONT-FILE-P) (VARS (*WARN-ON-KERNING* NIL)) (GLOBALVARS *WARN-ON-KERNING*) (* |;;;| "where the NovaFont files are likely to be") (VARIABLES *NOVAFONT-PATHNAME-DEFAULTS*) (* |;;;| "things for dealing with the structure of what we read") (MACROS READSWAPPEDFIXP) (FNS READ-BLOCK-OF-BYTES READ-NOVAFONT-CHARACTERSET READ-NOVAFONT-FILEHEADER READ-NOVAFONT-FONTHEADER \\TEXTBLT) (* |;;;| "the datastructures that we use and their sizes") (DECLARE\: EVAL@COMPILE DONTCOPY (RECORDS FONTTREENODEBLOCK CHARSETBLOCK FONTDESCRIPTION) (CONSTANTS (FONTTREENODEBLOCKBYTESIZE ( CONSTANT (ITIMES BYTESPERWORD (INDEXF (FETCH (FONTTREENODEBLOCK DUMMY-LAST-FIELD-DONT-REFERENCE-THIS) OF T))))) (CHARSETBLOCKBYTESIZE (CONSTANT (ITIMES BYTESPERWORD (INDEXF (FETCH (CHARSETBLOCK DUMMY-LAST-FIELD-DONT-REFERENCE-THIS) OF T))))) (FONTDESCRIPTIONBYTESIZE (CONSTANT (ITIMES BYTESPERWORD (INDEXF (FETCH (FONTDESCRIPTION DUMMY-LAST-FIELD-DONT-REFERENCE-THIS) OF T))))))) ( DECLARE\: EVAL@COMPILE DONTEVAL@LOAD DOCOPY (INITRECORDS FONTTREENODEBLOCK CHARSETBLOCK FONTDESCRIPTION)) (* |;;;| "the mapping from font family number to font family name for those fonts which don't have the name embedded in the font file." ) (CONSTANTS \\NOVAFONTFAMILYNAMES) (* |;;;| "initialize the \"noticed\" fonts structure and set up the extensions so we can use the font files") ( VARIABLES *NOVAFONT-INFO*) (* |;;;| "correct some omissions in the family aliases and printwheel fonts") (P (LISTPUT INTERPRESSFAMILYALIASES (QUOTE XEROXLOGO) (QUOTE LOGOTYPES-XEROX)) (|pushnew| INTERPRESSPRINTWHEELFAMILIES (QUOTE SCIENTIFICTHIN) (QUOTE OCRB) (QUOTE OCRA))) (* |;;;| "some things we need for compiling. Also need EXPORTS.ALL") (DECLARE\: EVAL@COMPILE DONTCOPY (FILES ( LOADCOMP) INTERPRESS LLCHAR)) (* |;;;| "install this:") (DECLARE\: DONTEVAL@LOAD DOCOPY (P (MOVD? ( QUOTE \\READDISPLAYFONTFILE) (QUOTE \\NO-NOVA-READDISPLAYFONTFILE)) (MOVD? (QUOTE \\CREATECHARSET.IP) (QUOTE \\NO-NOVA-CREATECHARSET.IP)) (MOVD (QUOTE \\READDISPLAYFONTFILE.NOVA) (QUOTE \\READDISPLAYFONTFILE)) (MOVD (QUOTE \\CREATECHARSET.IP.NOVA) (QUOTE \\CREATECHARSET.IP)))) (* |;;;| "some hints for the compiler (system generated)") (DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA READ-NOVAFONT-FONTHEADER READ-NOVAFONT-FILEHEADER))))) (RPAQQ *WARN-ON-KERNING* NIL) (DEFGLOBALVAR *NOVAFONT-PATHNAME-DEFAULTS* (PATHNAME (AND (BOUNDP (QUOTE DISPLAYFONTDIRECTORIES)) ( LISTP DISPLAYFONTDIRECTORIES) (CAR DISPLAYFONTDIRECTORIES)))) (PUTPROPS READSWAPPEDFIXP DMACRO (OPENLAMBDA (STREAM) (+ (LOGOR (LLSH (BIN STREAM) 8) (BIN STREAM)) ( CL:ASH (LOGOR (LLSH (BIN STREAM) 8) (BIN STREAM)) 16)))) (RPAQQ \\NOVAFONTFAMILYNAMES ((0 . |Classic|) (1 . |Modern|) (2 . |Titan|) (3 . |Pica|) (4 . |Trojan|) (5 . |Vintage|) (6 . |Elite|) (7 . |LetterGothic|) (8 . |Master|) (9 . |Cubic|) (10 . |Roman|) (11 . |Scientific|) (12 . |Gothic|) (13 . |Bold|) (14 . |OcrB|) (15 . |Spokesman|) (16 . |XeroxLogo|) (17 . |CenturyThin|) (18 . |ScientificThin|) (19 . |Helvetica|) (20 . |HelveticaCondensed|) (21 . |Optima|) (22 . |Times|) (23 . |Baskerville|) (24 . |Spartan|) (25 . |Bodoni|) (26 . |Palatino|) (27 . |Caledonia|) (28 . |Memphis|) (29 . |Excelsior|) (30 . |Olympian|) (31 . |Univers|) (32 . |UniversCondensed|) (33 . |Trend|) (34 . |BoxPS|) (35 . |Terminal|) (36 . |OcrA|) (37 . |Logo1|) (38 . |Logo2|) (39 . |Logo3|) (40 . |Geneva2|) (41 . |Times2|) (42 . |Square3|) (43 . |Courier|) (44 . |Futura|) (45 . |Prestige|) (46 . |ALLetterGothic|) (47 . |CenturySchoolBook|) (48 . |Spare1|) (49 . |Spare2|) (50 . |Spare3|) (51 . |Spare4|) (52 . |Spare5|) (53 . |Melior|) (54 . |PCTerminal|) (55 . |ITCAmericanTypewriter|) (56 . |ITCAvantGardeGothic|) (57 . |ITCAvantGardeGothicCondensed|) (58 . |ITCBauhaus|) (59 . |ITCBarcelona|) (60 . |ITCBenguiat|) (61 . |ITCBenguiatCondensed|) (62 . |ITCBenguiatGothic|) (63 . |ITCBerkeleyOldStyle|) (64 . |ITCBookman|) (65 . |ITCCaslonNo224|) (66 . |ITCCentury|) (67 . |ITCCheltenham|) (68 . |ITCClearface|) (69 . |ITCCushing|) (70 . |ITCEras|) (71 . |ITCFenice|) (72 . |ITCFranklinGothic|) (73 . |ITCFrizQuadrata|) (74 . |ITCGalliard|) (75 . |ITCGaramond|) (76 . |ITCIsbell|) (77 . |ITCItalia|) (78 . |ITCKabel|) (79 . |ITCKorinna|) (80 . |ITCLubalinGraph|) (81 . |ITCModernNo216|) (82 . |ITCNewBaskerville|) (83 . |ITCNewtext|) (84 . |ITCNovarese|) (85 . |ITCQuorum|) (86 . |ITCSerifGothic|) (87 . |ITCSouvenir|) (88 . |ITCSymbol|) (89 . |ITCTiffany|) (90 . |ITCUsherwood|) (91 . |ITCWeidemann|) (92 . |ITCVeljovic|) (93 . |ITCZapfBook|) (94 . |ITCZapfChancery|) (95 . |ITCZapfDingbats|) (96 . |ITCZapfInternational|) (97 . |Cipher|) (98 . |FlemishScriptII|) (99 . |Quartz|) (100 . |QuartzA|) (101 . |QuartzT|) (102 . |Souvenir|) (103 . |Shimmer|) (104 . APL) (105 . |Arrows|) (106 . |BravoX|) (107 . |ClassicPiOne|) (108 . |ClassicPiTwo|) (109 . |Cream|) (110 . |Cyrillic|) (111 . |Dots|) (112 . |Gacha|) (113 . |Gates|) (114 . |HelveticaD| ) (115 . |Hippo|) (116 . |Keyhole|) (117 . |Laurel|) (118 . |LogoOutline|) (119 . |LSIGates|) (120 . |MarqHippo|) (121 . |MarqRoman|) (122 . |Math|) (123 . |Mathology|) (124 . |OldEnglish|) (125 . |RomanPS|) (126 . |Sigma|) (127 . |Splunk|) (128 . |Template|) (129 . |Testfont|) (130 . |TimesRoman|) (131 . |TimesRomanD|) (132 . |TitanLegal|) (133 . WSSA) (134 . |XeroxBook|) (135 . |LucidaRoman|) ( 136 . |MonoSpace|) (137 . |Spare6|) (138 . |Spare7|) (139 . |Spare8|) (140 . |Spare9|) (141 . |Spare10|))) (CONSTANTS \\NOVAFONTFAMILYNAMES) (DEFGLOBALVAR *NOVAFONT-INFO* NIL) (LISTPUT INTERPRESSFAMILYALIASES (QUOTE XEROXLOGO) (QUOTE LOGOTYPES-XEROX)) (|pushnew| INTERPRESSPRINTWHEELFAMILIES (QUOTE SCIENTIFICTHIN) (QUOTE OCRB) (QUOTE OCRA)) (MOVD? (QUOTE \\READDISPLAYFONTFILE) (QUOTE \\NO-NOVA-READDISPLAYFONTFILE)) (MOVD? (QUOTE \\CREATECHARSET.IP) (QUOTE \\NO-NOVA-CREATECHARSET.IP)) (MOVD (QUOTE \\READDISPLAYFONTFILE.NOVA) (QUOTE \\READDISPLAYFONTFILE)) (MOVD (QUOTE \\CREATECHARSET.IP.NOVA) (QUOTE \\CREATECHARSET.IP)) (PUTPROPS NOVAFONT COPYRIGHT ("Xerox Corporation" 1986 1987 1988 1989)) NIL