(FILECREATED "24-Sep-86 17:53:26" ("compiled on " {ERIS}SOURCES>FONT.;102) "16-Sep-86 11:57:30" in "Xerox Lisp 16-Sep-86 ..." dated "16-Sep-86 12:29:41") (FILECREATED "24-Sep-86 17:49:49" {ERIS}SOURCES>FONT.;102 152798 changes to: (VARS FONTCOMS) previous date: "10-Sep-86 18:15:53" {ERIS}SOURCES>FONT.;100) (RPAQQ FONTCOMS ((* font functions) (FNS CHARWIDTH CHARWIDTHY STRINGWIDTH \CHARWIDTH.DISPLAY \STRINGWIDTH.DISPLAY \STRINGWIDTH.GENERIC) (* Until we pin down the exact interface) (P (MOVD (QUOTE FONTCLASSCOMPONENT) (QUOTE FONTCOMPONENT)) (MOVD (QUOTE SETFONTCLASSCOMPONENT) (QUOTE SETFONTCOMPONENT ))) (FNS DEFAULTFONT FONTCLASS FONTCLASSUNPARSE FONTCLASSCOMPONENT SETFONTCLASSCOMPONENT) (FNS FONTASCENT FONTCOPY FONTCREATE FONTSAVAILABLE FONTDESCENT FONTFILEFORMAT FONTHEIGHT FONTP FONTPROP FONTUNPARSE SETFONTDESCRIPTOR CHARCODEP GETCHARBITMAP PUTCHARBITMAP EDITCHAR \AVGCHARWIDTH \STREAMCHARWIDTH \UNITWIDTHSVECTOR \CREATEDISPLAYFONT \CREATECHARSET.DISPLAY \BUILDSLUGCSINFO \SEARCHDISPLAYFONTFILES \FONTFACE \FONTFILENAME \FONTINFOFROMFILENAME \GETFONTDESC \COERCEFONTDESC \LOOKUPFONT \LOOKUPFONTSINCORE \READDISPLAYFONTFILE \SFMAKEBOLD \SFMAKEITALIC \SFMAKEROTATEDFONT \SFROTATECSINFO \SFROTATEFONTCHARACTERS \SFFIXOFFSETSAFTERROTATION \SFROTATECSINFOOFFSETS \SFMAKECOLOR ) (INITRECORDS FONTCLASS FONTDESCRIPTOR CHARSETINFO) (SYSRECORDS FONTCLASS FONTDESCRIPTOR CHARSETINFO) (INITVARS (\FONTSINCORE) (\DEFAULTDEVICEFONTS) (\UNITWIDTHSVECTOR)) (GLOBALVARS DISPLAYFONTDIRECTORIES \DEFAULTDEVICEFONTS \UNITWIDTHSVECTOR) (P (\UNITWIDTHSVECTOR)) (CONSTANTS ( NORUNCODE 255)) (EXPORT (OPTIMIZERS FONTPROP)) (DECLARE: DONTCOPY (EXPORT (RECORDS FONTCLASS FONTDESCRIPTOR FONTFACE CHARSETINFO) (MACROS FONTASCENT FONTDESCENT FONTHEIGHT \FGETOFFSET \FSETOFFSET \FGETWIDTH \FSETWIDTH \FGETCHARWIDTH \FGETIMAGEWIDTH \FSETIMAGEWIDTH \GETCHARSETINFO \CREATECSINFOELEMENT \CREATEFONTCHARSETVECTOR) (CONSTANTS (\MAXNSCHAR 65535)))) (COMS (* NS Character specific code) (FNS \CREATECHARSET) (GLOBALVARS DISPLAYFONTCOERCIONS MISSINGDISPLAYFONTCOERCIONS CHARSETERRORFLG) (INITVARS (DISPLAYFONTCOERCIONS NIL) (MISSINGDISPLAYFONTCOERCIONS (QUOTE (((GACHA) ( TERMINAL)) ((MODERN) (CLASSIC)) ((TIMESROMAN) (CLASSIC)) ((HELVETICA) (MODERN))))) (CHARSETERRORFLG NIL) (\DEFAULTCHARSET 0))) (FNS \FONTRESETCHARWIDTHS \READSTRIKEFONTFILE) (DECLARE: DONTEVAL@LOAD ( INITVARS (DISPLAYFONTEXTENSIONS (QUOTE DISPLAYFONT)) (DISPLAYFONTDIRECTORIES (QUOTE ( {ERIS}FONTS> {ERIS}FONTS>))))) (MACROS \FGETCHARIMAGEWIDTH \GETFONTDESC \SETCHARSETINFO) (LOCALVARS . T) (PROP FILETYPE FONT) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA FONTCOPY))))) CHARWIDTH D1 (L (1 FONT 0 CHARCODE)) q@dj@@ 0Ad`(@@A @lgi X!A Z(@@J @l&4H@lI(123Q \CREATECHARSET 102Q FONTCREATE 73Q \GETSTREAM 52Q \CREATECHARSET 15Q \ILLEGAL.ARG) (145Q IMAGEOPS 140Q STREAM 67Q OUTPUT 27Q FONTDESCRIPTORTYPE#) () CHARWIDTHY D1 (L (1 FONT 0 CHARCODE)) @dj@@  Ad`(@@A d3 'dFjgi Xl H&6H@lIA (@ @A d3 dd@l(156Q \CREATECHARSET 153Q FONTCREATE 133Q FONTCREATE 75Q \GETSTREAM 52Q \CREATECHARSET 15Q \ILLEGAL.ARG) (115Q IMAGEOPS 110Q STREAM 71Q OUTPUT 27Q FONTDESCRIPTORTYPE#) () STRINGWIDTH D1 (L (3 RDTBL 2 FLG 1 FONT 0 STR) F 2 *READTABLE*)  Ad`(@ABCCdiRA(jA gi X,A X@HBCCdiRH(jH &2H@BCCdiRlI(144Q \STRINGWIDTH.GENERIC 135Q \CREATECHARSET 77Q FONTCREATE 70Q \GETSTREAM 60Q \STRINGWIDTH.GENERIC 51Q \CREATECHARSET) (201Q READTABLEP 155Q IMAGEOPS 150Q STREAM 121Q READTABLEP 64Q OUTPUT 35Q READTABLEP 10Q FONTDESCRIPTORTYPE#) () \CHARWIDTH.DISPLAY D1 (L (1 CHARCODE 0 STREAM)) $@( H(AAH Al(30Q \CREATECHARSET) NIL () \STRINGWIDTH.DISPLAY D1 (L (2 RDTBL 1 STR 0 STREAM)) @(AH BHA (20Q \STRINGWIDTH.GENERIC) NIL () \STRINGWIDTH.GENERICA0001 D1 (L (1 CC 0 DUMMY) F 0 CSET F 1 TOTALWIDTH F 2 FONT F 3 WIDTHSBASE F 4 SPACEWIDTH) 5QAl T)PASAcR(PPR cAlc(44Q \CREATECHARSET) NIL () \STRINGWIDTH.GENERIC D1 (L (2 RDTBL 0 STR) P 15Q CSET P 14Q WIDTHSBASE P 13Q TOTALWIDTH I 3 SPACEWIDTH I 1 FONT) L@dlnB0j@jcI^_I jh_HkXO>ONHNH»JMKKA(MMA Kl CLKlԺJljAB7A(jA "BA(IIA Il@Q Mk_M_OM_MCjhi_Ok_OQOOOOO^LNA(LLA HNl CKNlBNl"NIJjԸHj! g@Bd O(507Q \MAPPNAME 421Q \CREATECHARSET 254Q \CREATECHARSET 215Q \CREATECHARSET 133Q \CREATECHARSET) (501Q \STRINGWIDTH.GENERICA0001 227Q READTABLEP) () (MOVD (QUOTE FONTCLASSCOMPONENT) (QUOTE FONTCOMPONENT)) (MOVD (QUOTE SETFONTCLASSCOMPONENT) (QUOTE SETFONTCOMPONENT)) DEFAULTFONT D1 (L (2 NOERRORFLG 1 FONT 0 DEVICE) F 0 \GUARANTEEDDISPLAYFONT) C``g ABg`@A `@i Bh@gP`@ (100Q \COERCEFONTDESC 53Q \COERCEFONTDESC 42Q SETFONTCLASSCOMPONENT 16Q FONTCLASS) (74Q DEFAULTFONT 65Q DISPLAY 46Q DEFAULTFONT 35Q DEFAULTFONT 30Q NEW 21Q DEFAULTFONT 13Q DEFAULTFONT 6 FONTCLASSTYPE# 2 DEFAULTFONT) () FONTCLASS D1 (L (2 CREATEFORDEVICES 1 FONTLIST 0 NAME))  AY`d@II3 kdJIIdhddg dKIIdLIIdM0 IBd_O^N3Odo@Ah OO_O Oh_O&_O_dOXB_OHO_hO_O_HhddO (312Q FONTCREATE 162Q ERROR 57Q FONTCREATE) (53Q DISPLAY 7 FONTCLASSTYPE#) ( 152Q "illegal font class specification") FONTCLASSUNPARSE D1 (L (3 NOERRORFLG 2 FONT 1 DEVICE 0 FONTCLASS)) S@@@ @ @ h@@d[K hIHhZH&J (120Q \APPEND2 70Q FONTUNPARSE 36Q FONTUNPARSE 30Q FONTUNPARSE 22Q FONTUNPARSE) (53Q FONTCLASS 11Q FONTCLASS 3 FONTCLASS) () FONTCLASSCOMPONENT D1 (L (3 NOERRORFLG 2 FONT 1 DEVICE 0 FONTCLASS)) #@hddAC BBhddAC b@AB (37Q SETFONTCLASSCOMPONENT 26Q FONTCREATE 11Q FONTCREATE) NIL () SETFONTCLASSCOMPONENT D1 (L (2 FONT 1 DEVICE 0 FONTCLASS)) `BhddA AAdg@H@g@H2Adg@H!@@Ah@YIHH(10Q FONTCREATE) (121Q FONTCLASS 112Q FONTCLASS 101Q FONTCLASS 70Q FONTCLASS 61Q PRESS 47Q FONTCLASS 41Q INTERPRESS 31Q FONTCLASS 22Q DISPLAY) () FONTASCENT D1 (L (0 FONTSPEC)) @NIL (3 FONTDESCRIPTOR) () FONTCOPY D1 (L (0 FONTSPECS)) ekaka`*Hdllalag'Hl__OdOJh _dZO\O[O]O^HlO dO(JLKMNI HOdagkaOl_HO kah_"O adgO"ZTdgO"\GdgO" [7dgO"KKK[dgKO"KK[dgKKO"K[dg3KKKK_dddhdhOO"[dg4KKKK_dddhdhOO"[udgO"]hdgO"^[gO"YPO dlBHl7la/la!d__"OdgO"ZdgO"\dgO" [dgO"KKK[dgKO"KK[dgKKO"K[dg2KKKK_dddhdhOO"[`dg3KKKK_dddhdhOO"[(dgO"]dgO"^gO"YO ކO a O l_ ^(1407Q \ILLEGAL.ARG 1366Q \ILLEGAL.ARG 1014Q \FONTFACE 317Q \FONTFACE 176Q FONTCREATE 74Q \COERCEFONTDESC) (1352Q NOERROR 1340Q DEVICE 1324Q ROTATION 1234Q FORECOLOR 1145Q BACKCOLOR 1113Q EXPANSION 1060Q SLOPE 1024Q WEIGHT 1004Q FACE 767Q SIZE 752Q FAMILY 662Q NOERROR 646Q DEVICE 631Q ROTATION 540Q FORECOLOR 450Q BACKCOLOR 416Q EXPANSION 363Q SLOPE 327Q WEIGHT 307Q FACE 272Q SIZE 255Q FAMILY 211Q DEVICE 142Q FONTDESCRIPTOR 132Q FONTDESCRIPTOR 122Q FONTDESCRIPTOR 112Q FONTDESCRIPTOR 102Q FONTDESCRIPTOR 43Q DEVICE 16Q FONTCLASSTYPE#) () FONTCREATE D1 (L (6 CHARSET 5 NOERRORFLG 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY) F 6 \DEFAULTCHARSET) Ddl &,gFVB@d]dg@g@dl@H @ZJAJBJCJHIb bbbbb`@+@H "`@HE @ @`h@ ZRABCDGJg A Jg B Jg C Jg D Jg hb bbbbbJ\@lE@l A3 AjEA BEH ds@ @ bCjb3 jCETC @AKCH EgH`ZL1Dgi \&L&,Xg@AKCHIlMZEhJ $@AKCHJ o@AKCHh :(711Q ERROR 666Q SETFONTDESCRIPTOR 652Q \AVGCHARWIDTH 567Q \GETSTREAM 535Q \LOOKUPFONT 523Q \ILLEGAL.ARG 473Q U-CASE 466Q U-CASEP 456Q \FONTFACE 447Q \ILLEGAL.ARG 425Q \LISPERROR 352Q FONTPROP 340Q FONTPROP 326Q FONTPROP 314Q FONTPROP 302Q FONTPROP 257Q DSPFONT 241Q IMAGESTREAMP 233Q \COERCEFONTDESC 215Q DEFAULTFONT 106Q FONTCLASS) (646Q FONTDESCRIPTOR 617Q NILL 603Q IMAGEOPS 576Q STREAM 563Q OUTPUT 546Q IMAGESTREAMTYPES 542Q FONTCREATE 347Q DEVICE 335Q ROTATION 323Q FACE 311Q SIZE 277Q FAMILY 247Q WINDOWTYPE# 223Q FONTCLASSTYPE# 201Q FONTDESCRIPTORTYPE# 61Q CLASS 47Q FONT 26Q DISPLAY 16Q IMAGEOPS 11Q STREAM) ( 673Q "FONT NOT FOUND") FONTSAVAILABLE D1 (L (5 CHECKFILESTOO? 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY))  `Ddl dgY@d3dgXHAHBHCIbbbbb`@+@I "`@Ii @ @`h@ X4B@l@l Ad3 jAgA JgLBi dCg A Hg B Hg C Hg D Hg bbbbb@ @ bCjb3 jCCgC @AJCI EhhIgE0`,dgLg@AJCLlK^ON__O' _NgI`g@AJCIlM (622Q UNION 555Q LAST 444Q \LOOKUPFONTSINCORE 432Q \ILLEGAL.ARG 376Q U-CASE 371Q U-CASEP 342Q FONTPROP 330Q FONTPROP 316Q FONTPROP 304Q FONTPROP 272Q FONTPROP 260Q \FONTFACE 243Q \ILLEGAL.ARG 220Q \LISPERROR 177Q DSPFONT 161Q IMAGESTREAMP 153Q \COERCEFONTDESC 135Q DEFAULTFONT 14Q IMAGESTREAMTYPE) (604Q NILL 572Q IMAGESTREAMTYPES 566Q FONTSAVAILABLE 510Q NILL 476Q FONTSAVAILABLE 466Q IMAGESTREAMTYPES 455Q * 424Q * 337Q DEVICE 325Q ROTATION 313Q FACE 301Q SIZE 267Q FAMILY 250Q * 235Q * 167Q WINDOWTYPE# 143Q FONTCLASSTYPE# 121Q FONTDESCRIPTORTYPE# 41Q FONT 26Q DISPLAY) () FONTDESCENT D1 (L (0 FONTSPEC)) @NIL (3 FONTDESCRIPTOR) () FONTFILEFORMAT D1 (L (1 LEAVEOPEN 0 STRM)) X@dg @gg b @ dndng$n ldj@ kٰ@ lgA@ (124Q CLOSEF 23Q OPENSTREAM 7 OPENP) (116Q AC 52Q STRIKE 20Q OLD 15Q INPUT 4 INPUT) () FONTHEIGHT D1 (L (0 FONTSPEC)) @NIL (6 FONTDESCRIPTOR 3 FONTDESCRIPTOR) () FONTP D1 (L (0 X)) @d``@NIL (13Q FONTCLASSTYPE# 5 FONTDESCRIPTORTYPE#) () FONTPROP D1 (L (1 PROP 0 FONT)) @bAdgdg@Adg@g@Adg@g@ Adg@g@Adg@g@H#HAdg@HHg@Adg@g@@@ @@hAdg@d g g@dF@Adg@dF@g@d'!Adg@d& g@dAdg@dg@"A (600Q \ILLEGAL.ARG 360Q FONTPROP 351Q COPY 311Q COPY 106Q COPY) (566Q SCALE 544Q DEVICEFAMILY 520Q DEVICESIZE 471Q DEVICEEXPANSION 442Q DEVICEWEIGHT 413Q DEVICESLOPE 364Q DEVICEFACE 355Q SPEC 333Q DEVICESPEC 272Q SPEC 260Q DEVICE 245Q ROTATION 214Q BACKCOLOR 161Q FORECOLOR 144Q EXPANSION 127Q SLOPE 114Q WEIGHT 76Q FACE 64Q SIZE 51Q FAMILY 37Q DESCENT 24Q ASCENT 12Q HEIGHT 3 FONTDESCRIPTOR) () FONTUNPARSE D1 (L (0 FONT))  @d`g `g@ @YddXdddohlHH+XIIIaIjXHgIhMk Hk Hk H&oHHoHHh Hdh(262Q PACK 202Q NTHCHAR 172Q NTHCHAR 163Q NTHCHAR 110Q SHOULDNT 36Q FONTCLASSUNPARSE 20Q FONTPROP) (144Q MRR 32Q CLASS 25Q FONTCLASSTYPE# 15Q SPEC 10Q FONTDESCRIPTORTYPE#) ( 233Q "-" 214Q "-" 65Q (MEDIUM REGULAR REGULAR)) SETFONTDESCRIPTOR D1 (L (5 FONT 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) DgbED b BhD bCjb@` @h`AHHdAhHXBH HdBhHXCHddChHXDHddDhHdEE(116Q SASSOC 30Q \FONTFACE 17Q \COERCEFONTDESC) (61Q \FONTSINCORE 55Q \FONTSINCORE 44Q \FONTSINCORE 4 DISPLAY) () CHARCODEP D1 (L (0 CHCODE)) @j@h @nhNIL NIL () GETCHARBITMAP D1 (L (1 FONT 0 CHARCODE)) @ /@dn&d@dl bl @b@ AAH(@@H Zd@l[H\J YJJ@ljIjdKL I(214Q BKBITBLT 156Q BITMAPCREATE 112Q \CREATECHARSET 61Q \ILLEGAL.ARG 34Q CHCON1 3 CHARCODEP) (171Q CHARSETINFO 163Q CHARSETINFO 151Q BITMAP 144Q CHARSETINFO 135Q FONTDESCRIPTOR 117Q CHARSETINFO 66Q FONTDESCRIPTOR 51Q CHARACTER) () PUTCHARBITMAP D1 (L (3 NEWCHARDESCENT 2 NEWCHARBITMAP 1 FONT 0 CHARCODE) P 27Q \INTERRUPTABLE) Bl B @ @d@dl b Ap@H HHHH(@@H ]M_M__CK_h_____O_ N@lNB_BLO_"dO"O"_OOOO _O_OjdOjOK_$jO$O$jOJ BjdOOjOJ O@lON@lOMOOJEHOdKKHOHOOdKKMH MH BJBLO_&dO&O&_OOO _OjdOjOK_(jO(O(j OO_MOHOdKKHOHOOdKKMH MH IB_OI_OOJO _OjdOjdN@l_J BjdOOjOJ OOIjOOOjOOIkJ O@lOl@lk_,_*O,O*NO,ONO,O,k_,MOBjdON@ljIJ B(1336Q BKBITBLT 1202Q BKBITBLT 1144Q BKBITBLT 1124Q BKBITBLT 1072Q BITMAPCREATE 701Q BKBITBLT 643Q BITMAPCREATE 415Q BKBITBLT 375Q BKBITBLT 327Q BITMAPCREATE 135Q \CREATECHARSET 66Q CHARWIDTH 46Q \ILLEGAL.ARG 40Q CHCON1 16Q CHARCODEP 11Q \ILLEGAL.ARG) (1303Q CHARSETINFO 1037Q BITMAP 1025Q FONTDESCRIPTOR 1021Q CHARSETINFO 1010Q FONTDESCRIPTOR 1004Q CHARSETINFO 762Q FONTDESCRIPTOR 751Q FONTDESCRIPTOR 732Q FONTDESCRIPTOR 721Q CHARSETINFO 601Q BITMAP 566Q FONTDESCRIPTOR 562Q CHARSETINFO 551Q FONTDESCRIPTOR 545Q CHARSETINFO 523Q FONTDESCRIPTOR 512Q FONTDESCRIPTOR 473Q FONTDESCRIPTOR 454Q CHARSETINFO 267Q BITMAP 256Q BITMAP 225Q BITMAP 170Q BITMAP 161Q CHARSETINFO 150Q CHARSETINFO 141Q CHARSETINFO 111Q FONTDESCRIPTOR 102Q FONTDESCRIPTOR 73Q FONTDESCRIPTOR 53Q FONTDESCRIPTOR) () EDITCHAR D1 (L (1 FONT 0 CHARCODE)) A@H@H (23Q PUTCHARBITMAP 20Q EDITBM 15Q GETCHARBITMAP) (3 FONTDESCRIPTOR) () \AVGCHARWIDTH D1 (L (0 FONT)) %lA@ HjH@o djk(34Q FIXR 5 CHARWIDTH) (22Q FONTDESCRIPTOR) ( 30Q .6) \STREAMCHARWIDTH D1 (L (2 TTBL 1 STREAM 0 CHARCODE) F 6 \PRIMTERMTABLE) @lb0A A(XH`XB V@lIɀ@Iɀ jI@ldl+@l@@lH#jl JJl@ԺH^jHJdl\@l o@l i@l c@dl\dlH$l -H hA K]LMLhA M ]dhA $MH@dj@l @l @dl jhlj(375Q SHOULDNT 315Q DSPRIGHTMARGIN 304Q IMOD 277Q DSPLEFTMARGIN 257Q DSPXPOSITION 77Q GETHASH 37Q TERMTABLEP 14Q DISPLAYSTREAMP) (72Q CHARTABLE 62Q CHARTABLE 45Q TERMTABLEP 32Q \UNITWIDTHSVECTOR) () \UNITWIDTHSVECTOR D1 NIL (n njIH`IkIkY`(5 \ALLOCBLOCK) (45Q \UNITWIDTHSVECTOR 26Q \UNITWIDTHSVECTOR 10Q \UNITWIDTHSVECTOR) () \CREATEDISPLAYFONT D1 (L (5 CHARSET 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) k`dDd@dAdBdjdjdjdC@ABCDhHdIni HdI(Hd(EEHi H(145Q \CREATECHARSET 107Q \ALLOCBLOCK) (2 FONTDESCRIPTORTYPE#) () \CREATECHARSET.DISPLAY D1 (L (7 NOSLUG? 6 FONTDESC 5 CHARSET 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY) F 6 \COLORDISPLAYSTREAMTYPES)  `1JhhCj@ABCgE dCjCo oC @ABjgiE Yd~(EEIi djC c[\J@LDLdAL7LEL*K]$M@MABCDMEFG PJZFBdg$@AgBBBjgiE YaBg!@ABgBBjgiE YP`1J]hGF$FFFg (EEIi ds n(EEIi d\ W[\J@LDLdAL7LEL*K]$M@MABCDMEFG [JZQhXDV,dBBjBB D D H(1001Q \SFMAKECOLOR 776Q \DISPLAYSTREAMTYPEBPP 772Q MAXIMUMCOLOR 767Q \DISPLAYSTREAMTYPEBPP 705Q \CREATECHARSET.DISPLAY 573Q \SFMAKEITALIC 565Q \CREATECHARSET 544Q \SFMAKEBOLD 536Q \CREATECHARSET 514Q \BUILDSLUGCSINFO 511Q FONTPROP 425Q FONTCREATE 355Q FONTCREATE 272Q \CREATECHARSET.DISPLAY 157Q \SFROTATECSINFO 146Q \CREATECHARSET 121Q FONTCREATE 103Q ERROR 72Q MEMB 45Q \READDISPLAYFONTFILE) (506Q DEVICE 500Q FONTDESCRIPTOR 472Q FONTDESCRIPTOR 464Q FONTDESCRIPTOR 433Q MISSINGDISPLAYFONTCOERCIONS 417Q DISPLAY 400Q REGULAR 366Q ITALIC 347Q DISPLAY 325Q MEDIUM 314Q BOLD 113Q DISPLAY 40Q DISPLAY 5 DISPLAYFONTCOERCIONS) ( 77Q "only implemented rotations are 0, 90 and 270." 67Q (132Q 416Q)) \BUILDSLUGCSINFO D1 (L (3 DEVICE 2 DESCENT 1 ASCENT 0 WIDTH)) `dA dB l HdIl HdIl HdI HYljMLIM@Mk]Hlj_ONIO@Ok_CgJHl Zlj__OOJOjOk_H@AB [nKkh@k H(313Q BLTSHADE 272Q BITMAPCREATE 214Q \ALLOCBLOCK 60Q \ALLOCBLOCK 41Q \ALLOCBLOCK 22Q \ALLOCBLOCK) (263Q CHARSETINFO 207Q CHARSETINFO 200Q INTERPRESS 136Q CHARSETINFO 101Q CHARSETINFO 2 CHARSETINFOTYPE#) () \SEARCHDISPLAYFONTFILES D1 (L (3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) `qHKHhHH@ABI `NN_hN_NgOgJ jdg \K ZBg;BL]2BdgMFONTS> {ERIS}FONTS>))) (PUTPROPS \FGETCHARIMAGEWIDTH MACRO (OPENLAMBDA (FONT CHARCODE) (\FGETWIDTH (ffetch (CHARSETINFO IMAGEWIDTHS) of (\GETCHARSETINFO (\CHARSET CHARCODE) FONT)) (\CHAR8CODE CHARCODE)))) (PUTPROPS \GETFONTDESC DMACRO (X (COND ((CDR X) (CONS (QUOTE \COERCEFONTDESC) X)) (T (BQUOTE (\DTEST ( \, (CAR X)) (QUOTE FONTDESCRIPTOR))))))) (PUTPROPS \GETFONTDESC MACRO (= . \COERCEFONTDESC)) (PUTPROPS \SETCHARSETINFO MACRO ((CHARSETVECTOR CHARSET CSINFO) (\RPLPTR CHARSETVECTOR (UNFOLD CHARSET 2) CSINFO))) (PUTPROPS FONT FILETYPE COMPILE-FILE) (PUTPROPS FONT COPYRIGHT ("Xerox Corporation" 1981 1982 1983 1984 1985 1986)) NIL