(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "26-Feb-93 03:35:21" ("compiled on " |{PELE:MV:ENVOS}LIBRARY>FONTSAMPLE.;2|) "19-Feb-93 17:03:08" bcompl'd in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "11-Jun-90 15:51:10" {DSK}local>lde>lispcore>library>FONTSAMPLE.;2 16609 changes to%: (VARS FONTSAMPLECOMS) previous date%: "10-Jan-87 15:47:00" {DSK}local>lde>lispcore>library>FONTSAMPLE.;1) FNT.MAKEBOOK :D8 (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) BgbCBdgNkbgYo[AdgI j\ H _C_OOmOk OOhgl@O ^8CH L_dOO]k OO"J Ok_IK LkؼJHL lBOk_(199 NTH 184 OPENIMAGESTREAM 168 BLOCK 162 CLOSEF 130 LENGTH 120 FNT.FILEMAP 69 LENGTH 57 FNT.FINDALL) (105 FNT.DISPLOOK 48 ALL 34 INTERPRESS 21 FNT.DISPTBLE 9 FNT.DISPLOOK) ( 40 (REGION (2794 1905 25400 24765))) FNT.LESSP :D8 (I 1 DSC2 I 0 DSC1) I@dA @@@@hbAAAAAhb@A (70 FNT.SORTP 9 ALPHORDER) NIL () FNT.SORTP :D8 (P 1 KEY2 P 0 KEY1 I 1 DSC2 I 0 DSC1) @ @dA XAYHI@AbbHdI h3IHHI (61 ALPHORDER 44 FNT.SORTP 12 ALPHORDER) NIL () FNT.DISPLOOK :D8 (I 1 FONTDSC I 0 FILEDSC F 0 FNT.INFOFONT F 1 FNT.OUTFTEXT) 8P@ @ @ @ @ @Ah A@ Q@ (53 PRIN1 46 DSPFONT 39 FNT.NARRDSCR 30 TERPRI 24 TERPRI 18 TERPRI 12 TERPRI 6 DSPFONT) NIL () FNT.DISPTBLE :D8 (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)  W Ahoh@ @ I[doJ@ oJoJ@ H@ @I A@ W@ L@ oJl JjO7OjOO jONoJNoJoJoJ O3OjwOO ijOOoJOoJLON@ Odl $KgO@ O @ Ok_OoJ__oi NoJ_Ծoi i h(384 TERPRI 377 PRIN1 349 PRIN1 312 PRIN1 306 CHARACTER 298 BLTCHAR 272 MOVETO 232 \FZEROP 160 \FZEROP 120 DSPFONT 112 PRIN1 103 DSPFONT 95 FNT.NARRDSCR 87 DSPFONT 79 MOVETO 58 DSPRIGHTMARGIN 35 IMAGESTREAMTYPE 25 DSPSCALE 6 FONTCREATE) (288 DISPLAY) ( 371 " done." 356 -0.5 343 "." 327 0.45 258 7.5 246 7.5 205 0.75 198 7.5 186 1.5 175 1.5 126 1.5 71 10.0 64 0.75 50 100.0 18 72.0) FNT.DISPDSCR :D8 (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) ?A3h@ ]oM_oM^djO_NlO_NlO_NlO_Nl(O_Nl2O_Nl7O_NlFO_AdO O O O ]MO@ H@ O@ oI@ O@ o@ J@ O@ J@ O@ J@ o@ O@ K@ O@ L@ O@ 8h(306 DSPXPOSITION 297 PRIN1 289 DSPXPOSITION 280 PRIN1 272 DSPXPOSITION 263 PRIN1 251 PRIN1 240 DSPXPOSITION 231 PRIN1 221 DSPXPOSITION 212 PRIN1 203 PRIN1 191 DSPXPOSITION 182 PRINTNUM 169 DSPXPOSITION 160 PRIN1 152 DSPXPOSITION 19 DSPSCALE) NIL ( 257 ")" 197 "(" 175 (FIX 3) 34 42.5 25 4.25) FNT.NARRDSCR :D8 (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@ ]oM_oM^djO_NlO_NlO_NlO_Nl!O_Nl0O_AdOO O_OO O]MO@ H@ O@ oI@ O@ J@ O@ K@ O@ L@ O@ ah(259 DSPXPOSITION 250 PRIN1 242 DSPXPOSITION 233 PRIN1 225 DSPXPOSITION 216 PRIN1 208 DSPXPOSITION 199 PRINTNUM 186 DSPXPOSITION 177 PRIN1 169 DSPXPOSITION 148 FNT.FACEMAP 126 FNT.FLST 31 DSPSCALE 21 FNT.FLST) (118 FONTDESCRIPTOR 13 FONTDESCRIPTOR) ( 192 (FIX 3) 46 42.5 37 4.25) FNT.DISPINIT :D8 (L (0 FILEDSC) F 0 FNT.OUTFTEXT F 1 FNT.INFOFONT) ocochNIL NIL ( 11 (TERMINAL 8 (MEDIUM REGULAR REGULAR) 0 INTERPRESS) 4 "abcdefghijkl ABCDEFGHIJKL") FNT.FACEMAP :D8 (I 0 OLDFACE) 6@ bd @ @ (51 CONCAT 46 GNC 41 MKSTRING 32 GNC 27 MKSTRING 19 GNC 14 MKSTRING 5 \FONTFACE) NIL () FNT.SIZEMAP :D8 (P 0 STR I 0 SIZE) "l @o@ @ (31 MKSTRING 24 CONCAT 19 MKSTRING) NIL ( 13 "0") FNT.MAKENAME :D8 (P 4 DDEV P 3 FACE P 2 SIZE P 1 TYPE P 0 STR I 0 FONTLIST) TP@ Y@ Z@ [@\I J K L o (81 CONCAT 70 GNC 65 MKSTRING 59 MKSTRING 53 MKSTRING 47 MKSTRING 33 MKSTRING 28 FNT.FACEMAP 18 FNT.SIZEMAP 9 MKSTRING) NIL ( 75 ".IP") FNT.MAKEWIND :D8 (P 0 PPI F 1 FNT.WINDOW) +lHhi XjdoHjl Hh c(38 CREATEW 11 DSPSCALE) NIL ( 20 8.5) FNT.FILEMAP :D8 (P 2 DESTNAME P 1 ROOTNAME P 0 FNAME I 1 NUMBER I 0 OUTFNAME) 90@di0d-Xdg YdA YgIgH (54 PACKFILENAME 36 MKATOM 31 CONCAT 23 FILENAMEFIELD) (48 BODY 42 NAME 18 NAME) () FNT.FINDALL :D8 (P 0 RESULT I 0 DEVICE) )gdog@i Xdg (38 SORT 26 FONTSAVAILABLE) (33 FNT.LESSP 18 * 7 *) ( 13 (* * *)) FNT.FLST :D8 (I 0 FONTOBJ) M@@@g @g @g @g @g h@@(62 FONTPROP 51 FONTPROP 40 FONTPROP 29 FONTPROP 18 FONTPROP) (57 DEVICE 46 ROTATION 35 FACE 24 SIZE 13 FAMILY 5 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 ("Venue & Xerox Corporation" 1985 1986 1987 1990)) NIL