(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "12-Jul-2022 15:09:32" ("compiled on " {DSK}kaplan>Local>medley3.5>working-medley>sources>FONT.;11) "10-Jul-2022 17:34:41" "COMPILE-FILEd" in "FULL 10-Jul-2022 ..." dated "10-Jul-2022 17:34:47") (FILECREATED "12-Jul-2022 15:09:31" {DSK}kaplan>Local>medley3.5>working-medley>sources>FONT.;11 187571 :CHANGES-TO (FNS \INSTALLCHARSETINFO \CREATECHARSET WRITESTRIKEFONTFILE \READSTRIKEFONTFILE) ( VARS FONTCOMS) :PREVIOUS-DATE "11-Jul-2022 23:05:20" {DSK}kaplan>Local>medley3.5>working-medley>sources>FONT.;3) (RPAQQ FONTCOMS ((* ;; "font functions ") (FNS CHARWIDTH CHARWIDTHY STRINGWIDTH \CHARWIDTH.DISPLAY \STRINGWIDTH.DISPLAY \STRINGWIDTH.GENERIC) (FNS DEFAULTFONT FONTCLASS FONTCLASSUNPARSE FONTCLASSCOMPONENT SETFONTCLASSCOMPONENT) (COMS (* ; "Until we pin down the exact interface") (P (MOVD (QUOTE FONTCLASSCOMPONENT) (QUOTE FONTCOMPONENT)) (MOVD (QUOTE SETFONTCLASSCOMPONENT) (QUOTE SETFONTCOMPONENT)))) (COMS (* ; "MAPPING FOR DOS FILENAMES ") (INITVARS (*DISPLAY-FONT-NAME-MAP* ( QUOTE ((TIMESROMAN . TR) (HELVETICA . HV) (TIMESROMAND . TD) (HELVETICAD . HD) (MODERN . MD) (CLASSIC . CL) (GACHA . GC) (TITAN . TI) (LETTERGOTHIC . LG) (BOLDPS . BP) (TERMINAL . TM) (CLASSICTHIN . CT) (HIPPO . HP) (LOGO . LG) (MATH . MA) (OLDENGLISH . OE) (SYMBOL . SY)))))) (COMS (* ;; "Creation: ") ( FNS FONTCREATE \FONT.SYMBOLMEMB \FONT.SYMBOLASSOC \FONT.COMPARESYMBOL)) (COMS (* ;; "Property extraction:") (FNS FONTASCENT FONTDESCENT FONTHEIGHT FONTPROP \AVGCHARWIDTH)) (COMS (* ;; "Bitmap editing/manipulation:") (FNS GETCHARBITMAP PUTCHARBITMAP MOVECHARBITMAP)) (FNS FONTCOPY FONTSAVAILABLE FONTFILEFORMAT FONTP FONTUNPARSE SETFONTDESCRIPTOR CHARCODEP EDITCHAR \STREAMCHARWIDTH \UNITWIDTHSVECTOR \CREATEDISPLAYFONT \CREATECHARSET.DISPLAY \CREATE-REAL-CHARSET.DISPLAY \BUILDSLUGCSINFO \SEARCHDISPLAYFONTFILES \SEARCHFONTFILES \FINDFONTFILE \FONTSYMBOL \DEVICESYMBOL \FONTFACE \FONTFACE.COLOR \FONTFILENAME \FONTFILENAME.OLD \FONTFILENAME.NEW \FONTINFOFROMFILENAME \FONTINFOFROMFILENAME.OLD \GETFONTDESC \COERCEFONTDESC \LOOKUPFONT \LOOKUPFONTSINCORE \READDISPLAYFONTFILE) (COMS (* ;; "\FINDFONTFILE \FONTFILENAME \SEARCHFONTFILES \FONTINFOFROMFILENAME are redefined to deal with character-set directories. That behavior is conditioned on the setting of the global variable *USEOLDFONTDIRECTORIES*, T at PARC, maybe NIL most other places. " ) (ADDVARS (*OLD-FONT-EXTENSIONS* STRIKE)) (INITVARS (*USEOLDFONTDIRECTORIES* NIL)) (GLOBALVARS *OLD-FONT-EXTENSIONS* *USEOLDFONTDIRECTORIES*) (* ;; "Establishes DISPLAYFONTFILECACHE to avoid rereading charsets when size coercions are done (e.g. for nsdisplaysizes or smallscreen)" )) (COMS (* ;; "Establishes DISPLAYFONTFILECACHE to avoid rereading charsets when size coercions are done (e.g. for nsdisplaysizes or smallscreen)" ) (INITVARS (CACHEDISPLAYFONTS)) (GLOBALVARS CACHEDISPLAYFONTS) (* ; "STRIKE format file support") ( FNS \READSTRIKEFONTFILE \SFMAKEBOLD \SFMAKEITALIC \SFMAKEROTATEDFONT \SFROTATECSINFO \SFROTATEFONTCHARACTERS \SFFIXOFFSETSAFTERROTATION \SFROTATECSINFOOFFSETS \SFMAKECOLOR) (FNS WRITESTRIKEFONTFILE STRIKECSINFO)) (INITRECORDS FONTCLASS FONTDESCRIPTOR CHARSETINFO) (SYSRECORDS FONTCLASS FONTDESCRIPTOR CHARSETINFO) (INITVARS (\FONTSINCORE) (\DEFAULTDEVICEFONTS) ( \UNITWIDTHSVECTOR)) (GLOBALVARS DISPLAYFONTDIRECTORIES \DEFAULTDEVICEFONTS \UNITWIDTHSVECTOR) ( DECLARE%: DONTEVAL@LOAD DOCOPY (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 \FSETCHARWIDTH \FGETIMAGEWIDTH \FSETIMAGEWIDTH \GETCHARSETINFO \CREATECSINFOELEMENT \CREATEFONTCHARSETVECTOR) (FUNCTIONS \CREATEKERNELEMENT \FSETLEFTKERN \FGETLEFTKERN) (CONSTANTS ( \MAXNSCHAR 65535)))) (COMS (* ; "NS Character specific code") (FNS \CREATECHARSET \INSTALLCHARSETINFO) (GLOBALVARS DISPLAYFONTCOERCIONS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS CHARSETERRORFLG) (INITVARS (DISPLAYFONTCOERCIONS NIL) (MISSINGCHARSETDISPLAYFONTCOERCIONS (QUOTE ((( GACHA) (TERMINAL)) ((MODERN) (CLASSIC)) ((TIMESROMAN) (CLASSIC)) ((HELVETICA) (MODERN)) ((TERMINAL 6) (MODERN 6)) ((TERMINAL 8) (MODERN 8)) ((TERMINAL 10) (MODERN 10)) ((TERMINAL 12) (MODERN 12))))) ( MISSINGDISPLAYFONTCOERCIONS (QUOTE (((GACHA) (TERMINAL)) ((MODERN) (CLASSIC)) ((TIMESROMAN) (CLASSIC)) ((HELVETICA) (MODERN)) ((TERMINAL) (MODERN))))) (CHARSETERRORFLG NIL) (\DEFAULTCHARSET 0))) (FNS \FONTRESETCHARWIDTHS) (DECLARE%: DONTEVAL@LOAD (INITVARS (DISPLAYFONTEXTENSIONS (QUOTE DISPLAYFONT)) ( DISPLAYFONTDIRECTORIES (QUOTE ({DSK}/USR/LOCAL/LDE/FONTS/DISPLAY/PRESENTATION/ {dsk}/usr/local/lde/fonts/display/publishing/))))) (MACROS \FGETCHARIMAGEWIDTH \GETFONTDESC \SETCHARSETINFO) (LOCALVARS . T) (PROP FILETYPE FONT) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA FONTCOPY))))) CHARWIDTH :D8 (L (1 FONT 0 CHARCODE)) …@d•¿j@ñ–@ ¿0AdÃ²!¿AÉ@ãàÐÉµ@ãAhÉ@lÿåÐÈgiXµ&A ZÉ@ãàÐÉµ@ãJhÉ@lÿåÐÈÉ.É4¹H@lI(99 \CREATECHARSET 79 FONTCREATE 70 \GETSTREAM 49 \CREATECHARSET 15 \ILLEGAL.ARG) (121 IMAGEOPS 114 STREAM 64 OUTPUT 26 FONTDESCRIPTOR) () CHARWIDTHY :D8 (L (1 FONT 0 CHARCODE)) š@d•¿j@ñ–@ ¿ AdÃ²#¿AÉ@ãàÐÉµ@ãAhÉd3 µ0d³VjgiXÃ²HÉ.É6¹H@lIA É@ãàÐÉµ@ãA hÉd3 µÜd²®d@lÿåÐÈ(133 \CREATECHARSET 127 FONTCREATE 109 FONTCREATE 72 \GETSTREAM 49 \CREATECHARSET 15 \ILLEGAL.ARG) (93 IMAGEOPS 86 STREAM 78 STREAM 66 OUTPUT 26 FONTDESCRIPTOR) () STRINGWIDTH :D8 (L (3 RDTBL 2 FLG 1 FONT 0 STR) F 2 *READTABLE*) « AdÃ²/¿@AB´C•Cdið‘¿RAÉÉµ jAhÉÈ žAgiXµgðš@H°,A@É µ@Ah@ÉY¿IHH(98 SASSOC 24 FONTPROP 10 FONTCREATE) (115 FONTCLASS 106 FONTCLASS 91 FONTCLASS 79 FONTCLASS 71 PRESS 61 FONTCLASS 52 INTERPRESS 41 FONTCLASS 32 DISPLAY 19 DEVICE) () (MOVD (QUOTE FONTCLASSCOMPONENT) (QUOTE FONTCOMPONENT)) (MOVD (QUOTE SETFONTCLASSCOMPONENT) (QUOTE SETFONTCOMPONENT)) (RPAQ? *DISPLAY-FONT-NAME-MAP* (QUOTE ((TIMESROMAN . TR) (HELVETICA . HV) (TIMESROMAND . TD) ( HELVETICAD . HD) (MODERN . MD) (CLASSIC . CL) (GACHA . GC) (TITAN . TI) (LETTERGOTHIC . LG) (BOLDPS . BP) (TERMINAL . TM) (CLASSICTHIN . CT) (HIPPO . HP) (LOGO . LG) (MATH . MA) (OLDENGLISH . OE) (SYMBOL . SY)))) FONTCREATE :D8 (L (6 CHARSET 5 NOERRORFLG 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) AFµ`A@d²edgð”¿@°"gð²@dd3@ðž¿@@D@YIµAIµBIµCIµDHb¿b¿b¿b¿b¿b°Ã’@°3@µ D °(Ã™@DE°@ §@Ã´ h@ Y²fA¦B¤C¢D²[Ig Aµ Ig Bµ Ig Cµ Ig Dµ Ig hb¿b¿b¿b¿b¿b±þñIDh»Z¿@d3@ðE’±Þ@l ¿A3 “Ajñ«E’±ÈA ¿Cµjb°3 “jCñ›E’±C ¿Dµ g°Kd3@ð˜Ddið¤¿J°=DgiµD ²D °É.É,ˆE³XD ºBEJd²G»@AKCJ µ9J`Y²I@ bgIµg¼@AKCJHlLYµ¿E²+hI Í@AKCJI Jd Zð³Ø°Šo@AKCJh ±þÛ(572 ERROR 545 U-CASE 537 SETFONTDESCRIPTOR 523 \AVGCHARWIDTH 473 \FONTSYMBOL 454 \LOOKUPFONT 439 \FONTFACE 430 \ILLEGAL.ARG 404 MKATOM 399 U-CASE 391 STRINGP 383 \GETSTREAM 346 \ILLEGAL.ARG 319 \ILLEGAL.ARG 299 \LISPERROR 251 FONTPROP 237 FONTPROP 223 FONTPROP 209 FONTPROP 195 FONTPROP 172 DSPFONT 156 IMAGESTREAMP 148 \COERCEFONTDESC 132 DEFAULTFONT 59 FONTCLASS) (517 FONTDESCRIPTOR 491 NILL 480 FONTCREATE 462 IMAGESTREAMTYPES 418 IMAGEOPS 411 STREAM 377 OUTPUT 355 DISPLAY 246 DEVICE 232 ROTATION 218 FACE 204 SIZE 190 FAMILY 163 WINDOW 139 FONTCLASS 119 FONTDESCRIPTOR 34 CLASS 22 FONT 7 \DEFAULTCHARSET) ( 556 "FONT NOT FOUND (coerced to)") \FONT.SYMBOLMEMB :D8 (L (1 LIST 0 USERINPUT)) AHY¡h@I ‘II°î(17 \FONT.COMPARESYMBOL) NIL () \FONT.SYMBOLASSOC :D8 (L (1 LIST 0 USERINPUT)) PA@ "@ »laKñ©Klzñ¤Kl Ù»HµhºIJ ð²KJ ðœ@JIK‘JHX°Ô(70 \FONT.COMPARESYMBOL 58 CHCON1 47 NCHARS 15 CHCON1 6 NCHARS) NIL () \FONT.COMPARESYMBOL :D8 (L (3 INPUTFIRSTC 2 INPUTNC 1 KEY 0 USERINPUT)) â @d3@ð²#`@ÁÊ¶`ð@Aðµ @ AðBµ@ A ð´ïCµ+@ bA ð³%laCñ³Clzñ³Cl ÙA ðˆA ð€h´¸k@kATIÁ¿IÁ¿KÁÉ]Ê¾KÁÊ jðhð_¿HNñ³EO•MHÐÈ‚MHÂ¼HNñ³3O•MHÐÈ‚MHÂ_¿LOð³laLñ¬Llzñ§OLmàØð¡hHkØkØX°»i(107 CHCON1 99 CHCON1 74 CHCON1 66 CHCON1 54 NCHARS 48 NCHARS 36 U-CASE) (23 *INTERLISP-PACKAGE* 11 *PACKAGE-FROM-INDEX*) () FONTASCENT :D8 (L (0 FONTSPEC)) @ÈNIL (5 FONTDESCRIPTOR) () FONTDESCENT :D8 (L (0 FONTSPEC)) @È NIL (5 FONTDESCRIPTOR) () FONTHEIGHT :D8 (L (0 FONTSPEC)) @È NIL (10 FONTDESCRIPTOR 5 FONTDESCRIPTOR) () FONTPROP :D8 (L (1 PROP 0 FONT)) ¾@bAdgð”¿dÈ dgð”¿@Ègð“@È Adgð”¿@Égð“@ÉAdgð™¿@É gð”@ÉAdgð–¿@Égð–@ÉAdgð²¿@ÉH´"Hgð²@ÉH´HAdgð”¿@Ègð“@ÉAdgð²¿@É@É@É @È@Éhgð²@dÉ—É g Adgð²¿@dÉ¢±ÿ'É±ÿ!gðŸ@dÉ¢±ÿ/É±ÿ)Adgð²¿@dÉ¢±ÿÉ±þÿgðŸ@dÉ¢±ÿ É±ÿAdgð¿@dÉ¢±þ¶Égð›@dÉ¢±þ—ÉAdgð”¿@É (443 \ILLEGAL.ARG 281 FONTPROP 270 COPY 237 COPY 88 COPY) (431 SCALE 410 DEVICEFAMILY 389 DEVICESIZE 364 DEVICEEXPANSION 339 DEVICEWEIGHT 314 DEVICESLOPE 289 DEVICEFACE 276 SPEC 255 DEVICESPEC 219 SPEC 206 DEVICE 194 ROTATION 166 BACKCOLOR 138 FORECOLOR 122 EXPANSION 108 SLOPE 94 WEIGHT 77 FACE 64 SIZE 52 FAMILY 39 DESCENT 27 ASCENT 14 HEIGHT 5 FONTDESCRIPTOR) () \AVGCHARWIDTH :D8 (L (0 FONT)) ,lA@ Hjð¡Ho@È ê djð²ék(35 FIXR 7 CHARWIDTH) (27 FONTDESCRIPTOR) ( 21 0.6) GETCHARBITMAP :D8 (L (1 FONT 0 CHARCODE)) Æ@ ³;@dnð³2d ©¿@dd3@ðš¿@ b°Ã™@Ób…@ ¿AAHÉ@ãàÐÉµ@ãHhZddÉ™¿JÉ†É@lÿåÐÈ[HÈ \JÉÈYJÉJÉ@lÿåÐÈjIjdKL I(194 BKBITBLT 158 BITMAPCREATE 93 \CREATECHARSET 63 \ILLEGAL.ARG 37 CHCON1 21 STRINGP 5 CHARCODEP) (173 CHARSETINFO 165 CHARSETINFO 151 BITMAP 144 CHARSETINFO 135 FONTDESCRIPTOR 119 CHARSETINFO 111 CHARSETINFO 101 CHARSETINFO 70 FONTDESCRIPTOR 53 CHARACTER 46 CHARACTER) () PUTCHARBITMAP :D8 (L (3 NEWCHARDESCENT 2 NEWCHARBITMAP 1 FONT 0 CHARCODE) P 31 \INTERRUPTABLE) BÃ¦B ¿@ ³"@d ©¿@dd3@ð™¿@ b„ ¿AñðHÉ@ãàÐÉµ@ãHhYÈºIÈ »JKØ¼IÉ½IÉ¾IÉ_šO@lÿåÐÈµ @H _¿IÉ_È_¿h___&_(¿OÈ_*¿BÈ_¿BÈ_¿CµJ_ ¿OO Ù_¿O dJñ¡¿J_"¿OdKñ¡¿K_$¿O"O$Ø_&¿M@lÿåÐÈ_(MÈÿð²;OOØO&O*_¿OjdOjO"JÙ_,¿jO,ñ¢O,€jOL ¿O_(±¨OOð³gOOÙ_¿OOØO&O*_¿OjdOjO"JÙ_.¿jO.ñ¢O.€jO(L ¿OO(OØjOO(OØO"JÙ_0¿jO0ñ¢O0€jOO(OØÙkØ°4OKñ¥O Jñ²1OO&O*_¿OjdOjO"JÙ_2¿jO2ñ¢O2€jOL ¿BjdOµOO(O"O Ù_4¿jO4ñ¢O4€jOO ¿O¢±®N@lÿåÐOÍ¿Oµ‚±šM@lÿåÐO(Í¿O²lÿj_8¿_6¿O8O6ó¢±†IO¿IO"Í¿IO$Í ¿O$HÈ_:¿dO:ñ¢¿O:_$¿O"HÈ _<¿dO<ñ¢¿O<_"¿HO$Í¿HO"Í ¿HO"O$ØÍ B@lÿåÐOÍ¿±ÿ_MO8ÐÈO(ñŸMO8ÐOMO8ÐÈØÍ¿O8kÔ_8±ÿV(543 BKBITBLT 504 BKBITBLT 469 BITMAPCREATE 403 BKBITBLT 368 BITMAPCREATE 331 BKBITBLT 296 BITMAPCREATE 154 CHARWIDTH 85 \CREATECHARSET 52 \ILLEGAL.ARG 44 CHCON1 28 STRINGP 19 CHARCODEP 12 \ILLEGAL.ARG) (714 FONTDESCRIPTOR 703 FONTDESCRIPTOR 692 FONTDESCRIPTOR 670 FONTDESCRIPTOR 646 FONTDESCRIPTOR 633 CHARSETINFO 622 CHARSETINFO 611 CHARSETINFO 216 BITMAP 205 BITMAP 194 BITMAP 172 BITMAP 163 CHARSETINFO 131 CHARSETINFO 122 CHARSETINFO 113 CHARSETINFO 100 CHARSETINFO 91 CHARSETINFO 59 FONTDESCRIPTOR 5 BITMAP) () MOVECHARBITMAP :D8 (L (4 CLIP 3 DESTFONT 2 DESTCODE 1 SRCEFONT 0 SRCECODE)) Å AC²@A ^HÈZIÈ\HÈ [IÈ ]D¥JdLñ¡¿L_D¥KdMñ¡¿M_JOð•KOð³ZN OOØ _¿NjKOÙ_¿jOñ¢O€jOjOKÙ_¿jOñ¢O€jN JKØOOØ_¿dOñ’¿O ¿BCOµNOh(193 PUTCHARBITMAP 178 BKBITBLT 153 BITMAPWIDTH 107 BITMAPCREATE 97 BITMAPWIDTH 21 GETCHARBITMAP) (55 FONTDESCRIPTOR 46 FONTDESCRIPTOR 37 FONTDESCRIPTOR 28 FONTDESCRIPTOR 11 FONTDESCRIPTOR 5 FONTDESCRIPTOR) () FONTCOPY :D8 (L (0 FONTSPECS)) teðkakaÃ´-Hdlð²¿lašlag'°Hl_¿_¿OdOó²X¿h _dÉ[OÉ]OÉ\OÈ^OÉ_HlO"dO ó²+I¢±ÞJ¢±ÙhHð¯Odagð–kØa°›OlÔ_°ŠHð¥O"kØa€h_$¿O"adgð–¿O$[±‘dgð–¿O$]±‚dgð›¿O$ \±ndgð²¿O$LLL\±Pdgð²¿LO$LL\±3dgð²¿LLO$L\±dgð²3¿LLLL_dd¬¿dhdd¿OO$¿\±Ýdgð²4¿LLLL_dd¬¿dhdd¿OO$¿\±¢dgð–¿O$^±“dgð—¿O$_±ƒgð•O$Y±vO"lð¢±`Hlð¢±Xla¢±Pla±Bd__$¿Odgð–¿O$[±%dgð–¿O$]±dgð›¿O$ \±dgð²¿O$LLL\±ädgð²¿LO$LL\±Çdgð²¿LLO$L\±«dgð²2¿LLLL_dd¬¿dhdd¿OO$¿\°qdgð²3¿LLLL_dd¬¿dhdd¿OO$¿\°7dgð•¿O$^°)dgð–¿O$_°gð“O$YŒI’iZ‡O ¿µ‚±þ½I’iZ‡O"a ¿O"lÔ_"±ýKMLNOI (881 FONTCREATE 857 \ILLEGAL.ARG 833 \ILLEGAL.ARG 574 \FONTFACE 234 \FONTFACE 65 \COERCEFONTDESC) (814 NOERROR 800 DEVICE 786 ROTATION 728 FORECOLOR 671 BACKCOLOR 643 EXPANSION 614 SLOPE 584 WEIGHT 564 FACE 549 SIZE 534 FAMILY 478 NOERROR 463 DEVICE 448 ROTATION 389 FORECOLOR 331 BACKCOLOR 303 EXPANSION 274 SLOPE 244 WEIGHT 224 FACE 209 SIZE 194 FAMILY 156 DEVICE 113 FONTDESCRIPTOR 103 FONTDESCRIPTOR 93 FONTDESCRIPTOR 83 FONTDESCRIPTOR 73 FONTDESCRIPTOR 38 DEVICE 15 FONTCLASS) () FONTSAVAILABLE :D8 (L (5 CHECKFILESTOO? 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) à `DdÃ›¿D d˜†µgY@d²5dgðXHµAHµBHµCIb¿b¿b¿b¿b°«Ã’@°3@µ I °(Ã™@Ii°@ §@Ã´ h@ Xµ>Bº@d3@ð¨@l ¿Ad3 “jñ®Agð¦A ¿Jgð³bBi d³Wg Aµ Hg Bµ Hg Cµ Hg Dµ Hg b¿b¿b¿b¿b±þßº@ ¨@ b¿Cµjb°3 “jCñžCgð¦C ¿@AJCI E¢h°xIgð²M0`°0d¼gLµg»@AJCLlK^™OµN__¿µÑO°/ _N°ígI`µg½@AJCIlM (477 UNION 432 LAST 349 \LOOKUPFONTSINCORE 337 \ILLEGAL.ARG 305 U-CASE 298 U-CASEP 273 FONTPROP 259 FONTPROP 245 FONTPROP 231 FONTPROP 217 FONTPROP 203 \FONTFACE 186 \ILLEGAL.ARG 163 \LISPERROR 144 DSPFONT 128 IMAGESTREAMP 120 \COERCEFONTDESC 104 DEFAULTFONT 17 IMAGESTREAMTYPE) (461 NILL 449 IMAGESTREAMTYPES 443 FONTSAVAILABLE 393 NILL 381 FONTSAVAILABLE 371 IMAGESTREAMTYPES 360 * 329 * 268 DEVICE 254 ROTATION 240 FACE 226 SIZE 212 FAMILY 193 * 178 * 135 WINDOW 111 FONTCLASS 91 FONTDESCRIPTOR 42 FONT 29 DISPLAY 9 STREAM) () FONTFILEFORMAT :D8 (L (1 LEAVEOPEN 0 STRM)) i@dg ³¿@ggb á@ Ødn€ð¥dn ð—¿g°&nð´ ldjñ–@ ¿kÙ°÷¿@ ââââlð´gA¦@ ¿(101 CLOSEF 30 OPENSTREAM 11 OPENP) (93 AC 55 STRIKE 25 OLD 20 INPUT 6 INPUT) () FONTP :D8 (L (0 X)) @dÃ©¿@Ã´@NIL (14 FONTCLASS 6 FONTDESCRIPTOR) () FONTUNPARSE :D8 (L (0 FONT)) Ø @dÃ²¿@g Ydd³dÃ²ô¿g@ Xd´ddoô’¿hd3@ð‘HˆHµ/XIII²mIjð³dHµgIh°Wk Hk Hk H´(oH´HoH´Hh °ŠHd‘h(204 PACK 152 NTHCHAR 142 NTHCHAR 133 NTHCHAR 86 SHOULDNT 49 FONTCLASSUNPARSE 23 FONTPROP) (116 MRR 43 CLASS 35 FONTCLASS 18 SPEC 9 FONTDESCRIPTOR) ( 179 "-" 163 "-" 65 (MEDIUM REGULAR REGULAR)) SETFONTDESCRIPTOR :D8 (L (5 FONT 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) D bE™ED b ¿@ bBhDbC£jb¿Ad3 •¿jAñ–A ¿@`µ@h`AHµHdAhH¿XBH µHdBhH¿XCHµddChH¿XDHµddDhH¿dEE(114 SASSOC 59 \ILLEGAL.ARG 35 \FONTFACE 25 \FONTSYMBOL 16 \COERCEFONTDESC 5 \DEVICESYMBOL) (83 \FONTSINCORE 77 \FONTSINCORE 66 \FONTSINCORE) () CHARCODEP :D8 (L (0 CHCODE)) @´j@ñhð´ @nÿÿñhðNIL NIL () EDITCHAR :D8 (L (1 FONT 0 CHARCODE)) A@H@H (27 PUTCHARBITMAP 22 EDITBM 17 GETCHARBITMAP) (5 FONTDESCRIPTOR) () \STREAMCHARWIDTH :D8 (L (2 TTBL 1 STREAM 0 CHARCODE) F 6 \PRIMTERMTABLE) @lÿåb0A ™AÉ0X”HÉµ`XB µVÉ¹@lÿñ²IÉ€Ÿ@IÉ€ µj‚I@Âlådlð²+¿@ºl€@ñ¨@låºHÈ#€jl Jñ˜Jl@ÔºHÈ^€jØHJÐÈØdlð²d¿@l ð³w@l ð³q@l ð³k@dlð³ddlð”¿HÈ$l ð²5HÈ hA Kààà]LMLhA ÙM Ù]ÔdhA ñ³$MH@ÐÈdjð²¿@l ð®@l ð©@dl ð£jð²âhlð‘j(277 SHOULDNT 227 DSPRIGHTMARGIN 216 IMOD 209 DSPLEFTMARGIN 191 DSPXPOSITION 77 GETHASH 37 TERMTABLEP 14 DISPLAYSTREAMP) (70 CHARTABLE 60 CHARTABLE 45 TERMTABLEP 30 \UNITWIDTHSVECTOR) () \UNITWIDTHSVECTOR :D8 NIL 5lÿlØà lÿlØjIHó•``IÐkÍ¿IkÔY°è(10 \ALLOCBLOCK) (39 \UNITWIDTHSVECTOR 33 \UNITWIDTHSVECTOR 15 \UNITWIDTHSVECTOR) () \CREATEDISPLAYFONT :D8 (L (5 CHARSET 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) r`dD¿d@¿dA¿dB¿djÍ¿djÍ ¿djÍ ¿dCÍ¿@ABCDhHdI¿lÿkØi HdI¿HdÉEàÐÉ«¿EHi´H(108 \CREATECHARSET 76 \ALLOCBLOCK) (4 |FONTDESCRIPTORTYPE#|) () \CREATECHARSET.DISPLAY :D8 (L (7 NOSLUG? 6 FONTDESC 5 CHARSET 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) r`1Hµhµ@ABCDEFG YZ²H@Jð²BJd˜¿AJð²5J—EJð²(I[²"Kµ@KµABCDKµEFG µ£HX°š(105 \CREATECHARSET.DISPLAY 30 \CREATE-REAL-CHARSET.DISPLAY) (4 DISPLAYFONTCOERCIONS) () \CREATE-REAL-CHARSET.DISPLAY :D8 (L (7 NOSLUG? 6 FONTDESC 5 CHARSET 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) Cjð²@ABCgE µ‚±WCjð³MCo «oC ¿@ABjgE Xd¢±!ÉEàÐÉµ EHid¢±C Bdgð²-¿@AgBBBjgE Xµ‚±Bgð²*@ABgBBjgE Xµ‚±„E²Ejð³`1Iµ‚±…hµ‚±*`1Iµ‚±Ãhµ‚±G’±FÈFÈFÈ Fg ÉEàÐÉµ EHid² ÉEàÐÉµ EHid” Z[²L@Kð²FKd˜¿AKð²9K—EKð²,J\²&Lµ@LµABCDLµEFG µ‚±ÿ2IY±ÿ$Z[²L@Kð²FKd˜¿AKð²9K—EKð²,J\²&Lµ@LµABCDLµEFG µ‚±þôIY±þæh(527 \CREATE-REAL-CHARSET.DISPLAY 441 \CREATE-REAL-CHARSET.DISPLAY 366 \SFMAKEITALIC 359 \CREATECHARSET 341 \SFMAKEBOLD 333 \CREATECHARSET 315 \BUILDSLUGCSINFO 310 FONTPROP 206 \CREATEDISPLAYFONT 155 \CREATEDISPLAYFONT 108 \SFROTATECSINFO 97 \CREATECHARSET 74 \CREATEDISPLAYFONT 57 ERROR 45 MEMB 20 \READDISPLAYFONTFILE) (305 DEVICE 297 FONTDESCRIPTOR 289 FONTDESCRIPTOR 281 FONTDESCRIPTOR 250 MISSINGDISPLAYFONTCOERCIONS 226 MISSINGCHARSETDISPLAYFONTCOERCIONS 199 DISPLAY 182 REGULAR 170 ITALIC 148 DISPLAY 128 MEDIUM 117 BOLD 67 DISPLAY 13 DISPLAY) ( 51 "only implemented rotations are 0, 90 and 270." 40 (90 270)) \BUILDSLUGCSINFO :D8 (L (4 SCALE 3 DEVICE 2 DESCENT 1 ASCENT 0 WIDTH)) ÚDµkb`dAÍ ¿dBÍ¿lÿlØkØâ HdI¿lÿlØkØâ HdI¿qHÉYlÿj½¼MLó¬IMÐ@Í¿MkÔ]°òHIHlÿlØkØâ Zlÿj_¿¾ONó¯JOÐjÍ¿OkÔ_°ïH@D× ABØD× [nÿÿKkh@D× kÙ H(214 BLTSHADE 206 ROUND 189 BITMAPCREATE 184 ROUND 174 ROUND 129 \ALLOCBLOCK 57 \ALLOCBLOCK 34 \ALLOCBLOCK) (166 CHARSETINFO 116 CHARSETINFO 107 CHARSETINFO 76 CHARSETINFO 10 |CHARSETINFOTYPE#|) () \SEARCHDISPLAYFONTFILES :D8 (L (4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) @ABCD`` (20 \SEARCHFONTFILES) (14 DISPLAYFONTEXTENSIONS 9 DISPLAYFONTDIRECTORIES) () \SEARCHFONTFILES :D8 (L (6 EXTLST 5 DIRLST 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) @ bD bB bkFRIµKd¢ºhƒºI¹EJ`™@ABJˆ@ABJ Oµ°Ì¦O_¿hˆO_¿O_¿gOgO ^µ°ÈD \½LK ³i@gð¥@Lð²[Agð¦ALð²LBgð³?BMô³:Bdgð¦Mð².Bgð¨BMð²Bgð©BMð“LK»N±ÿ|(152 MEMBER 140 \FONTINFOFROMFILENAME 127 DIRECTORY 122 PACKFILENAME.STRING 72 \FONTFILENAME 62 \FONTFILENAME.OLD 21 \FONTFACE 13 \FONTSYMBOL 5 \FONTSYMBOL) (241 * 221 * 205 * 189 * 174 * 160 * 115 BODY 108 DIRECTORY 51 *OLD-FONT-EXTENSIONS*) () \FINDFONTFILE :D8 (L (7 EXTLST 6 DIRLST 5 CHARSET 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) ?GHd d¢¹hƒ¹H¸I`›@ABIE Š@ABIE iFµÎ°É(57 FINDFILE 50 \FONTFILENAME 38 \FONTFILENAME.OLD) (25 *OLD-FONT-EXTENSIONS*) () \FONTSYMBOL :D8 (L (1 ElseReturnXFlg 0 X)) 1@dd3@ð—¿@ ›@ A‘@o (46 ERROR 31 MKATOM 26 U-CASE 19 STRINGP 13 U-CASE) NIL ( 41 "Want an IL symbol") \DEVICESYMBOL :D8 (L (1 ElseReturnXFlg 0 X)) .@giµ@µgÉ.É,A (43 \FONTSYMBOL 11 \GETSTREAM) (34 IMAGEOPS 27 STREAM 21 DISPLAY 5 OUTPUT) () \FONTFACE :D8 (L (2 DEV 1 NOERRORFLG 0 FACE)) Ôggd@Agð•g„g\@d²m¸@¹@ºHo ³Hg •g€L¸Io ¡L¹Jo ¡LºHgð³IgðªJgð¢±ÂA¢±¶hd3@ð§@ ²Ò@µ°Í lð¢±¾@ dlBð¤dlbð—¿g°1dlMð®dlmð©dlRð¤dlrð—¿g°dlLð¤dllð–¿g¿L¸@l dlRð¤dlrð—¿g°dlIð¤dlið–¿g¿L¹@l dlRð¤dlrð˜¿g±ÿ0dlCð¤dlcð˜¿g±ÿdlEð¤dleð˜¿g±ÿ ¿±ÿ@dgð˜¿gX°;gð—gY°,@dgðž¿g¸gY°gð©@dgð–¿i’±þ¸@dg ™¿gX±þ¢g ˜g¹±þ@dg Ÿ¿g¸g¹±þpo ’±þbo@ ˜@AB@o šgXYZ±þ7LXYZ±þ0K ¿Hdgð²¿IgðJgð•oHgð²IgðJgð•oHdgð²¿IgðJgð•oHgð²IgðJgð•oHIJh(585 \ILLEGAL.ARG 560 \FONT.SYMBOLMEMB 548 \FONTFACE.COLOR 539 STRPOS 524 \FONT.SYMBOLMEMB 497 \FONT.COMPARESYMBOL 475 \FONT.COMPARESYMBOL 454 \FONT.COMPARESYMBOL 302 NTHCHARCODE 256 NTHCHARCODE 182 CHCON1 169 NCHARS 157 STRINGP 108 \FONT.SYMBOLMEMB 94 \FONT.SYMBOLMEMB 74 \FONT.COMPARESYMBOL 61 \FONT.SYMBOLMEMB) (706 REGULAR 698 ITALIC 689 BOLD 675 REGULAR 667 ITALIC 657 MEDIUM 642 REGULAR 634 REGULAR 625 BOLD 611 REGULAR 603 REGULAR 593 MEDIUM 566 * 510 ITALIC 504 BOLD 492 BOLDITALIC 481 ITALIC 470 ITALIC 461 BOLD 449 BOLD 434 REGULAR 425 STANDARD 417 ITALIC 411 BOLD 403 BOLDITALIC 393 ITALIC 386 ITALIC 378 BOLD 370 BOLD 356 EXPANDED 337 COMPRESSED 318 REGULAR 290 ITALIC 272 REGULAR 244 LIGHT 226 MEDIUM 198 BOLD 134 ERROR 126 ERROR 117 ERROR 80 MEDIUM 69 REGULAR 33 ERROR 27 REGULAR 20 REGULAR 9 REGULAR 4 MEDIUM) ( 713 (BOLD ITALIC REGULAR) 682 (MEDIUM ITALIC REGULAR) 649 (BOLD REGULAR REGULAR) 618 (MEDIUM REGULAR REGULAR) 555 (* ***) 533 "-" 519 (STANDARD REGULAR NIL NNN) 103 (* COMPRESSED REGULAR EXPANDED) 89 (* REGULAR ITALIC) 56 (* BOLD MEDIUM LIGHT)) \FONTFACE.COLOR :D8 (L (2 DEV 1 NOERRORFLG 0 FACE)) @B bp@d’±" 158 "c" 152 "" 58 "0") \FONTFILENAME.OLD :D8 (L (4 CHARSET 3 EXTENSION 2 FACE 1 SIZE 0 FAMILY) P 0 *PRINT-BASE* F 1 *DISPLAY-FONT-NAME-MAP*) ËB ddgð²¿ddgð•¿gbg@Q Adgð³d3 Ÿ¿l Aó—jA †A„ Bdgð—¿g°8gð²Bgð–o°o°Bgð•o„oD3 ²lhoD„ogC(200 PACKFILENAME.STRING 189 CONCAT 177 CL:FORMAT 84 \ILLEGAL.ARG 76 CONCAT 48 SASSOC 5 \FONTFACE) (194 EXTENSION 142 ITALIC 118 ITALIC 107 BOLD 99 * 91 * 56 * 41 NAME 34 * 26 * 13 *) ( 184 "000" 171 "~O" 155 "R" 149 "I" 132 "B" 125 "D") \FONTFILENAME.NEW :D8 (L (4 CHARSET 3 EXTENSION 2 FACE 1 SIZE 0 FAMILY) P 1 *PRINT-BASE*) ¯B bAdgð³d3 Ÿ¿l Aó—jA †A„ Xg@HoBdoô—¿g°!k Bk Bk Dd3 ²¿loD °›oD „o gC(172 PACKFILENAME.STRING 161 CONCAT 149 CONCAT 134 CONCAT 129 \PRINDATUM.TO.STRING 106 CONCAT 101 NTHCHAR 91 NTHCHAR 82 NTHCHAR 45 \ILLEGAL.ARG 37 CONCAT 8 \FONTFACE) (166 EXTENSION 73 * 51 NAME 17 *) ( 155 "-C0" 143 "-C" 123 "-C" 65 (* * *) 58 "-") \FONTINFOFROMFILENAME :D8 (L (1 DEVICE 0 FONTFILE)) @ ¡ Hg'\k_¿LO Y3§I•OkÔ°ëOZLkJkÙ ]J_¿LO 3³POµi[LJKkÙ ^LdK gð•¿KkØ»L \oLKhih` œg°)OkÔ°ŸoLKhih` •g„goLKhdd` •g„goLKhdd` –g°#oLKhdd` •g„gh_MNOjAd ˜¿A °Y³HHg' _dgð—¿g°4gð³Ogð«Odgð´¿gŽAdd3@ð´ ¿A h(407 \FONTSYMBOL 339 MKATOM 334 U-CASE 318 IMAGESTREAMTYPE 310 STREAMP 280 STRPOS 251 STRPOS 218 STRPOS 185 STRPOS 150 STRPOS 128 U-CASE 110 NTHCHAR 101 MKATOM 96 SUBSTRING 76 NTHCHAR 63 MKATOM 58 U-CASE 53 SUBSTRING 28 NTHCHAR 5 UNPACKFILENAME.STRING) (391 DISPLAY 382 DISPLAYFONT 372 AC 362 STRIKE 355 INTERPRESS 347 WD 328 EXTENSION 292 REGULAR 286 COMPRESSED 274 UPPERCASEARRAY 257 EXPANDED 245 UPPERCASEARRAY 230 REGULAR 224 ITALIC 212 UPPERCASEARRAY 197 MEDIUM 191 LIGHT 179 UPPERCASEARRAY 156 BOLD 144 UPPERCASEARRAY 115 - 14 NAME) ( 264 "C-" 235 "E" 202 "I" 169 "L" 134 "B") \FONTINFOFROMFILENAME.OLD :D8 (L (1 DEVICE 0 FONTFILE)) ú@ qHg'[k¾KN 3¤NkÔ°òNYKkIkÙ \I_¿KO 3³OOZKIJkÙ ]LMHg'dgð³dgð¨dgð²:¿oKJhi ›gŠOkÔ° goKJh²9g°7¿oKJhi •g„goKJh•g„gghjAh(218 STRPOS 193 STRPOS 168 STRPOS 137 STRPOS 85 MKATOM 80 SUBSTRING 63 NTHCHAR 50 MKATOM 45 SUBSTRING 25 NTHCHAR 5 UNPACKFILENAME) (235 REGULAR 230 REGULAR 224 ITALIC 205 MEDIUM 199 BOLD 175 ITALIC 155 MEDIUM 143 BOLD 118 WD 110 AC 101 DISPLAYFONT 94 EXTENSION 14 NAME) ( 210 "I" 183 "B" 160 "-I" 127 "-B") \GETFONTDESC :D8 (L (2 NOERRORFLG 1 DEVICE 0 SPEC)) @AB(7 \COERCEFONTDESC) NIL () \COERCEFONTDESC :D8 (L (2 NOERRORFLG 1 STREAM 0 SPEC)) ¸ @dÃ”¿@±cÃ¢±5AµgYdgð²0¿@É°W —A °ßAdd3@ð˜¿A °Ï²ÈA°Êgð™@É°#Idgð™¿@É@É XdÃ‘H’±I`²*@gBX²HgAgB µ‚±®@`ð²QB‘hIdgð›¿g oô²g gAgB Io `hddAB HhddAB X´5@IH@µ `b±þª ©@dÃ´Â¿h@ ¸AµHHÉð³õAÃ²AÉ.É,HÉð³ÓHgAgB (437 FONTCOPY 367 DSPFONT 349 IMAGESTREAMP 329 SETFONTCLASSCOMPONENT 318 FONTCREATE 305 FONTCREATE 288 ERROR 283 CONCAT 271 FONTCOPY 253 DEFAULTFONT 234 DEFAULTFONT 195 FONTCOPY 173 \COERCEFONTDESC 137 SASSOC 81 \DEVICESYMBOL 65 IMAGESTREAMTYPE 58 IMAGESTREAMP) (430 NOERROR 424 DEVICE 413 FONTDESCRIPTOR 405 IMAGEOPS 398 STREAM 390 STREAM 379 FONTDESCRIPTOR 357 WINDOW 338 DEFAULTFONT 294 DEFAULTFONT 264 NOERROR 258 DEVICE 248 DISPLAY 229 DISPLAY 221 DISPLAY 207 DEFAULTFONT 188 NOERROR 182 DEVICE 167 DISPLAY 158 \DISPLAYSTREAMTYPES 145 FONTDESCRIPTOR 130 FONTCLASS 121 FONTCLASS 112 PRESS 101 FONTCLASS 93 INTERPRESS 49 FONTCLASS 39 DISPLAY 32 DISPLAY 20 FONTCLASS 9 FONTDESCRIPTOR) ( 278 " component for DEFAULTFONT undefined" 240 (HARDCOPY DISPLAY)) \LOOKUPFONT :D8 (L (4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) 4CBA@`µ @` DHµ DH (48 \FONT.SYMBOLASSOC 30 SASSOC 22 \FONT.SYMBOLASSOC) (17 \FONTSINCORE 8 \FONTSINCORE) () \LOOKUPFONTSINCORE :D8 (L (4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) `!HµIº@gð¥@Jð²IJ!KµL ¹HX°Ö½Agð¥AMð²LM!NµO ¼K[°Ê_¿Bgð¦BOô²OO!OµO _¿N^°Á_¿Cgð¦COð²OOAOµO _¿O_°½_ ¿Dgð¦DO ð²/O Ã²%JMOOO h_¿OµOh__¿O_°¦O&_¿°ó(180 \NCONC2 132 \NCONC2 86 \NCONC2 46 \NCONC2) (217 FONTDESCRIPTOR 200 * 150 * 102 * 60 * 21 * 4 \FONTSINCORE) () \READDISPLAYFONTFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 STRM F 1 SI::*RESETFORMS* F 2 FAMILY F 3 SIZE F 4 FACE F 5 CSINFO) OPi dgð² ¿gPhhdQc¿PRST°gð™PRST‹P ¿c (73 SHOULDNT 68 CLOSEF 61 \READACFONTFILE 43 \READSTRIKEFONTFILE 6 FONTFILEFORMAT) (50 AC 21 CLOSEF 12 STRIKE) () \READDISPLAYFONTFILE :D8 (L (5 CHARSET 4 DEVICE 3 ROTATION) P 9 RESETSTATE P 8 SI::*RESETFORMS* P 7 LISPXHIST P 4 STRM P 3 CSINFO I 2 FACE I 1 SIZE I 0 FAMILY F 10 LISPXHIST) a `a`¢±Ž`½Md³¢±€Kiðhð´K d¢¾hƒ¾M½N`›@ABNE Š@ABNE g g [²¦N³«i°¤£H¹h„H¹H¸@ABCDE`Ih Zµ>HµÜ`´‚±¸`d£d‘h`²p@AB`d£d‘hE °ng ¼W! g ¿$`²%Jg gK¿K K@AB`d£d‘hE g gih(349 PUTPROP 338 L-CASE 333 FILENAMEFIELD 323 \FONTFILENAME 297 COPYALL 290 PUTPROP 279 L-CASE 274 FILENAMEFIELD 251 SI::RESETUNWIND 246 \MVLIST 241 \READDISPLAYFONTFILEA0001 225 OPENSTREAM 213 \FONTFILENAME.OLD 152 \FINDFONTFILE 111 GETP 101 L-CASE 96 FILENAMEFIELD 86 \FONTFILENAME 74 \FONTFILENAME.OLD 43 COPYALL) (343 CACHEDCHARSET 328 NAME 308 DISPLAYFONTEXTENSIONS 284 CACHEDCHARSET 269 NAME 261 CACHEDISPLAYFONTS 236 SI::RESETUNWIND 220 INPUT 198 DISPLAYFONTEXTENSIONS 187 *OLD-FONT-EXTENSIONS* 174 DISPLAYFONTEXTENSIONS 163 CACHEDISPLAYFONTS 143 DISPLAYFONTDIRECTORIES 106 CACHEDCHARSET 91 NAME 61 *OLD-FONT-EXTENSIONS* 21 DISPLAYFONTEXTENSIONS 12 CACHEDISPLAYFONTS 4 DISPLAYFONTEXTENSIONS) () (ADDTOVAR *OLD-FONT-EXTENSIONS* STRIKE) (RPAQ? *USEOLDFONTDIRECTORIES* NIL) (RPAQ? CACHEDISPLAYFONTS) \READSTRIKEFONTFILE :D8 (L (3 FACE 2 SIZE 1 FAMILY 0 STRM)) ¦@ lð¨@l ¿ð`lÿlØkØâ _¿dO¿lÿlØkØâ _¿dO¿X@ á@ Ø]@ á@ Ø^@ á@ Ø@ á@ ØH@ á@ ØÍ H@ á@ ØÍ@ á@ Ø@ á@ ØZHÈ dnÿñ•nÿÿÙkÙHÈdnÿñ•nÿÿÙkÙØ_JààààO [@KÉJOÚàO É É>_¿O O"jO$lOHKNMÙlØYHÉ\lÿlØj_¿_¿OOó¯LOÐjÍ¿OkÔ_°îIMkO$O ó³LO"Ð@ á@ ØÍ¿O"kÔ_"¿O$kÔ_$°áHÉ_lÿlØj_¿_¿OOó³OOÐjÍ¿OkÔ_°ìHMNHHÉH(402 \FONTRESETCHARWIDTHS 197 BITMAPCREATE 65 \ALLOCBLOCK 43 \ALLOCBLOCK 17 SETFILEPTR 5 GETFILEPTR) (414 CHARSETINFO 408 CHARSETINFO 354 CHARSETINFO 269 CHARSETINFO 253 CHARSETINFO 229 FDEV 222 STREAM 205 BITMAP 168 CHARSETINFO 148 CHARSETINFO 121 CHARSETINFO 107 CHARSETINFO 29 |CHARSETINFOTYPE#|) () \SFMAKEBOLD :D8 (L (0 CSINFO)) ë @É‘ @É¹@Éº@È @ÈØ»h½HÈHÈ ¼JlÿkØÐÈ¾IlÿkØÐÈ_¿lÿj_¿_¿OOó²-HNjLNjOKgg ¿`@ dL¿JOÐÈ]Nð³BHMjLMjIOÐÈKgg ¿HMjLMkØjIOÐÈkÙKgg ¿OkÔ_±ÿ(223 BKBITBLT 189 BKBITBLT 143 NCREATE2 131 BKBITBLT 69 BITMAPCREATE) (217 PAINT 212 INPUT 183 REPLACE 178 INPUT 137 |CHARSETINFOTYPE#| 125 REPLACE 120 INPUT 62 BITMAP 54 BITMAP 42 CHARSETINFO 34 CHARSETINFO 25 CHARSETINFO 16 CHARSETINFO 5 CHARSETINFO) () \SFMAKEITALIC :D8 (L (0 CSINFO)) †@É@É@È @È@Éõ`JKØ]LÈLÈ _IlÿkØÐÈ_HlÿkØÐÈ_jKlØlÛÙ_JlØlÛ_lÿj_2¿_0¿O2O0ó²0LOjOOjOMgg `@ dO¿IO2ÐÈ^Oð’±ÂHO2ÐÈ_¿OO_.¿_,¿O.O,ó’±¦NOØ_NO.Ødjñ¡¿j_$¿dO$ñ’¿O$_¿OdO.Ødjñ¡¿j_&¿dO&ñ’¿O&_¿KO.lÚØ_(¿jO(ñ¢O(€j_ ¿MKO.lÚlØØ_*¿dO*ñ’¿O*_"¿OOñ².O"O ñ²'LNO OOO OOÙO"O Ùgg ¿O.kÔ_.±ÿYO2kÔ_2±þú(369 BKBITBLT 167 NCREATE2 156 BKBITBLT 70 BITMAPCREATE) (363 REPLACE 358 INPUT 161 |CHARSETINFOTYPE#| 150 REPLACE 145 INPUT 63 BITMAP 55 BITMAP 37 CHARSETINFO 29 CHARSETINFO 21 CHARSETINFO 13 CHARSETINFO 5 CHARSETINFO) () \SFMAKEROTATEDFONT :D8 (L (1 ROTATION 0 FONTDESC)) o h(9 HELP) NIL ( 4 "ROTATED fonts need to be fixed for NS Chars & New FONTDESCRIPTOR fields") \SFROTATECSINFO :D8 (L (1 ROTATION 0 CSINFO)) 5`@ @ÉA HdI¿@A HdI¿(41 \SFROTATECSINFOOFFSETS 24 \SFROTATEFONTCHARACTERS 10 NCREATE2) (16 CHARSETINFO 4 |CHARSETINFOTYPE#|) () \SFROTATEFONTCHARACTERS :D8 (L (1 ROTATION 0 CHARBITMAP)) 3Adjð‘@dlZð—¿@ l´ð›@ Anð´@ (48 ROTATE-BITMAP 34 ROTATE-BITMAP 29 ROTATE-BITMAP 18 ROTATE-BITMAP-LEFT) NIL () \SFFIXOFFSETSAFTERROTATION :D8 (L (1 ROTATION 0 FONTDESC)) o h(9 HELP) NIL ( 4 "NEED TO UPDATE THIS FN TO NSCHARS & NEW FONT FIELDS") \SFROTATECSINFOOFFSETS :D8 (L (1 ROTATION 0 CSINFO)) cAnð²T@É@É@É 3lÿlØkØâ [lÿj½¼MLó‘KKMÐJHMÐÈIMÐÈØÙÍ¿MkÔ]°ä@É(51 \ALLOCBLOCK 35 BITMAPWIDTH) (94 CHARSETINFO 28 CHARSETINFO 20 CHARSETINFO 12 CHARSETINFO) () \SFMAKECOLOR :D8 (L (3 BITSPERPIXEL 2 FORECOLOR 1 BACKCOLOR 0 BWCSINFO)) oCd ²#¿A©hC b¿B©hC b¿C b3‘C…C bAC bBC b@ÉABCX`@ dH¿(103 NCREATE2 91 COLORIZEBITMAP 73 COLORNUMBERP 64 COLORNUMBERP 55 \DISPLAYSTREAMTYPEBPP 42 IMAGESTREAMTYPE 33 DSPCOLOR 21 DSPBACKCOLOR 9 IMAGESTREAMP) (97 |CHARSETINFOTYPE#| 81 CHARSETINFO) () WRITESTRIKEFONTFILE :D8 (L (2 FILE 1 CHARSET 0 FONT)) ¹@ ¨@l ¿A£jb¿jAñ¤Alÿñ˜Al ¿ð€@ÉAàÐÉµ A@iYdµoA ¿IÉ\IÉ_dnÐÈ_lÿj_¿_¿OOó³OOÐÈOð¥Oµ iˆOkÔ_°ähZjlÿ_¿_¿OOó³OOÐÈOð¥OµiŠOmÿÔ_¿°àh[dkØ_BggoXdl€ ¿Hj HJã ¿HJlÿå HKã ¿HKlÿå j]nj_"¿_ ¿O"O ó³MLO"ÐÈ_¿dOñ¢¿O½O"kÔ_"°âHMã ¿HMlÿå IÉÈ_lKJÙØ@È OÚØ^HNã ¿HNlÿå HIÈ _&¿_$O&ã ¿O$O&lÿå ¿HIÈ_*¿_(O*ã ¿O(O*lÿå ¿Hj ¿Hj HOã ¿HOlÿå HIÉÉlOÚIÈ IÈØÚO.É É@_,¿O.O0jO2lO,OJj#HO2ã ¿HO2lÿå ¿O0O.ó³KOO0ÐÈ_6¿LO0ÐÈ_4¿O6OÙjð—O0OÙjð—O2O4Ô_2¿HO2ã ¿HO2lÿå ¿O0kÔ_0°´H (694 CLOSEF 678 \BOUT 666 \BOUT 606 \BOUT 594 \BOUT 504 \BOUT 492 \BOUT 483 \BOUT 475 \BOUT 467 \BOUT 454 \BOUT 431 \BOUT 418 \BOUT 396 \BOUT 385 \BOUT 341 \BOUT 330 \BOUT 276 \BOUT 265 \BOUT 257 \BOUT 246 \BOUT 238 \BOUT 230 \BOUT 221 OPENSTREAM 78 ERROR 63 \CREATECHARSET 38 \LISPERROR 14 \LISPERROR 5 FONTP) (560 FDEV 553 STREAM 539 CHARSETINFO 531 CHARSETINFO 518 BITMAP 511 CHARSETINFO 439 CHARSETINFO 403 CHARSETINFO 370 FONTDESCRIPTOR 354 BITMAP 347 CHARSETINFO 211 NEW 206 OUTPUT 94 CHARSETINFO 85 CHARSETINFO) ( 216 ((TYPE BINARY)) 72 "Couldn't find charset ") STRIKECSINFO :D8 (L (0 CSINFO)) Öð@ÉX@ÉZHJð‘@@ÉY@É[InÐÈ_K ]lÿjdO2O0ó³6O4OIO2ÐÈÙjð’j°JO2ÐÈHO2ÐÈ_¿dOñ¢¿OÔ_4¿O2kÔ_2°ÉO4\lÿlØkØâ _lÿlØj_¿_¿OOó³OOÐjÍ¿OkÔ_°ìOlÿkØÐLÍLMk^j_lÿj_"¿_ ¿O"O ó³lIO"ÐÈ_¿OOÙjð™OO"ÐLÍ°HOO"ÐOÍ¿JO"ÐÈHO"ÐÈ_¿dOñ¢¿O_¿KOjNOjJO"ÐÈMg ¿OOØ_¿O"kÔ_"°“H Xlÿj_(¿_&¿O(O&ó³(HO(ÐHO(ÐÈJO(ÐÈ_$¿dO$ñ¢¿O$Í¿O(kÔ_(°×`dH¿dO¿dH¿dN¿@É_*¿dO*¿@È _,¿dO,Í ¿@È_.¿dO.Í¿(334 COPYALL 311 BKBITBLT 202 BITMAPCREATE 146 \ALLOCBLOCK 62 BITMAPHEIGHT) (456 CHARSETINFO 439 CHARSETINFO 422 CHARSETINFO 394 |CHARSETINFOTYPE#| 305 REPLACE 44 CHARSETINFO 35 CHARSETINFO 20 CHARSETINFO 11 CHARSETINFO) () (/DECLAREDATATYPE (QUOTE FONTCLASS) (QUOTE (BYTE POINTER POINTER POINTER POINTER POINTER)) (QUOTE (( FONTCLASS 0 (BITS . 7)) (FONTCLASS 2 POINTER) (FONTCLASS 4 POINTER) (FONTCLASS 6 POINTER) (FONTCLASS 8 POINTER) (FONTCLASS 10 POINTER))) (QUOTE 12)) (/DECLAREDATATYPE (QUOTE FONTDESCRIPTOR) (QUOTE (POINTER POINTER POINTER POINTER WORD WORD WORD WORD SIGNEDWORD SIGNEDWORD SIGNEDWORD SIGNEDWORD POINTER POINTER POINTER POINTER POINTER (BITS 8) WORD POINTER POINTER POINTER)) (QUOTE ((FONTDESCRIPTOR 0 POINTER) (FONTDESCRIPTOR 2 POINTER) ( FONTDESCRIPTOR 4 POINTER) (FONTDESCRIPTOR 6 POINTER) (FONTDESCRIPTOR 8 (BITS . 15)) (FONTDESCRIPTOR 9 (BITS . 15)) (FONTDESCRIPTOR 10 (BITS . 15)) (FONTDESCRIPTOR 11 (BITS . 15)) (FONTDESCRIPTOR 12 ( SIGNEDBITS . 15)) (FONTDESCRIPTOR 13 (SIGNEDBITS . 15)) (FONTDESCRIPTOR 14 (SIGNEDBITS . 15)) ( FONTDESCRIPTOR 15 (SIGNEDBITS . 15)) (FONTDESCRIPTOR 16 POINTER) (FONTDESCRIPTOR 18 POINTER) ( FONTDESCRIPTOR 20 POINTER) (FONTDESCRIPTOR 22 POINTER) (FONTDESCRIPTOR 24 POINTER) (FONTDESCRIPTOR 26 (BITS . 7)) (FONTDESCRIPTOR 27 (BITS . 15)) (FONTDESCRIPTOR 28 POINTER) (FONTDESCRIPTOR 30 POINTER) ( FONTDESCRIPTOR 32 POINTER))) (QUOTE 34)) (/DECLAREDATATYPE (QUOTE CHARSETINFO) (QUOTE (POINTER POINTER POINTER POINTER POINTER WORD WORD POINTER)) (QUOTE ((CHARSETINFO 0 POINTER) (CHARSETINFO 2 POINTER) (CHARSETINFO 4 POINTER) (CHARSETINFO 6 POINTER) (CHARSETINFO 8 POINTER) (CHARSETINFO 10 (BITS . 15)) (CHARSETINFO 11 (BITS . 15)) ( CHARSETINFO 12 POINTER))) (QUOTE 14)) (ADDTOVAR SYSTEMRECLST (DATATYPE FONTCLASS ((PRETTYFONT# BYTE) DISPLAYFD PRESSFD INTERPRESSFD OTHERFDS FONTCLASSNAME)) (DATATYPE FONTDESCRIPTOR ((FONTDEVICE POINTER) (FONTFAMILY POINTER) (FONTSIZE POINTER ) (FONTFACE POINTER) (\SFAscent WORD) (\SFDescent WORD) (\SFHeight WORD) (ROTATION WORD) (FBBOX SIGNEDWORD) (FBBOY SIGNEDWORD) (FBBDX SIGNEDWORD) (FBBDY SIGNEDWORD) (\SFLKerns POINTER) (\SFRWidths POINTER) (FONTDEVICESPEC POINTER) (OTHERDEVICEFONTPROPS POINTER) (FONTSCALE POINTER) (\SFFACECODE BITS 8) (FONTAVGCHARWIDTH WORD) (FONTIMAGEWIDTHS POINTER) (FONTCHARSETVECTOR POINTER) (FONTEXTRAFIELD2 POINTER))) (DATATYPE CHARSETINFO (WIDTHS OFFSETS IMAGEWIDTHS CHARSETBITMAP YWIDTHS (CHARSETASCENT WORD ) (CHARSETDESCENT WORD) LEFTKERN))) (RPAQ? \FONTSINCORE) (RPAQ? \DEFAULTDEVICEFONTS) (RPAQ? \UNITWIDTHSVECTOR) (\UNITWIDTHSVECTOR) (RPAQQ NORUNCODE 255) (CONSTANTS (NORUNCODE 255)) optimize-FONTPROP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) W@Hgð´Hdgð›¿gHhdgð›¿gHhgðšgHhgNIL (84 IGNOREMACRO 73 FONTHEIGHT 66 HEIGHT 55 FONTDESCENT 47 DESCENT 35 FONTASCENT 27 ASCENT 13 QUOTE) () (PUTPROP (QUOTE FONTPROP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-FONTPROP) (GET ( QUOTE FONTPROP) (QUOTE COMPILER:OPTIMIZER-LIST)))) \CREATECHARSET :D8 (L (2 NOSLUG? 1 FONT 0 CHARSET)) pj@ñ¤@lÿñ–@ ¿Ag `–g°gAg `HAg @ABh Y´ AI@(109 \INSTALLCHARSETINFO 98 APPLY 93 \APPEND2 81 FONTPROP 56 FONTPROP 26 FONTPROP 14 \ILLEGAL.ARG) (76 DEVICESPEC 61 IMAGESTREAMTYPES 51 DEVICE 45 CREATECHARSET 38 \CREATECHARSET.DISPLAY 31 \DISPLAYSTREAMTYPES 21 DEVICE) () \INSTALLCHARSETINFO :D8 (L (2 CHARSET 1 CSINFO 0 FONT)) ‘@@ÈAÈ dnÿñ•nÿÿÙkÙHdIñ¡¿IÍ@@È AÈdnÿñ•nÿÿÙkÙHdIñ¡¿IÍ @@È@È ØÍ @ÉBàÐA@@ ÍA(139 \AVGCHARWIDTH) (133 FONTDESCRIPTOR 119 FONTDESCRIPTOR 105 FONTDESCRIPTOR 99 FONTDESCRIPTOR 66 CHARSETINFO 58 FONTDESCRIPTOR 52 FONTDESCRIPTOR 19 CHARSETINFO 11 FONTDESCRIPTOR 5 FONTDESCRIPTOR) () (RPAQ? DISPLAYFONTCOERCIONS NIL) (RPAQ? MISSINGCHARSETDISPLAYFONTCOERCIONS (QUOTE (((GACHA) (TERMINAL)) ((MODERN) (CLASSIC)) (( TIMESROMAN) (CLASSIC)) ((HELVETICA) (MODERN)) ((TERMINAL 6) (MODERN 6)) ((TERMINAL 8) (MODERN 8)) (( TERMINAL 10) (MODERN 10)) ((TERMINAL 12) (MODERN 12))))) (RPAQ? MISSINGDISPLAYFONTCOERCIONS (QUOTE (((GACHA) (TERMINAL)) ((MODERN) (CLASSIC)) ((TIMESROMAN) ( CLASSIC)) ((HELVETICA) (MODERN)) ((TERMINAL) (MODERN))))) (RPAQ? CHARSETERRORFLG NIL) (RPAQ? \DEFAULTCHARSET 0) \FONTRESETCHARWIDTHS :D8 (L (2 LASTCHAR 1 FIRSTCHAR 0 CSINFO)) ž AB@É@Éd JIkØÐÈ^JIlØÐÈNÙ_lÿj_¿_¿OOó²KlÿkØÐOÍJlÿkØÐNÍhHOñ¤OIñŸJOÐNÍ¿KOÐO°,JOÐÈ¼JOkØÐÈ½LMðžJOÐNÍ¿KOÐO†KOÐMLÙÍ¿OkÔ_°™NIL (15 CHARSETINFO 7 CHARSETINFO) () (RPAQ? DISPLAYFONTEXTENSIONS (QUOTE DISPLAYFONT)) (RPAQ? DISPLAYFONTDIRECTORIES (QUOTE ({DSK}/USR/LOCAL/LDE/FONTS/DISPLAY/PRESENTATION/ {dsk}/usr/local/lde/fonts/display/publishing/))) (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 :FAKE-COMPILE-FILE) (PUTPROPS FONT COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1999 2021)) NIL