(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "10-Jan-87 15:48:28" ("compiled on " {ERIS}LIBRARY>FONTSAMPLE.;14) " 7-Jan-87 03:28:48" tcompl'd in "Xerox Lisp 7-Jan-87 ..." dated " 7-Jan-87 03:56:58") (FILECREATED "10-Jan-87 15:47:00" {ERIS}LIBRARY>FONTSAMPLE.;14 16563 changes to%: (FNS FNT.NARRDSCR FNT.FLST) (VARS FONTSAMPLECOMS) previous date%: " 8-Jan-87 10:17:51" {ERIS}LIBRARY>FONTSAMPLE.;13) FNT.MAKEBOOK :D4 (P 13 I P 11 PAGENO P 9 IDEN P 8 INUM P 6 OUTFNAME P 5 THISPAGE P 4 ITER P 3 OUTFOPTS P 2 OUTFDSCR P 1 OUTFTYPE P 0 FONTLIST I 3 PERPAGE I 2 PRNTFN I 1 ListOfFonts I 0 OUTFROOTNAME) BgbCBdgDkbgYo[AdgI j\ H _C_OOkOk OOhgl@O ^2CH L_dOO]k OOJ Ok_IK LkؼJHL lBOk_(171 NTH 158 OPENIMAGESTREAM 144 BLOCK 140 CLOSEF 110 LENGTH 102 FNT.FILEMAP 56 LENGTH 46 FNT.FINDALL) (89 FNT.DISPLOOK 39 ALL 28 INTERPRESS 17 FNT.DISPTBLE 7 FNT.DISPLOOK) ( 33 (REGION (2794 1905 25400 24765))) FNT.LESSP :D4 (I 1 DSC2 I 0 DSC1) E@dA @@@@hbAAAAAhb@A (66 FNT.SORTP 7 ALPHORDER) NIL () FNT.SORTP :D4 (P 1 KEY2 P 0 KEY1 I 1 DSC2 I 0 DSC1) : @dA XAYHI@AbbHdI h3IHHI (55 ALPHORDER 40 FNT.SORTP 10 ALPHORDER) NIL () FNT.DISPLOOK :D4 (I 1 FONTDSC I 0 FILEDSC F 0 FNT.INFOFONT F 1 FNT.OUTFTEXT) (P@ @ @ @ @ @Ah A@ Q@ (37 PRIN1 32 DSPFONT 27 FNT.NARRDSCR 20 TERPRI 16 TERPRI 12 TERPRI 8 TERPRI 4 DSPFONT) NIL () FNT.DISPTBLE :D4 (P 10 XPosition P 7 CharacterCode P 6 YPosition P 4 Font P 3 DDev P 2 InchesToPrinterUnits P 1 FontList P 0 TitleFont I 1 FONTDSC I 0 Stream F 12 FNT.INFOFONT F 13 FNT.OUTFTEXT) V W Ahh@ o@ I+dJo@ JoJo@ H@ @I A@ W@ L@ JoJl jO3OjOO jONJoNJoJoJo O/OjhOO \jOOJoOJoAON@ Odl KgO@ O @ Ok_OJo__oi NJo_Ծ7oi i h(329 TERPRI 324 PRIN1 300 PRIN1 267 PRIN1 263 CHARACTER 257 BLTCHAR 235 MOVETO 199 \FZEROP 133 \FZEROP 96 DSPFONT 90 PRIN1 83 DSPFONT 77 FNT.NARRDSCR 71 DSPFONT 65 MOVETO 48 DSPRIGHTMARGIN 28 IMAGESTREAMTYPE 16 DSPSCALE 4 FONTCREATE) (249 DISPLAY) ( 320 " done." 307 -0.5 296 "." 282 0.45 224 7.5 213 7.5 175 0.75 169 7.5 158 1.5 148 1.5 102 1.5 60 10.0 54 0.75 43 100.0 20 72.0) FNT.DISPDSCR :D4 (P 16 DESCR P 15 T7 P 14 T6 P 13 T5 P 12 T4 P 11 T3 P 10 T2 P 9 T1 P 8 T0 P 7 UNITS P 6 OFFX P 5 TEMP P 4 STRM P 3 NUMB P 2 JUNK P 1 SIZE P 0 NAME I 1 FONTLIST I 0 OUTF) Ah@ ]do_Mo^dj_NOl_NOl_NOl_NOl(_NOl2_NOl7_NOlF_AdO O O O ]MO@ H@ O@ oI@ O@ o@ J@ O@ J@ O@ J@ o@ O@ K@ O@ L@ O@ ]h(262 DSPXPOSITION 255 PRIN1 249 DSPXPOSITION 242 PRIN1 236 DSPXPOSITION 229 PRIN1 220 PRIN1 211 DSPXPOSITION 204 PRIN1 196 DSPXPOSITION 189 PRIN1 182 PRIN1 173 DSPXPOSITION 166 PRINTNUM 156 DSPXPOSITION 149 PRIN1 143 DSPXPOSITION 17 DSPSCALE) NIL ( 225 ")" 178 "(" 161 (FIX 3) 31 42.5 23 4.25) FNT.NARRDSCR :D4 (P 15 I P 14 DESCR P 13 T5 P 12 T4 P 11 T3 P 10 T2 P 9 T1 P 8 T0 P 7 UNITS P 6 OFFX P 5 TEMP P 4 STRM P 3 NUMB P 2 FACE P 1 SIZE P 0 NAME I 1 FONTLIST I 0 OUTF) Ad A bh@ ]do_Mo^dj_NOl_NOl_NOl_NOl!_NOl0_AdOO O_OO O]MO@ H@ O@ oI@ O@ J@ O@ K@ O@ L@ O@ h(219 DSPXPOSITION 212 PRIN1 206 DSPXPOSITION 199 PRIN1 193 DSPXPOSITION 186 PRIN1 180 DSPXPOSITION 173 PRINTNUM 163 DSPXPOSITION 156 PRIN1 150 DSPXPOSITION 131 FNT.FACEMAP 111 FNT.FLST 25 DSPSCALE 17 FNT.FLST) (105 FONTDESCRIPTOR 11 FONTDESCRIPTOR) ( 168 (FIX 3) 39 42.5 31 4.25) FNT.DISPINIT :D4 (L (0 FILEDSC) F 0 FNT.OUTFTEXT F 1 FNT.INFOFONT) ocochNIL NIL ( 9 (TERMINAL 8 (MEDIUM REGULAR REGULAR) 0 INTERPRESS) 3 "abcdefghijkl ABCDEFGHIJKL") FNT.FACEMAP :D4 (I 0 OLDFACE) &@ bd @ @ (35 CONCAT 32 GNC 29 MKSTRING 22 GNC 19 MKSTRING 13 GNC 10 MKSTRING 3 \FONTFACE) NIL () FNT.SIZEMAP :D4 (P 0 STR I 0 SIZE) l @o@ @ (23 MKSTRING 18 CONCAT 15 MKSTRING) NIL ( 11 "0") FNT.MAKENAME :D4 (P 4 DDEV P 3 FACE P 2 SIZE P 1 TYPE P 0 STR I 0 FONTLIST) ?P@ Y@ Z@ [@\I J K L o (60 CONCAT 52 GNC 49 MKSTRING 45 MKSTRING 41 MKSTRING 37 MKSTRING 25 MKSTRING 22 FNT.FACEMAP 14 FNT.SIZEMAP 7 MKSTRING) NIL ( 56 ".IP") FNT.MAKEWIND :D4 (P 0 PPI F 1 FNT.WINDOW) &hi lHXjdHojHl h c(33 CREATEW 7 DSPSCALE) NIL ( 18 8.5) FNT.FILEMAP :D4 (P 2 DESTNAME P 1 ROOTNAME P 0 FNAME I 1 NUMBER I 0 OUTFNAME) +0@di"dXdg YdA YgIgH (40 PACKFILENAME 28 MKATOM 25 CONCAT 19 FILENAMEFIELD) (36 BODY 32 NAME 16 NAME) () FNT.FINDALL :D4 (P 0 RESULT I 0 DEVICE) gdog@i Xdg (27 SORT 19 FONTSAVAILABLE) (24 FNT.LESSP 13 * 5 *) ( 10 (* * *)) FNT.FLST :D4 (I 0 FONTOBJ) 7@,@g @g @g @g @g h@@(40 FONTPROP 33 FONTPROP 26 FONTPROP 19 FONTPROP 12 FONTPROP) (37 DEVICE 30 ROTATION 23 FACE 16 SIZE 9 FAMILY 3 FONTDESCRIPTOR) () (PRETTYCOMPRINT FONTSAMPLECOMS) (RPAQQ FONTSAMPLECOMS ((MACROS IDIVUP) (VARS FNT.PANEL FNT.FNAME FNT.INFOFONT FNT.OUTFTEXT) (FNS FNT.MAKEBOOK FNT.LESSP FNT.SORTP FNT.DISPLOOK FNT.DISPTBLE FNT.DISPDSCR FNT.NARRDSCR FNT.DISPINIT FNT.FACEMAP FNT.SIZEMAP FNT.MAKENAME FNT.MAKEWIND FNT.FILEMAP FNT.FINDALL FNT.FLST))) (PUTPROPS IDIVUP DMACRO ((INUMEXPR IDENEXPR) (LET (INUM IDEN) (SETQ INUM INUMEXPR) (SETQ IDEN IDENEXPR ) (IQUOTIENT (IPLUS INUM IDEN -1) IDEN)))) (RPAQQ FNT.PANEL ((PROG (SETQ FNT.WIND (FNT.MAKEWIND)) (SETQ FNT.FONTLIST (QUOTE (GACHA 10 (MEDIUM REGULAR REGULAR) 0 INTERPRESS)))) (PROG (CLEARW FNT.WIND) (FNT.DISPTBLE FNT.WIND FNT.FONTLIST)) (PROG (SETQ FNT.FILENAME (FNT.MAKENAME FNT.FONTLIST)) (SETQ FNT.STRM (OPENIMAGESTREAM FNT.FILENAME (QUOTE INTERPRESS))) (TOTOPW FNT.WIND) (BITBLT FNT.WIND 0 0 FNT.STRM 0 0 612 792 (QUOTE INPUT) (QUOTE REPLACE )) (CLOSEF FNT.STRM)))) (RPAQQ FNT.FNAME {DSK}FONTBOOK.IP) (RPAQQ FNT.INFOFONT (TERMINAL 8 (MEDIUM REGULAR REGULAR) 0)) (RPAQQ FNT.OUTFTEXT "abcdefghijkl ABCDEFGHIJKL") (PUTPROPS FONTSAMPLE COPYRIGHT ("Xerox Corporation" 1985 1986 1987)) NIL