github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-03-05 11:14:38 +00:00
Code Issues Projects Releases Wiki Activity
Files
ab4eb3d52d73c8af6385367eb43a149ccd021a25
Interlisp.medley/sources/FONT.LCOM
rmkaplan 0f470b9753 Rmk161 loadup works with utf 8 source files (#2512) 
* New starter.sysout contains the UTF-8 external format
* Init.sysout is created with the UTF-8 external format
* Files with non-ascii characters and some other files converted to UTF-8, for basic testing
* Environment arg of WITH-READER-ENVIRONMENT can be a stream
* Compiler functions now respect the external format as copied from the source file
* Colon is the package delimiter in DEFINE-FILE-INFO expressions
* UNICODE file is deprecated in favor of UNICODE-FORMATS and UNICODE-TABLES
2026-03-02 11:56:11 -08:00

958 lines
67 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
(FILECREATED "26-Feb-2026 17:01:47" ("compiled on " {WMEDLEY}<sources>FONT.;677)
"26-Feb-2026 12:11:15" "COMPILE-FILEd" in "FULL 26-Feb-2026 ..." dated "26-Feb-2026 12:11:24")
(FILECREATED "26-Feb-2026 17:01:47" {WMEDLEY}<sources>FONT.;677 278005 :EDIT-BY rmk :CHANGES-TO (FNS
MOVEFONTCHARS) :PREVIOUS-DATE "20-Feb-2026 12:54:44" {WMEDLEY}<sources>FONT.;675)
(RPAQQ FONTCOMS ((* ;; "font functions ") (FNS CHARWIDTH CHARWIDTHY STRINGWIDTH \CHARWIDTH.DISPLAY
\STRINGWIDTH.DISPLAY \STRINGWIDTH.GENERIC) (COMS (FNS DEFAULTFONT FONTCLASS FONTCLASSUNPARSE
FONTCLASSCOMPONENT SETFONTCLASSCOMPONENT GETFONTCLASSCOMPONENT) (MACROS \GETFONTCLASSCOMPONENT
\SETFONTCLASSCOMPONENT)) (VARS NSFONTFAMILIES ALTOFONTFAMILIES) (INITVARS MCCSFONTFAMILIES) (COMS (*
;; "Creation: ") (FNS FONTCREATE FONTCREATE1 FONTCREATE.SLUGFD \FONT.CHECKARGS1 \FONTCREATE1.NOFN
FONTFILEP \READCHARSET) (FNS \FONT.CHECKARGS \CHARSET.CHECK) (FNS COERCEFONTSPEC
COERCEFONTSPEC.TARGETFACE) (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS COERCEFONTSPEC.MATCH
COERCEFONTSPEC.TARGET)) (MACROS SPREADFONTSPEC) (FNS MAKEFONTSPEC) (FNS COMPLETE.FONT COMPLETEFONTP
COMPLETE.CHARSET PRUNESLUGCSINFOS MONOSPACEFONTP)) (COMS (* ;; "Property extraction:") (FNS FONTASCENT
FONTDESCENT FONTHEIGHT FONTPROP \AVGCHARWIDTH) (EXPORT (OPTIMIZERS FONTPROP)) (FNS FONTDEVICEPROP)) (
COMS (* ; "Moving character information") (FNS EDITCHAR) (* ; "Should this be on EDITFONT ?") (FNS
GETCHARBITMAP PUTCHARBITMAP \GETCHARBITMAP.CSINFO \PUTCHARBITMAP.CSINFO) (FNS MOVECHARBITMAP
MOVEFONTCHARS \MOVEFONTCHAR \MOVEFONTCHARS.SOURCEDATA \MAKESLUGCHAR SLUGCHARP.DISPLAY) (MACROS
UPDATEINFOELEMENT)) (FNS FONTFILES \FINDFONTFILE \FONTFILENAMES \FONTFILENAME FONTSPECFROMFILENAME) (
FNS FONTCOPY FONTP FONTUNPARSE SETFONTDESCRIPTOR \STREAMCHARWIDTH \COERCECHARSET \BUILDSLUGCSINFO
\FONTSYMBOL \DEVICESYMBOL \FONTFACE \FONTFACE.COLOR SETFONTCHARENCODING) (FNS FONTSAVAILABLE
FONTEXISTS? \SEARCHFONTFILES FLUSHFONTCACHE FINDFONTFILES SORTFONTSPECS) (FNS MATCHFONTFACE
MAKEFONTFACE FONTFACETOATOM) (INITVARS \FONTSINCORE \FONTEXISTS?-CACHE \FONTSAVAILABLEFILECACHE
\DEFAULTDEVICEFONTS) (* ;;
"The INITVARS value of MEDLEY-INIT-VARS in MEDLEY dalso includes these entries. That's because FONT is in the INIT, so these entries would be lost when MEDLEY-INIT-VARS is reinitialized when the Lisp loadup starts"
) (ADDVARS (MEDLEY-INIT-VARS (\FONTEXISTS?-CACHE NIL RESET) (\FONTSAVAILABLEFILECACHE NIL RESET))) (
COMS (GLOBALVARS \DEFAULTDEVICEFONTS \UNITWIDTHSVECTOR) (INITVARS \UNITWIDTHSVECTOR) (FNS
\UNITWIDTHSVECTOR) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\UNITWIDTHSVECTOR)))) (DECLARE%: DONTCOPY (
EXPORT (RECORDS FONTCLASS FONTDESCRIPTOR FONTFACE CHARSETINFO FONTSPEC) (MACROS FONTASCENT FONTDESCENT
FONTHEIGHT \FGETOFFSET \FSETOFFSET \FGETWIDTH \FSETWIDTH \FGETCHARWIDTH \FSETCHARWIDTH
\FGETIMAGEWIDTH \FSETIMAGEWIDTH) (MACROS \GETCHARSETINFO \SETCHARSETINFO \INSURECHARSETINFO
\CREATECSINFOELEMENT \CREATEFONTCHARSETVECTOR CHARSETPROP) (PROP ARGNAMES CHARSETPROP) (CONSTANTS (
SLUGCHARINDEX (ADD1 \MAXTHINCHAR)) (SLUGCHARSET (ADD1 \MAXCHARSET)))) (MACROS INDIRECTCHARSETP)) (FNS
FONTDESCRIPTOR.DEFPRINT FONTCLASS.DEFPRINT) (INITRECORDS FONTCLASS FONTDESCRIPTOR CHARSETINFO) (
SYSRECORDS FONTCLASS FONTDESCRIPTOR CHARSETINFO) (FNS \CREATEKERNELEMENT \FSETLEFTKERN \FGETLEFTKERN)
(FNS \CREATEFONT \CREATECHARSET \INSTALLCHARSETINFO \INSTALLCHARSETINFO.CHARENCODING) (DECLARE%:
DONTCOPY (MACROS FIRSTCHARSETCODE LASTCHARSETCODE)) (FNS \FONTRESETCHARWIDTHS) (MACROS
\FGETCHARIMAGEWIDTH) (LOCALVARS . T) (PROP FILETYPE FONT) (* ;; "") (* ;; "DISPLAY") (COMS (* ;
"Functions for DISPLAY IMAGESTREAMTYPES ") (FNS \CREATEDISPLAYFONT \CREATECHARSET.DISPLAY
\FONTEXISTS?.DISPLAY)) (FNS STRIKEFONT.FILEP STRIKEFONT.GETCHARSET WRITESTRIKEFONTFILE STRIKECSINFO) (
COMS (* ; "Bitmap faking") (FNS MAKEBOLD.CHARSET MAKEBOLD.CHAR MAKEITALIC.CHARSET MAKEITALIC.CHAR
\SFMAKEBOLD \SFMAKEITALIC) (FNS \SFMAKEROTATEDFONT \SFROTATECSINFO \SFROTATEFONTCHARACTERS
\SFROTATECSINFOOFFSETS) (FNS \SFMAKECOLOR)) (EXPORT (GLOBALVARS DISPLAYFONTDIRECTORIES
DISPLAYFONTEXTENSIONS DISPLAYCHARCOERCIONS DISPLAYFONTCOERCIONS DISPLAYCHARSETFNS)) (DECLARE%:
DONTEVAL@LOAD DOCOPY (INITVARS (DISPLAYFONTDIRECTORIES NIL)) (ADDVARS (DISPLAYCHARSETFNS (STRIKE
STRIKEFONT.FILEP STRIKEFONT.GETCHARSET))) (* ; "The loadup might have fewer") (ADDVARS (
DISPLAYFONTEXTENSIONS MEDLEYDISPLAYFONT DISPLAYFONT))) (INITVARS (DISPLAYFONTCOERCIONS (QUOTE (((
HELVETICA (<= * 2)) (HELVETICA 4)) ((MODERN (<= 15 * 16)) (* 14)) ((MODERN (<= 17 * 21)) (* 18)) ((
MODERN (<= 22 * 28)) (* 24)) ((MODERN (<= 29 * 33)) (* 30)) ((MODERN (<= 34 * 40)) (* 36)) ((MODERN (
<= 41 * 65)) (* 48)) ((MODERN (<= 66 *)) (* 72)) ((PALATINO 9) (PALATINO 12)) ((PALATINO (<= * 8)) (
PALATINO 10)) ((TITAN (<= * 9) BOLD) (MODERN 10)) ((TITAN (<= * 9) ITALIC) (MODERN 10)) ((TITAN (<= *
9)) (TITAN 10)) (LPT AMTEX)))) (DISPLAYCHARCOERCIONS (QUOTE ((GACHA TERMINAL) (MODERN CLASSIC) (
TIMESROMAN CLASSIC) (HELVETICA MODERN) (TERMINAL MODERN) (HIPPO CLASSIC) (CYRILLIC CLASSIC) (MATH
CLASSIC) (SIGMA MODERN) (SYMBOL MODERN) (TITAN CLASSIC) (PALATINO CLASSIC) (OPTIMA MODERN) (BOLDPS
CLASSIC) (PCTERMINAL CLASSIC) (TITANLEGAL CLASSIC)))) (\DEFAULTCHARSET 0)) (* ;; "") (* ;;
"Defunct coercions? Mapping for DOS filenames, Adobe equivalences") (COMS (INITVARS (
ADOBEDISPLAYFONTCOERCIONS (QUOTE (((HELVETICABLACK 16) (HELVETICABLACK 18)) ((SYMBOL) (ADOBESYMBOL)) (
(SYMBOL 11) (ADOBESYMBOL 10)) ((AVANTGARDE-DEMI) (AVANTGARDE)) ((AVANTGARDE-BOOK) (AVANTGARDE)) ((
NEWCENTURYSCHLBK) (CENTURYSCHOOLBOOK)) ((BOOKMAN-LIGHT) (BOOKMAN)) ((BOOKMAN-DEMI) (BOOKMAN)) ((
HELVETICA-NARROW) (HELVETICANARROW)) ((HELVETICA 24) (ADOBEHELVETICA 24))))) (*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)))))) (DECLARE%: DONTEVAL@LOAD
DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA FONTCOPY)))))
CHARWIDTH :D8
(L (1 FONT 0 CHARCODE)) ｸ @d柄j@<40>@ ｿ`Adﾃｲ;ｿA@羲YﾉJ獎ﾉｵ"IﾉJ濳I
NOﾐOｿOﾉ@l<>衵ﾈgi Xｵ?A @羶\ﾉM獎ﾉｵ"LﾉM潼L
NOﾐOｿOﾉ@l<>衵ﾈﾉ.ﾉ4ｻH@lK(135 \CREATECHARSET 105 FONTCREATE 96 \GETSTREAM 60 \CREATECHARSET 15 \ILLEGAL.ARG)
(172 IMAGEOPS 165 STREAM 124 FONTDESCRIPTOR 90 OUTPUT 49 FONTDESCRIPTOR 26 FONTDESCRIPTOR)
()
CHARWIDTHY :D8
(L (1 FONT 0 CHARCODE)) ﾉ @d柄j@<40>@ ｿ`Adﾃｲ=ｿA@羲YﾉJ獎ﾉｵ"IﾉJ濳I
NOﾐOｿOﾉd3 ｵ0dｳkjgi XﾃｲHﾉ.ﾉ6ｻH@lKA @羶\ﾉM獎ﾉｵ"LﾉM潼L
NOﾐOｿOﾉd3 ｵﾇdｲ囘@l<>衵ﾈ(165 \CREATECHARSET 135 FONTCREATE 98 \GETSTREAM 60 \CREATECHARSET 15 \ILLEGAL.ARG)
(154 FONTDESCRIPTOR 119 IMAGEOPS 112 STREAM 104 STREAM 92 OUTPUT 49 FONTDESCRIPTOR 26 FONTDESCRIPTOR)
()
STRINGWIDTH :D8
(L (3 RDTBL 2 FLG 1 FONT 0 STR) F 4 *READTABLE*) ﾃ@Adﾃｲ;ｿ@ABｴC匹di<64>ｿTAﾉﾉｵAﾉjA
YｿIﾉﾈ 暸gi XｵHAｵ` X@HBｴC匹di<64>ｿTHﾉﾉｵHﾉjH
[ｿKﾉﾈ ﾉ.ﾉ2ｺH@BｴC匹di<64>ｿTlJ(153 \STRINGWIDTH.GENERIC 139 \CREATECHARSET 97 FONTCREATE 81 \GETSTREAM 67 \STRINGWIDTH.GENERIC 53 \CREATECHARSET)
(188 READTABLEP 166 IMAGEOPS 159 STREAM 130 FONTDESCRIPTOR 117 READTABLEP 92 DEFAULTFONT 75 OUTPUT 44 FONTDESCRIPTOR 31 READTABLEP 9 FONTDESCRIPTOR)
()
\CHARWIDTH.DISPLAY :D8
(L (1 CHARCODE 0 STREAM)) =@ﾉ0ﾉ A<>HﾉI獎ﾉｵHﾉI潛H
JKﾐLｿLﾉAl<41>衵ﾈ(36 \CREATECHARSET)
(25 FONTDESCRIPTOR)
()
\STRINGWIDTH.DISPLAY :D8
(L (2 RDTBL 1 STR 0 STREAM)) @ﾉ0AHﾉ BHﾈA (18 \STRINGWIDTH.GENERIC)
NIL
()
\STRINGWIDTH.GENERICA0014 :D8
(L (1 CC 0 DUMMY) F 3 CSET F 4 FONT F 5 TOTALWIDTH F 6 WIDTHSBASE F 7 SPACEWIDTH) NUAl <20>WｰASA胙歎ｰ2A緜ｿTﾉS獎ﾉｵTﾉS澳T
HIﾐJｿJﾉc Al<41>衵ﾈﾔc
(49 \CREATECHARSET)
(38 FONTDESCRIPTOR)
()
\STRINGWIDTH.GENERIC :D8
(L (2 RDTBL 0 STR) P 4 CSET P 3 WIDTHSBASE P 2 SPACEWIDTH P 1 FONT P 0 TOTALWIDTH I 3 SPACEWIDTH I 1 FONT F 22 *PRINT-LEVEL* F 23 *PRINT-LENGTH*) %@dd3@<40>ｱｺｿBｲjAC#g@BdW,W.
Hk@jc
Nﾁﾉ_ﾊ_ｿNﾁﾊ j<><6A>ｿMO<18>rO飽MﾐﾈグMﾂ_ｿOOO胙ｳ;O綫ｿAﾉO獎ﾉｵ%AﾉO澎A
OOﾐO ｿO ﾉ_ｿOl <20>C碓Ol<>衵ﾈﾔ_ｿMkﾘ]ｰ弘 ｢ｱ<EFBDA2>Gjq BｲrAﾉﾉｵAﾉjA
_ｿOﾉﾈ"狄Bﾊ<05>AN綫ｿ_ﾉO獎ﾉｵ'OﾉO澎O
OOﾐOｿOﾉNl<4E>衵ﾈ_ｿ@QOdﾊj<> ∧_ ｿOdﾊj<> ∨_"ｿO m<>ﾘOl
ﾘ_ｿOdﾊj<> ぬ㌫D<E38CAB>$ｿO O<1E>ｱ<00>$涌"O ﾐﾈО"O ﾂ_絨<12>;O綫ｿAﾉO獎ﾉｵ%AﾉO澎A
O&O(ﾐO*ｿO*ﾉ_ｿMOl <20>CｰOOl<>衵ﾈB抂l"<22>ON<>O€jﾘﾔｽO kﾘ_ ｱ<>zM(475 \CREATECHARSET 396 %%ARRAY-TYPE-NUMBER 378 \GETBASEFIXP 358 %%ARRAY-BASE 338 %%ARRAY-OFFSET 292 \CREATECHARSET 230 \CREATECHARSET 197 STRINGP 140 \CREATECHARSET 37 \MAPPNAME)
(462 FONTDESCRIPTOR 278 FONTDESCRIPTOR 249 READTABLEP 221 FONTDESCRIPTOR 127 FONTDESCRIPTOR 24 \STRINGWIDTH.GENERICA0014)
()
DEFAULTFONTA0001 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 DEVICE F 3 SI::NLSETQ-VALUE) i@`hddRi
hcg(20 FONTCREATE)
(29 :NORMAL 9 DEFAULTFONT)
()
DEFAULTFONT :D8
(L (2 NOERRORFLG 1 FONT) P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 DEVICE F 4 *PROCEED-CASES* F 5 *CONDITION-HANDLER-BINDINGS*) x@ｧgbｿ`ﾃｳC`ｲ,`TioUI g<00>Hbｿg ｿA彖@A `hdd@B
(117 FONTCREATE 100 SETFONTCLASSCOMPONENT 80 FONTCLASS 55 DEFAULTFONTA0001)
(106 DEFAULTFONT 93 DEFAULTFONT 85 DEFAULTFONT 75 DEFAULTFONT 61 :NORMAL 36 SI::NLSETQ-PROCEED-CASE 26 DEFAULTFONT 19 FONTCLASS 14 DEFAULTFONT 6 DISPLAY)
( 44 (CL:ERROR . SI::NLSETQHANDLER))
FONTCLASS :D8
(L (2 CREATEFORDEVICES 1 FONTLIST 0 NAME)) ﾚｰ
AY`d@
ｿIIｹ3 ｵkｺdJﾏｿIIｹd拮ddg
ｻdKｿIIｹｼdLｿIIｹｽdMｿ0
IｰFd_欅^哲3飽dｳｿo@Ah
ｿOO_ｿOｵ Oh_０&_ｿｵｻO_ｿdOｿXB_ｿOｵHｦO_ｿh<EFBDBF>_ｿO_ｿHhddO
ｰﾘ(214 FONTCREATE 124 ERROR 53 FONTCREATE)
(47 DISPLAY 9 |FONTCLASSTYPE#|)
( 114 "illegal font class specification")
FONTCLASSUNPARSE :D8
(L (3 NOERRORFLG 2 FONT 1 DEVICE 0 FONTCLASS)) c@ﾉ
@ﾊ@ﾉ @ﾉ @ﾉ h@@ﾉｰd[K hｸIｵHhZ？&ｹｵ腴
(96 \APPEND2 70 FONTUNPARSE 40 FONTUNPARSE 32 FONTUNPARSE 24 FONTUNPARSE)
(55 FONTCLASS 13 FONTCLASS 5 FONTCLASS)
()
FONTCLASSCOMPONENT :D8
(L (3 NOERRORFLG 2 FONT 1 DEVICE 0 FONTCLASS)) )@hddAC
BｲBhddAC
b蓮AB ｿ(37 SETFONTCLASSCOMPONENT 26 FONTCREATE 11 FONTCREATE)
NIL
()
SETFONTCLASSCOMPONENT :D8
(L (2 FONT 1 DEVICE 0 FONTCLASS)) ~@ABhddA
CIdg<00>ｿHJJdg<00>ｿHJJg<00>HJJHｻI\dKﾉｵKｾLhNﾉｽNMｿMddJｿ(12 FONTCREATE)
(111 FONTCLASS 101 FONTCLASS 85 FONTCLASS 69 FONTCLASS 61 PRESS 51 FONTCLASS 42 INTERPRESS 31 FONTCLASS 22 DISPLAY)
()
GETFONTCLASSCOMPONENT :D8
(L (2 NOERRORFLG 1 DEVICE 0 FONTCLASS)) <00>P@ﾃ｢ｱﾗAdg<00>ｿ@ﾉｰdg<00>ｿ@ﾉ院ﾉXddﾃ蝶堊Hhddgi
XｲkAdg<00>ｿ@Hｰog<00>@Hｰ]Ag<00>@HｰJ@ｻA\KﾉｵKｺLhJﾉｹJIｿIHｿｰBｳoAo @
HB蘇o@
(239 ERROR 222 ERROR 216 CONCAT 89 FONTCREATE)
(186 FONTCLASS 176 FONTCLASS 160 FONTCLASS 145 FONTCLASS 137 PRESS 126 FONTCLASS 118 INTERPRESS 108 FONTCLASS 99 DISPLAY 82 DEVICE 68 FONTDESCRIPTOR 56 FONTCLASS 47 FONTCLASS 38 INTERPRESS 28 FONTCLASS 19 DISPLAY 8 FONTCLASS)
( 233 "NOT A FONTCLASS" 211 " fontclass component" 205 "Invalid ")
(PUTPROPS \GETFONTCLASSCOMPONENT MACRO (OPENLAMBDA (FCLASS DEVICE) (SELECTQ DEVICE (DISPLAY (fetch (
FONTCLASS DISPLAYFD) of FCLASS)) (INTERPRESS (fetch (FONTCLASS INTERPRESSFD) of FCLASS)) (GETMULTI (
fetch (FONTCLASS OTHERFDS) of FCLASS) DEVICE))))
(PUTPROPS \SETFONTCLASSCOMPONENT MACRO (OPENLAMBDA (FCLASS DEVICE NEWFONT) (SELECTQ DEVICE (DISPLAY (
replace (FONTCLASS DISPLAYFD) of FCLASS with NEWFONT)) (INTERPRESS (replace (FONTCLASS INTERPRESSFD)
of FCLASS with NEWFONT)) (PRESS (replace (FONTCLASS PRESSFD) of FCLASS with NEWFONT)) (PUTMULTI (fetch
(FONTCLASS OTHERFDS) of FCLASS) DEVICE NEWFONT))))
(RPAQQ NSFONTFAMILIES (CLASSIC MODERN TERMINAL OPTIMA TITAN BOLDPS PCTERMINAL))
(RPAQQ ALTOFONTFAMILIES (TIMESROMAN TIMESROMAND HELVETICA HELVETICAD CLARITY BRAVOX TONTO CREAM
OLDENGLISH))
(RPAQ? MCCSFONTFAMILIES NIL)
FONTCREATE :D8
(L (6 CHARSET 5 NOERRORFLG 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) OF b ｿ@dﾃ崛AｧB･C｣D｡@魁ABCD
Xdﾃ践F
ｵE蘇oH
ｿｰｷ(74 ERROR 57 FONTCREATE1 41 \FONT.CHECKARGS 8 \CHARSET.CHECK)
(48 FONTDESCRIPTOR 18 FONTDESCRIPTOR)
( 68 "FONT NOT FOUND")
FONTCREATE1 :D8
(L (1 CHARSET 0 FONTSPEC) F 2 \DEFAULTCHARSET) xA｣Rbｿ `@i Xｵ2@ ｴW@ XｴN@ｹ`ｵ
IhhIHi ｴ0HdﾉA獎ﾉｳﾉA獎AH
ｿHH ﾍH(114 \AVGCHARWIDTH 99 \CREATECHARSET 69 EXTENDMULTI-PAIR 38 \CREATEFONT 30 FONTEXISTS? 20 FETCHMULTI-PAIR)
(108 FONTDESCRIPTOR 87 FONTDESCRIPTOR 61 \FONTSINCORE 48 \FONTSINCORE 13 \FONTSINCORE)
()
FONTCREATE.SLUGFD :D8
(L (5 CHARSET 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) ｵ`dDｿd@ｿdAｿdBｿdAﾍｿdjﾍ ｿdAﾍ
ｿdCﾍ ｿ@ABCDhHdIｿdgｿAo<00> HdIﾍｿll<>ﾘi
HdIｿ1H ｹE櫞ﾉE獎IHl<>kﾘjｻｺKJ<4B><4A>ﾉK獎IｿKkﾔ[ｰ<>(127 \BUILDSLUGCSINFO 108 \ALLOCBLOCK 87 FIXR)
(164 FONTDESCRIPTOR 136 FONTDESCRIPTOR 72 MCCS 4 |FONTDESCRIPTORTYPE#|)
( 81 0.75)
\FONT.CHECKARGS1 :D8
(L (2 NOERRORFLG 1 STREAM 0 SPEC) F 15 \DISPLAYSTREAMTYPES) <02>@ 冑@
bｿ<11>@ｳ`ｵ
o ｜ｿAｵｰ(d3@<40>Ad 仭A ｰ 泡 ②ｵgY@dﾃ｢ｱSｿIdg<00>ｿ@ﾉｰg<00>@ﾉ蟹@ﾉXddﾃ践｢ｱ皐hddIi
Zｲ~Idg<00>ｿ`JJg<00>`JJIg<00>`JJ`ｻI\dKﾉｵKｾLhNﾉｽNMｿMddJｿIW
｢ｱﾑ@`<00>ｱｬIdg<00>ｿ```g<00>```Ig<00>````_ｿI_dOﾉｵ'O_ｿOhOﾉ_ｿOOｿOdd`ｿB蘇o@o @ﾉhddIB
Xｲ|Idg<00>ｿ@HHg<00>@HHIg<00>@HH@_ｿI_dOﾉｵ'O_ｿOhOﾉ_ｿOOｿOddHｿB蝶<42>VIo@o ﾃ叩ｰ@ ｧ@ﾃｴ h@
XｴﾃA｡HIHﾉ<00><>hddIB
(757 FONTCREATE 726 DSPFONT 710 IMAGESTREAMP 694 ERROR 689 CONCAT 542 FONTCREATE 522 ERROR 517 CONCAT 313 MEMB 178 FONTCREATE 82 IMAGESTREAMTYPE 75 IMAGESTREAMP 68 \DEVICESYMBOL 60 STRINGP 39 ERROR 13 DSPFONT 5 IMAGESTREAMP)
(740 FONTDESCRIPTOR 717 WINDOW 700 FONTDESCRIPTOR 652 FONTCLASS 639 FONTCLASS 618 FONTCLASS 598 FONTCLASS 590 PRESS 579 FONTCLASS 571 INTERPRESS 561 FONTCLASS 552 DISPLAY 529 FONTCLASS 493 \GUARANTEEDDISPLAYFONT 478 FONTCLASS 465 FONTCLASS 444 FONTCLASS 430 DEFAULTFONT 424 \GUARANTEEDDISPLAYFONT 417 \GUARANTEEDDISPLAYFONT 412 FONTCLASS 407 DEFAULTFONT 399 PRESS 392 \GUARANTEEDDISPLAYFONT 385 \GUARANTEEDDISPLAYFONT 380 FONTCLASS 375 DEFAULTFONT 367 INTERPRESS 361 \GUARANTEEDDISPLAYFONT 354 \GUARANTEEDDISPLAYFONT 349 FONTCLASS 344 DEFAULTFONT 335 DISPLAY 323 DEFAULTFONT 292 FONTCLASS 282 FONTCLASS 266 FONTCLASS 256 DEFAULTFONT 246 FONTCLASS 241 DEFAULTFONT 234 PRESS 223 FONTCLASS 218 DEFAULTFONT 211 INTERPRESS 201 FONTCLASS 196 DEFAULTFONT 188 DISPLAY 159 FONTDESCRIPTOR 147 FONTCLASS 137 FONTCLASS 129 INTERPRESS 120 FONTCLASS 111 DISPLAY 99 FONTCLASS 91 DISPLAY 27 DEFAULTFONT)
( 684 " is invalid" 678 " component for " 512 " is invalid" 506 "DISPLAY component for " 34 "No DEFAULTFONT")
\FONTCREATE1.NOFN :D8
(L (5 CHARSET 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) oD
(15 ERROR 10 CONCAT)
NIL
( 4 "FONTCREATE function is not specified for image-type ")
FONTFILEPA0001A0002 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 FNS F 4 STRM F 5 SI::NLSETQ-VALUE) i@SｺTkJhc
gNIL
(22 :NORMAL)
()
FONTFILEPA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 6 *CONDITION-HANDLER-BINDINGS* P 5 SI::*NLSETQFLAG* P 4 *PROCEED-CASES* P 3 SI::NLSETQ-VALUE P 2 STRM P 1 FNS I 0 SI::*CLEANUP-FORMS* F 7 DEVICE F 8 SI::*RESETFORMS* F 9 FILE F 10 *CONDITION-HANDLER-BINDINGS* F 11 *PROCEED-CASES*) vWg<00>1Wg
!oWg
ZhWcｿHｵhｹ`WioWL g<00>K棚J ｿHXｰﾂ(110 CLOSEF? 88 FONTFILEPA0001A0002 41 OPENSTREAM 21 FONTDEVICEPROP)
(94 :NORMAL 67 SI::NLSETQ-PROCEED-CASE 36 INPUT 16 CHARSETFNS 6 DISPLAY)
( 76 (CL:ERROR . SI::NLSETQHANDLER) 29 (PROGN (CLOSEF? OLDVALUE)))
FONTFILEP :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 DEVICE I 0 FILE F 3 LISPXHIST) (AｧgbｿS!g ｿ$(33 SI::RESETUNWIND 28 \MVLIST 23 FONTFILEPA0001)
(18 SI::RESETUNWIND 6 DISPLAY)
()
\READCHARSETA0001A0002 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 FNS F 4 STRM F 5 SI::NLSETQ-VALUE) i@SｺTkJhc
gNIL
(22 :NORMAL)
()
\READCHARSETA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 23 *CONDITION-HANDLER-BINDINGS* P 22 SI::*NLSETQFLAG* P 21 *PROCEED-CASES* P 20 SI::NLSETQ-VALUE P 18 FNS P 2 STRM I 0 SI::*CLEANUP-FORMS* F 24 FONTSPEC F 25 CHARSET F 26 SI::*RESETFORMS* F 27 MCCSFONTFAMILIES F 28 *PROCEED-CASES* F 29 NSFONTFAMILIES F 30 *CONDITION-HANDLER-BINDINGS* F 31 FONT F 32 ALTOFONTFAMILIES)  W0W2
<11>HｵhｹW0g
ｵo!O"ｵ Kｵ潯Xｰﾗ_$ｿoIg
ZhW4c4ｿ`W8ioW<O* g<00>O(｢ｱmO$ｼJW2W>lL[ﾃ｢ｱSgKﾉｳvW0_&ｿK_ｿg_OﾉｵOｾOhNﾉｽNMｿMW2j<32>O&dW6
料gｰ"W:
鉾ｰO&dW@
柄gｿK_ｿg_Oﾉｵ'O_ｿOhOﾉ_ｿOOｿOI ｿgKﾉｳeK_ｿg_ Oﾉｵ'O_ｿO hOﾉ_ｿOOｿOW0W0W0W0W0W0ｿKW2ﾍｿｱ<EFBDBF>CJ ｿO"_"ｱ<>1(503 CLOSEF? 365 MKSTRING 360 PSEUDOFILENAME 285 MEMB 267 MEMB 251 MEMB 118 \READCHARSETA0001A0002 78 OPENSTREAM 34 FONTDEVICEPROP 8 FONTFILES)
(489 CHARSETINFO 436 CHARSETINFO 423 CHARSETINFO 402 CHARSETINFO 393 SOURCE 378 CHARSETINFO 372 SOURCE 346 CHARSETINFO 333 CHARSETINFO 312 CHARSETINFO 303 FILE 292 ALTOTEXT 273 XCCS$ 258 MCCS 230 CHARSETINFO 220 CHARSETINFO 202 CHARSETINFO 193 CSCHARENCODING 172 CHARSETINFO 166 CSCHARENCODING 157 CHARSETINFO 124 :NORMAL 96 SI::NLSETQ-PROCEED-CASE 73 INPUT 29 CHARSETFNS)
( 105 (CL:ERROR . SI::NLSETQHANDLER) 67 (PROGN (CLOSEF? OLDVALUE)) 41 ((MEDLEYFONT MEDLEYFONT.FILEP MEDLEYFONT.GETCHARSET)))
\READCHARSET :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 FONT I 1 CHARSET I 0 FONTSPEC F 3 LISPXHIST) *@dｲ&j<>S!g ｿ$(35 SI::RESETUNWIND 30 \MVLIST 25 \READCHARSETA0001)
(20 SI::RESETUNWIND)
()
\FONT.CHECKARGS :D8
(L (5 ALWAYSFONTSPEC 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) ﾔ@dg<00>dd3@<40>ｿ@@
D
b廖dd3@<40>ｿ@i<>Y@ｲ@@dg<00>XbｿAｵHbｿBｵHbｿCｵHbｿDｵHbｿhｸｰ@dﾃ珍@<40>i Xｵ
DｳJgｱ<00>ﾉbｿAｪHﾉbｿBｪHﾉbｿCｪHﾈ bｿDｵHﾉbｰｸDdd3@<40>ｿDdi<64> 優 ｰ'Dgi bd<> d｣d蘇ｵD b@奸d3@<40>@di<64>ｿo@
ｿ@ bAd3 破<>Ag<00>oA
ｿBg<00>BhD bｿCｵjbｰ3 屠C<E5B1A0>Cg<00>C ｿHｲ8Eｳ0AHﾉ<04>)BHﾉ<06>CHﾈ <0B>DHﾉ<00>h€Hｵ
@ABCD
(465 MAKEFONTSPEC 396 \ILLEGAL.ARG 364 \FONTFACE 347 ERROR 317 U-CASE 310 ERROR 283 \ILLEGAL.ARG 267 IMAGESTREAMTYPE 258 \GETSTREAM 244 \DEVICESYMBOL 237 STRINGP 141 \FONT.CHECKARGS1 41 \FONT.CHECKARGS1 35 FONTCLASS)
(445 FONTDESCRIPTOR 434 FONTDESCRIPTOR 422 FONTDESCRIPTOR 410 FONTDESCRIPTOR 388 * 354 * 334 * 252 OUTPUT 213 FONTDESCRIPTOR 199 FONTDESCRIPTOR 186 FONTDESCRIPTOR 173 FONTDESCRIPTOR 160 FONTDESCRIPTOR 152 DISPLAY 130 FONTDESCRIPTOR 69 FONT 11 CLASS)
( 341 "Illegal font size" 304 "Illegal font family")
\CHARSET.CHECK :D8
(L (0 CHARSET)) @ｵj叩€@ (15 CHARSET.DECODE)
NIL
()
COERCEFONTSPEC :D8
(L (2 ALL 1 COERCIONS) P 22 * P 14 DEVICE P 13 ROTATION P 12 FACE P 11 SIZE P 10 FAMILY I 0 FONTSPEC) <02>Add3@<40>ｿ@Aｵg
b<11>P@_dﾃ楞Og
__ｿO_ｿO_ｿO_ｿO_ｿHｵ J Ydｲdd3@<40>ｿ@OOOOOlIｱﾀd｣d蘇[KｻO_,O*<2A>O*o
ｵO*ｴ O* ｴこ<01>KｻO_,O*<2A>O*o
ｵO*ｴ O* ｴこTKKｻｵg O
ｴこ6KO_,O*<2A>O*o
ｵO*ｴ O* ｴこId｣d蘇\Lｼ_ do
帆Oｰ(ｲ#O_,ｿO do
珍OｵO ｽLLｼ_"do
帆Oｰ(ｲ#O_,ｿO" do
珍OｵO"ｾLLｼO
_ｿOLLｼ_&ｿ_$do
帆O&ｰ(ｲ#O&_,ｿO$ do
珍O&ｵO$_ｿOM<>ON<>OO<0E>OO<10>MNOOO
€h_ｲPOJ
ｳFOdhdddi
ｳｿB儖Ai 軌A
d蘇_ｵｰdJ
｢JZｿO(_(ｵ棈Xｱ<58>ﾄ(650 MEMBER 632 COERCEFONTSPEC 623 COERCEFONTSPEC 609 FONTEXISTS? 593 MEMBER 579 MAKEFONTSPEC 530 MEMB 519 EVAL 495 MEMB 469 COERCEFONTSPEC.TARGETFACE 447 MEMB 436 EVAL 412 MEMB 384 MEMB 373 EVAL 349 MEMB 314 EVAL 300 MEMB 268 MATCHFONTFACE 261 \FONTFACE 237 EVAL 223 MEMB 187 EVAL 173 MEMB 103 DREVERSE 53 FONTPROP 22 FONTDEVICEPROP)
(256 * 48 SPEC 39 FONTDESCRIPTOR 17 FONTCOERCIONS)
( 525 (NIL *) 490 (NIL *) 442 (NIL *) 407 (NIL *) 379 (NIL *) 344 (NIL *) 295 (NIL *) 218 (NIL *) 168 (NIL *))
COERCEFONTSPEC.TARGETFACE :D8
(L (1 FFACE 0 TFACE) P 2 *) ﾆ@do
羨AHdo
徳Iｰ"ｲIｺH do
汰IｵH@AHdo
徳Iｰ"ｲIｺH do
汰IｵH@AHdo
徳Iｰ"ｲIｺH do
汰IｵH (195 MAKEFONTFACE 182 MEMB 171 EVAL 152 MEMB 121 MEMB 110 EVAL 91 MEMB 62 MEMB 51 EVAL 32 MEMB 11 MEMB)
NIL
( 177 (NIL *) 147 (NIL *) 116 (NIL *) 86 (NIL *) 57 (NIL *) 27 (NIL *) 6 (NIL *))
(PUTPROPS SPREADFONTSPEC MACRO ((FSPEC) (LET ((FS FSPEC)) (* ;; "Unwrap a FONTSPEC ") (CL:WHEN (type?
FONTDESCRIPTOR FS) (SETQ FS (FONTPROP FS (QUOTE SPEC)))) (SETQ FAMILY (fetch (FONTSPEC FSFAMILY) of FS
)) (SETQ SIZE (fetch (FONTSPEC FSSIZE) of FS)) (SETQ FACE (fetch (FONTSPEC FSFACE) of FS)) (SETQ
ROTATION (fetch (FONTSPEC FSROTATION) of FS)) (SETQ DEVICE (fetch (FONTSPEC FSDEVICE) of FS)))))
MAKEFONTSPEC :D8
(L (5 BASE 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) @E 戲g
b
ｿ@ｵEAｵEBｵECｵEDｵEh(17 FONTPROP 5 FONTP)
(12 SPEC)
()
COMPLETE.FONT :D8
(L (1 EVENIFCOMPLETE 0 FONTSPEC)) x@ Hg
bAｮHdﾊj<>Lｿl<EFBDBF>jJI<4A>3HﾉJ獎ﾉ[戡ｲKjﾏ⑪H
[ｿK@JH ｿJkﾔZｰﾍHkﾏｿH H(116 PRUNESLUGCSINFOS 91 COMPLETE.CHARSET 80 \CREATECHARSET 19 FONTPROP 5 FONTCREATE)
(105 FONTDESCRIPTOR 68 CHARSETINFO 30 FONTDESCRIPTOR 14 SPEC)
()
COMPLETEFONTP :D8
(L (0 FONT)) '@ bl<>jIH<49>@ﾉI獎ﾉ｡hIkﾔYｰ劦(5 FONTCREATE)
NIL
()
COMPLETE.CHARSET :D8
(L (3 FONT 2 CHARSET 1 FONTSPEC 0 CSINFO)) ﾂ
CﾉB獎@@dﾊj<>-ｿB疝<42>脾<EFBFBD><11> IH<49>bJｵCg
僉kﾏ@C
ｿ@_ｿg_Oﾉｵ#O_ｿOhOﾉｾONｿNAｿｰ･IdC
ｲ"ｿABI ]ｲIMhIhｼKｵLh[ｺIkﾔYｱ<59>oL&ｻｰ<EFBDBB>(158 \COERCECHARSET 147 SLUGCHARP.DISPLAY 77 MOVEFONTCHARS 58 FONTDEVICEPROP)
(128 CHARSETINFO 117 CHARSETINFO 96 CHARSETINFO 87 SOURCE 65 CHARSETINFO 53 CHARCOERCIONS 20 CHARSETINFO 5 FONTDESCRIPTOR)
()
PRUNESLUGCSINFOS :D8
(L (0 FONT)) A@ bl<>jIH<49>@@ﾉI獎ﾉZｲJﾊj<>@ﾉI獎hｿIkﾔYｰﾑ(5 FONTCREATE)
(48 FONTDESCRIPTOR 36 CHARSETINFO)
()
MONOSPACEFONTP :D8
(L (3 RETURNVARIABLES 2 SKIPSLUGS 1 CODES 0 FONT)) <00>@ bAdｲ$ ｵ A A ｵA <00> b瓣疝<E793A3>臧bdABIH<49>8B唔d@
ｳ"ｿMｵ
I@
]I@
<00>IｼKｵ
Lh[ｺIkﾔYｰﾍL&ｻｰ<EFBDBB>h<EFBFBD> CｴJ (145 SORT 108 CHARWIDTH 100 CHARWIDTH 87 SLUGCHARP.DISPLAY 51 \CHARSET.CHECK 45 CHARCODE.DECODE 35 CHARCODEP 27 CHARCODE.DECODE 18 CHARCODEP 5 FONTCREATE)
NIL
()
FONTASCENT :D8
(L (0 FONTSPEC))
@ ﾈ(5 FONTCREATE)
NIL
()
FONTDESCENT :D8
(L (0 FONTSPEC))
@ ﾈ (5 FONTCREATE)
NIL
()
FONTHEIGHT :D8
(L (0 FONTSPEC)) @ ﾈ
(5 FONTCREATE)
(10 FONTDESCRIPTOR)
()
FONTPROP :D8
(L (1 PROP 0 FONT) F 7 NSFONTFAMILIES F 8 ALTOFONTFAMILIES F 9 MCCSFONTFAMILIES) <02>@ bAdg<00>ｿdﾈ
dg<00>ｿ@ﾈg<00>@ﾈ Adg<00>ｿ@ﾉg<00>@ﾉAdg<00>ｿ@ﾉ g<00>@ﾉAdg<00>ｿ@ﾉg<00>@ﾉAdg<00>ｿ@ﾉHｴこｨHg<00>@ﾉHｴこ羽Adg<00>ｿ@ﾈ g<00>@ﾉAdg<00>`ｿ@ﾉｵY@ddﾉW
料gｰ7ﾉW
鉾ｰ!@dﾉW
盟g<00>ﾉHIIg<00>@ﾉ@ﾉ@ﾉ @ﾈ @ﾉhAdg<00>ｿ@dﾉ遼 g
g<00>@dﾉ｢ｱ<EFBDA2>｢ﾉAdg<00>ｿ@dﾉ｢ｱ<EFBDA2>遼g<00>@dﾉ｢ｱ<EFBDA2>陀ｱ<>帰dg<00>ｿ@dﾉ｢ｱ<EFBDA2>碧ｱ<>夙<00>@dﾉ｢ｱ<EFBDA2>oﾉｱ<>iAdg<00>ｿ@dﾉ｢ｱ<EFBDA2>pﾉｱ<>jg<00>@ﾉAdg<00>>ｿl<EFBDBF>j@ﾉCJI獎ﾉｾIH<49>&NｲNﾊj<>IｽLｵ
Mh\ｻIkﾔｹｰﾗM&ｼｰ<EFBDBC>g<00>@ﾈAdg<00>ｿ@ﾉ (647 \ILLEGAL.ARG 393 FONTPROP 382 COPY 346 COPY 300 MEMB 276 MEMB 253 MEMB 88 COPY 5 FONTCREATE)
(635 FONTTOMCCSFN 622 AVGCHARWIDTH 588 CHARSETINFO 554 CHARSETS 541 SCALE 516 DEVICEEXPANSION 491 DEVICEWEIGHT 466 DEVICESLOPE 441 DEVICEFACE 420 DEVICESIZE 399 DEVICEFAMILY 388 SPEC 366 DEVICESPEC 329 SPEC 313 FONTDESCRIPTOR 307 MCCS 291 FONTDESCRIPTOR 282 ALTOTEXT 267 FONTDESCRIPTOR 260 XCCS$ 244 FONTDESCRIPTOR 227 CHARENCODING 214 DEVICE 202 ROTATION 170 BACKCOLOR 138 FORECOLOR 122 EXPANSION 108 SLOPE 94 WEIGHT 77 FACE 64 SIZE 52 FAMILY 39 DESCENT 27 ASCENT 14 HEIGHT)
()
\AVGCHARWIDTH :D8
(L (0 FONT)) ,lA@
Hj<48>Ho@ ﾈ
<EFBFBD> dj<64>駝(35 FIXR 27 FONTCREATE 7 CHARWIDTH)
NIL
( 21 0.6)
optimize-FONTPROP :D8
(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) x@Hg<00>Hdg<00>ｿgHhdg<00>ｿgHhdg<00>ｿgHhg<00>gogHhgNIL
(117 IGNOREMACRO 104 of 94 fetch 86 FONTTOMCCSFN 75 FONTHEIGHT 67 HEIGHT 55 FONTDESCENT 47 DESCENT 35 FONTASCENT 27 ASCENT 13 QUOTE)
( 99 (FONTDESCRIPTOR FONTTOMCCSFN))
(PUTPROP (QUOTE FONTPROP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-FONTPROP) (GET (
QUOTE FONTPROP) (QUOTE COMPILER:OPTIMIZER-LIST))))
FONTDEVICEPROP :D8
(L (1 PROP 0 FONTDEVICE)) P@dd3@<40>ｿ@ ｰ" bdﾃ愾@g
<00>ｵgA
H ｴH (77 GETTOPVAL 69 BOUNDP 60 PACK* 41 FONTPROP 20 \FONT.CHECKARGS 13 \FONTSYMBOL)
(54 DISPLAY 36 DEVICE 28 FONTDESCRIPTOR)
()
EDITCHAR :D8
(L (1 FONT 0 CHARCODE)) .@ ｵ@ bA @H@H
(43 PUTCHARBITMAP 38 EDITBM 33 GETCHARBITMAP 21 FONTCREATE 13 CHARCODE.DECODE 5 CHARCODEP)
NIL
()
GETCHARBITMAP :D8
(L (1 FONT 0 CHARCODE)) P@d 珍@<40> bdl<64>蘂 @<40>HﾉI獎ﾉｵHﾉI潛H
JKﾐLｿL
(77 \GETCHARBITMAP.CSINFO 59 \CREATECHARSET 27 FONTCREATE 15 CHARCODE.DECODE 6 CHARCODEP)
(48 FONTDESCRIPTOR)
()
PUTCHARBITMAP :D8
(L (3 NEWCHARDESCENT 2 NEWCHARBITMAP 1 FONT 0 CHARCODE) P 5 \INTERRUPTABLE) ｲBﾃｦB ｿ@ bA bd@<40>HﾉI獎ﾉｵHﾉI潛H
JKﾐLｿLA@l<>薊BC ｲQHﾈ
AﾈｹdI<64>ｿIHﾈ Aﾈ ｺdJ<64>ｿJｼｻAKﾍｿALﾍ ｿAKLﾘﾍ
B(93 \PUTCHARBITMAP.CSINFO 62 \CREATECHARSET 27 FONTCREATE 19 CHARCODE.DECODE 12 \ILLEGAL.ARG)
(169 FONTDESCRIPTOR 159 FONTDESCRIPTOR 149 FONTDESCRIPTOR 132 FONTDESCRIPTOR 124 CHARSETINFO 109 FONTDESCRIPTOR 101 CHARSETINFO 51 FONTDESCRIPTOR 5 BITMAP)
()
\GETCHARBITMAP.CSINFO :D8
(L (1 CSINFO 0 CODE)) b@AﾉXｵI ｻAdﾉ卅Aﾉ<04>ﾉ@ﾐﾈZKHﾈ ｹHAﾉ@ﾐﾈjIjdJK
ｿｰｯ(93 BKBITBLT 67 BITMAPCREATE 20 BITMAPHEIGHT)
(75 CHARSETINFO 60 BITMAP 46 CHARSETINFO 38 CHARSETINFO 28 CHARSETINFO 8 CHARSETINFO)
()
\PUTCHARBITMAP.CSINFO :D8
(L (3 NEWCHARDESCENT 2 NEWCHARBITMAP 1 CSINFO 0 THINCODE) P 27 \INTERRUPTABLE) 6Aﾈ <11>ｰAﾈ
ｹHIﾘｺAﾉｻAﾉｼAﾉ]邦@ﾐﾈｵL@ﾐﾈｾAﾉ_ﾈ_ｿh__ｿOﾈ_&ｿBﾈ_Bﾈ_CｵH_OOﾙ_OdH<64>ｿH_OdI<64>ｿI_ OO ﾘ_"K@ﾐﾈ_$dKnﾐﾈ<00>;OOﾘO"O& _ｿOjdOjOHﾙ_(ｿjO(<28>O(€jOJ
ｿO_$ｱ､NO<14>dONﾙ_ｿOOﾘO"O& _ｿOjdOjOHﾙ_*ｿjO*<2A>O*€jO$J
ｿOO$NﾘjOO$OﾘOHﾙ_,ｿjO,<2C>O,€jOO$Nﾘﾙkﾘｰ4OI<>OH<>1OO"O& _ｿOjdOjOHﾙ_.ｿjO.<2E>O.€jOJ
ｿBjdOｵOO$OOﾙ_0ｿjO0<4F>O0€jOO
OｴNL@ﾐOﾍｿMｵAK@ﾐO$ﾍｿOｲnj_4ｿ_2ｿO4O2<4F>-AOｿAOﾍ ｿAO ﾍ
B@ﾐOﾍｿｰｺKdO4ﾐﾈO$<24>O4ﾐKO4ﾐﾈOﾔﾍｿO4kﾔ_4ｰｰ(440 BKBITBLT 401 BKBITBLT 366 BITMAPCREATE 302 BKBITBLT 267 BITMAPCREATE 232 BKBITBLT 197 BITMAPCREATE)
(515 CHARSETINFO 504 CHARSETINFO 493 CHARSETINFO 121 BITMAP 111 BITMAP 100 BITMAP 82 BITMAP 73 CHARSETINFO 50 CHARSETINFO 41 CHARSETINFO 32 CHARSETINFO 19 CHARSETINFO 5 CHARSETINFO)
()
MOVECHARBITMAP :D8
(L (4 CLIP 3 DESTFONT 2 DESTCODE 1 SRCEFONT 0 SRCECODE)) ﾅ
A C ｲ @A
^H ﾈZI ﾈ\H ﾈ [I ﾈ ]D･JdL<64>ｿL_D･KdM<64>ｿM_JO<10>KO<12>ZN OOﾘ
_ｿNjKOﾙ_ｿjO<14>O€jOjOKﾙ_ｿjO<16>O€jN JKﾘOOﾘ_ｿdO<18>ｿO
ｿBCOｵNO h(193 PUTCHARBITMAP 178 BKBITBLT 153 BITMAPWIDTH 107 BITMAPCREATE 97 BITMAPWIDTH 55 FONTCREATE 46 FONTCREATE 37 FONTCREATE 28 FONTCREATE 21 GETCHARBITMAP 11 FONTCREATE 5 FONTCREATE)
NIL
()
MOVEFONTCHARSA0001 :D8
(L (1 KEY 0 VAL) F 0 DEFAULTSOURCEFONT F 1 DESTFONT) @A<>AP
@Q h(17 \MOVEFONTCHAR 10 \MOVEFONTCHARS.SOURCEDATA)
NIL
()
MOVEFONTCHARS :D8
(L (0 PAIRS) I 2 DEFAULTSOURCEFONT I 1 DESTFONT) ﾉ@｢ｱﾄA bｿBｵAbｿ@d ｲ(ｿ@g
ｿｱ嬋ddAg
ｰﾐqHｵIｰv\d播h\] ｦM ｽAM綫ｿ^ﾉO獎ﾉｳNﾉO獎ON
ｿLB
MhｻJｵ KhZｹHXｰ朏&ｺｰ<EFBDBA>HHA ｵ褜(192 \MOVEFONTCHAR 153 \MOVEFONTCHARS.SOURCEDATA 142 \CREATECHARSET 104 CHARCODE.DECODE 97 CHARCODEP 65 FONTCREATE 59 FONTPROP 41 MAPHASH 27 HARRAYP 10 FONTCREATE)
(128 FONTDESCRIPTOR 54 DEVICE 36 MOVEFONTCHARSA0001)
()
\MOVEFONTCHAR :D8
(L (2 DFONT 1 DCODE 0 SOURCEDATA)) |BA<42>HﾉI獎ﾉｵHﾉI潛H
JKﾐLｿLAl<41><6C><11> g@ｲ3g@g@<02> HdﾉHﾉ<04>ﾉｳHHﾉ ｿg@僮H
ｱ_Hﾊj<>*H djﾏｿdjﾏｿｸBﾉA聰ﾐHｿg@\｢ｱIHLg@ ｿHﾉg@ｾｽNｲMｵl<>lﾘkﾘ<6B> ｽHMｿMIﾐNﾍｿHﾉg@_ｿ_ｿOｲ%Oｵl<>lﾘkﾘ<6B> _ｿHOｿOIﾐOﾍｿHﾉg@_ｿ_ｿOｲ%Oｵl<>lﾘkﾘ<6B> _ｿHOｿOIﾐOﾍｿg@櫞Ig@ ｿHjﾏｿH_ｿg_Oﾉｵ'O_ｿOhOﾉ_ｿOOｿOBg
ｿg@Hﾈ _ｿdO<1E>ｿOZg@Hﾈ
_ ｿdO <20>ｿO [HJﾍ HKﾍ
BｲKJBﾈ _"ｿdO"<22>ｿO"ｺKBﾈ_$ｿdO$<24>ｿO$ｻBKﾍｿBJﾍ ｿBJKﾘﾍ
H(480 FONTPROP 397 \FSETLEFTKERN 355 \ALLOCBLOCK 299 \ALLOCBLOCK 248 \ALLOCBLOCK 215 \PUTCHARBITMAP.CSINFO 152 COPYALL 130 \MAKESLUGCHAR 111 \COPYARRAYBLOCK 32 \CREATECHARSET)
(627 FONTDESCRIPTOR 617 FONTDESCRIPTOR 607 FONTDESCRIPTOR 587 FONTDESCRIPTOR 566 FONTDESCRIPTOR 553 CHARSETINFO 544 CHARSETINFO 524 CHARSETINFO 515 ASCENT 496 CHARSETINFO 487 DESCENT 475 SPEC 461 CHARSETINFO 448 CHARSETINFO 427 CHARSETINFO 418 SOURCE 404 CHARSETINFO 389 LEFTKERN 378 LEFTKERN 325 YWIDTHS 269 IMAGEWIDTHS 224 WIDTHS 207 DESCENT 191 BITMAP 176 FONTDESCRIPTOR 158 CHARSETINFO 139 CHARSETINFO 119 SLUG 103 CHARSETINFO 78 IMAGEWIDTHS 70 WIDTHS 60 IMAGEWIDTHS 21 FONTDESCRIPTOR)
()
\MOVEFONTCHARS.SOURCEDATA :D8
(L (1 DEFAULTSOURCEFONT 0 SOURCE)) <01>
p@ｵAｺ@ｸJﾃｳwJｵ Aｰpｺ@ｰ<>｣d蘇Zｵ
Ag
Jｵ
Ag
Jｵ
Ag
Jｵ
Ag
Jｵ
Ag
h ｺHd ｧｿH X廩dJ
帆hX€Hｲ8JH羶\ﾉM獎ﾉｵ#LﾉM潼L
 OOﾐOｿOｻHl<48>蟆!JﾉﾉｵJﾉjJ
^ｿNｻnｹgIgKﾈ
gKﾈ gKﾉd的ﾐﾈgKﾉd的ﾐﾈgKﾉd的ﾐﾈgKﾉ ｴKﾉ I
gKﾉｴ IK
gHh<48>h(388 \GETCHARBITMAP.CSINFO 365 ELT 244 \CREATECHARSET 199 \CREATECHARSET 160 SLUGCHARP.DISPLAY 150 CHARCODE.DECODE 142 CHARCODEP 134 FONTCREATE 123 FONTPROP 104 FONTPROP 86 FONTPROP 69 FONTPROP 53 FONTPROP)
(394 SLUG 377 CHARSETINFO 371 BITMAP 357 CHARSETINFO 345 CHARSETINFO 339 LEFTKERN 324 IMAGEWIDTHS 309 YWIDTHS 294 WIDTHS 286 CHARSETINFO 280 DESCENT 272 CHARSETINFO 266 ASCENT 259 CHAR8CODE 235 FONTDESCRIPTOR 188 FONTDESCRIPTOR 118 DEVICE 99 ROTATION 81 FACE 64 SIZE 48 FAMILY 16 FONTDESCRIPTOR)
()
\MAKESLUGCHAR :D8
(L (1 FONT/CSINFO 0 CODE)) PAdﾃｲ6ｿA@羮[ﾉL獎ﾉｵ!KﾉL澂K
MNﾐOｿOｸ@l<>蛛ｸ@ｹHﾉZdｲ2dIﾐﾈJnﾐﾈ<00>ｱｲdｲIHjd
ｿJIﾐJnﾐﾈﾍ頴 ｿHﾉIﾐHﾉnﾐﾈﾍｿHﾉIﾐHﾉnﾐﾈﾍｿHdﾉｲｿHﾉIﾐHﾉnﾐﾈﾍｿHﾉ ｲ Hﾉ IHﾉ n
H(270 SETA 265 ELT 136 HELP 112 \PUTCHARBITMAP.CSINFO 107 BITMAPCREATE 43 \CREATECHARSET)
(255 CHARSETINFO 246 CHARSETINFO 236 CHARSETINFO 219 CHARSETINFO 209 CHARSETINFO 198 CHARSETINFO 180 CHARSETINFO 170 CHARSETINFO 153 CHARSETINFO 143 CHARSETINFO 72 CHARSETINFO 32 FONTDESCRIPTOR 9 FONTDESCRIPTOR)
( 131 "NONDISPLAY SLUG ?")
SLUGCHARP.DISPLAY :D8
(L (1 FONT/CHARSETINFO 0 CODE)) KAdﾃ珍A<E78F8D>@聰ﾐﾉHh<48>0Hﾊj<><6A>!Hﾉ@l<>衵ﾈHﾉl<>kﾘﾐﾈ<00>NIL
(62 CHARSETINFO 47 CHARSETINFO 32 CHARSETINFO 6 CHARSETINFO)
()
(PUTPROPS UPDATEINFOELEMENT MACRO ((FIELD) (LET ((DBLOCK (ffetch (CHARSETINFO FIELD) of DCSINFO)) (
NEWVAL (GETMULTI SOURCEDATA (QUOTE FIELD)))) (CL:WHEN NEWVAL (CL:UNLESS DBLOCK (SETQ DBLOCK (
\CREATECSINFOELEMENT)) (freplace (CHARSETINFO FIELD) of DCSINFO with DBLOCK)) (\FSETWIDTH DBLOCK
DTHINCODE NEWVAL)))))
FONTFILES :D8
(L (3 EXTLST 2 DIRLST 1 CHARSET 0 FONTSPEC) F 6 \DEFAULTCHARSET) <00>`@]dﾃ愾Mg
]ｸMｹMｺMｻMｼBｵ
Lg
d｣d蘇bCｵ
Lg
d｣d蘇bA｣VbｿHIJKLgBC
d｣d蘇HIJKLABC
d｣d蘇
(151 \APPEND2 139 \FINDFONTFILE 118 \FINDFONTFILE 85 FONTDEVICEPROP 62 FONTDEVICEPROP 23 FONTPROP)
(110 NOCHARSET 80 FONTEXTENSIONS 57 FONTDIRECTORIES 18 SPEC 10 FONTDESCRIPTOR)
()
\FINDFONTFILE :D8
(L (7 EXTLST 6 DIRLST 5 CHARSET 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) € F･hhb ｿG1HｵId<02>｣HｺhЗｺHｸI@ABJE
ｻFALｵ M
ｹｰﾏ･L_ｿh<EFBDBF>_ｿLｼgOgK ｵｰﾊ_ｿNｵ
Oh^ｽｰｼO&ｾｰｶ(102 INFILEP 97 PACKFILENAME.STRING 60 \NCONC2 45 \FONTFILENAME)
(91 BODY 84 DIRECTORY)
()
\FONTFILENAMES :D8
(L (4 EXTENSIONS 3 DEVICE 2 FACE 1 SIZE 0 FAMILY)) jDAHｵIDAHｵ4I
d｢ｼh<EFBDBC>ｼHｸ@ABLg
ｻJｵ KhZｹｰﾉK&ｺｰﾄ｣HｼhЗｼHｸ@ABLj
ｻJｵ KhZｹｰｫK&ｺｰｦ(88 \FONTFILENAME 49 \FONTFILENAME 22 \APPEND2)
(43 NOCHARSET)
()
\FONTFILENAME :D8
(L (4 CHARSET 3 EXTENSION) P 1 DEVICE P 0 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY) ( B b`@ｵAdg<00>Lｿl
A<EFBFBD>:AｰB]dﾃ愾Mg
]bｿMbｿMbｿMｸMｹｰｹoA
ZDd3 <20> 腔
蘇€D[gKｲoKo <00>@JoB K孃K
<00>
gC \oL
ｲLkA
LN
_ｵ O l*<2A>LNkﾘ
l*<2A>O_ｿOｵOh__ｿNkﾔｾｰﾄO&_ｿｰ<EFBDBF>(255 NTHCHARCODE 241 CONCATCODES 229 NTHCHARCODE 216 STRPOS 204 PACKFILENAME.STRING 193 CONCAT 181 CONCAT 168 FONTFACETOATOM 149 CONCAT 120 MEMB 109 OCTALSTRING 98 CONCAT 54 FONTPROP 5 \FONTFACE)
(198 EXTENSION 130 NAME 49 SPEC 41 FONTDESCRIPTOR 21 *)
( 210 "**" 187 "" 175 "-C" 162 "-" 155 "" 144 ">" 138 "c" 115 (NIL NOCHARSET) 92 "0")
FONTSPECFROMFILENAME :D8
(L (1 DEVICE 0 FONTFILE)) <01>@ ﾁ Hg'\k_ｿLO
Y3ｧI桧kﾔｰ<EFBE94>ZLkJkﾙ ]J_ｿLO
3ｳROｵi[LJKkﾙ ^LdK
g<00>ｿKkﾘｻL \dK
_dk
dlB<6C>ｿgｰOkﾔｰ拇lL<6C>ｿg瑛M<E7919B>gOl
dlI<6C>ｿg瑛R<E7919B>gOl
dlC<6C>ｿgｰdlE<6C>ｿg瑛R<E7919B>gh_hO
塗_ｿoLhddi`
_ｲLO
o
3 _ｿAd 仭A ｰ{ｳk`Hg'Oｵhｰ`_g
h_ｿ_ｿOdｨｲ0OｵﾟiｰﾜｦO_ｿh<EFBDBF>_ｿO_ｿOO
ｲﾕOｳﾗiｰﾒO_ｰｪAdd3@<40>ｿA bMｴNｴOｴdｴMNOjAh(473 \FONTSYMBOL 443 STRING.EQUAL 393 FONTDEVICEPROP 350 IMAGESTREAMTYPE 342 STREAMP 330 MKATOM 325 CONCAT 315 SUBSTRING 303 STRPOS 277 MEMB 228 NTHCHARCODE 197 NTHCHARCODE 147 NTHCHARCODE 138 SUBSTRING 130 U-CASE 112 NTHCHAR 101 MKATOM 96 SUBSTRING 76 NTHCHAR 63 MKATOM 58 U-CASE 53 SUBSTRING 28 NTHCHAR 5 UNPACKFILENAME.STRING)
(388 FONTEXTENSIONS 365 EXTENSION 359 IMAGESTREAMTYPES 297 UPPERCASEARRAY 263 REGULAR 252 EXPANDED 239 COMPRESSED 219 REGULAR 208 ITALIC 188 MEDIUM 177 LIGHT 158 BOLD 117 - 14 NAME)
( 320 "Q" 287 "-c")
FONTCOPY :D8
(L (0 FONTSPECS)) xe<11>kahddkaﾃｴ-Hdl<02>ｿla嗟ag'ｰHl_ｿ_ｿOdO<12>Yｿh
_dﾉ[Oﾉ]Oﾉ\Oﾈ ^Oﾉ_HlO"dO <20>+I｢ｱﾞJ｢ｱﾙhH<>Odag<00>kﾘaｰ唹lﾔ_ｰ羽<EFBDB0>O"kﾘa€h_$ｿO"adg<00>ｿO$[ｱ租g<00>ｿO$]ｱＥg<00>ｿO$ \ｱndg<00>ｿO$LLL\ｱPdg<00>ｿLO$LL\ｱ3dg<00>ｿLLO$L\ｱdg<00>3ｿLLLL_ddｬｿdhddｿOO$ｿ\ｱﾝdg<00>4ｿLLLL_ddｬｿdhddｿOO$ｿ\ｱ｢dg<00>ｿO$^ｱ電g<00>ｿO$_ｱト<00>O$YｱvO"l<02>ｱ`Hl<02>ｱXla｢ｱPlaｱBd__$ｿOdg<00>ｿO$[ｱ%dg<00>ｿO$]ｱdg<00>ｿO$ \ｱdg<00>ｿO$LLL\ｱ臈g<00>ｿLO$LL\ｱﾇdg<00>ｿLLO$L\ｱｫdg<00>2ｿLLLL_ddｬｿdhddｿOO$ｿ\ｰqdg<00>3ｿLLLL_ddｬｿdhddｿOO$ｿ\ｰ7dg<00>ｿO$^ｰ)dg<00>ｿO$_ｰg<00>O$Y栗段Z⑯ ｿｵこ<>ｽ巧段Z⑯"a ｿO"lﾔ_"ｱ<>KMLNOI
(885 FONTCREATE 861 \ILLEGAL.ARG 837 \ILLEGAL.ARG 578 \FONTFACE 238 \FONTFACE 69 FONTCREATE)
(818 NOERROR 804 DEVICE 790 ROTATION 732 FORECOLOR 675 BACKCOLOR 647 EXPANSION 618 SLOPE 588 WEIGHT 568 FACE 553 SIZE 538 FAMILY 482 NOERROR 467 DEVICE 452 ROTATION 393 FORECOLOR 335 BACKCOLOR 307 EXPANSION 278 SLOPE 248 WEIGHT 228 FACE 213 SIZE 198 FAMILY 160 DEVICE 117 FONTDESCRIPTOR 107 FONTDESCRIPTOR 97 FONTDESCRIPTOR 87 FONTDESCRIPTOR 77 FONTDESCRIPTOR 41 DEVICE 18 FONTCLASS)
()
FONTP :D8
(L (0 X)) @dﾃｩｿ@ﾃｴ@NIL
(14 FONTCLASS 6 FONTDESCRIPTOR)
()
FONTUNPARSE :D8
(L (0 FONT)) H@dﾃ攸g@ ﾃｴ+@g
Hi
YHHIHh(52 FONTFACETOATOM 39 FONTPROP 19 FONTCLASSUNPARSE)
(34 SPEC 26 FONTDESCRIPTOR 13 CLASS 6 FONTCLASS)
()
SETFONTDESCRIPTOR :D8
(L (5 FONT 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) <00>
@ABCD
Hdﾃ愾Hg
XbｿHbｿHbｿHbｿHb<11> @d`ｵdh`XAYdHｵHｻIhKｺKdJｿXBYdHｵHｽIhMｼMdLｿXCYdHｵH_ｿIhOｾOdNｿXDYdHｵH_ｿIhO_ｿOdOｿddEd冑ddD
ｿ(222 FONTCREATE 33 FONTPROP 10 \FONT.CHECKARGS)
(95 \FONTSINCORE 89 \FONTSINCORE 78 \FONTSINCORE 28 SPEC 20 FONTDESCRIPTOR)
()
\STREAMCHARWIDTH :D8
(L (2 TTBL 1 STREAM 0 CHARCODE) F 6 \PRIMTERMTABLE) @l<>蘆0A 僊ﾉ0X禰ﾉｵ`XB ｵVﾉｹ@l<><6C>Iﾉ€檗Iﾉ€
ｵj<>@ﾂl蘚l<18>+ｿ@ｺl€@<40>@l蠎Hﾈ#€jl J<>Jl@ﾔｺHﾈ^€jﾘHJﾐﾈﾘdl<10>dｿ@l
<EFBFBD>w@l
<EFBFBD>q@l
<EFBFBD>k@dl<07>ddl<1B>ｿHﾈ$l <09>5Hﾈ hA
K珥濔LMLhA
ﾙM
ﾙ]ﾔdhA
<00>$MH@ﾐﾈdj<64>ｿ@l
<EFBFBD>@l
<EFBFBD>@dl
<EFBFBD>j<EFBFBD>禀l<08>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)
()
\COERCECHARSET :D8
(L (4 FONT 3 COERCIONS 2 CODE 1 CHARSET 0 FONTSPEC)) <00>Cｵ@B蛭携<00>3@<40>@C
bｿ@Ci !HｵhA
YﾉA獎ﾉｵIﾉA漓I
KLﾐMｿMZｲ9B錬I
ｳ.DｵIJhIﾉｿDIﾉｿｰﾙHXｰ<58>(107 SLUGCHARP.DISPLAY 83 \CREATECHARSET 56 FONTCREATE1 40 COERCEFONTSPEC 29 FONTDEVICEPROP)
(146 FONTDESCRIPTOR 140 FONTDESCRIPTOR 129 FONTDESCRIPTOR 123 FONTDESCRIPTOR 72 FONTDESCRIPTOR 16 FONTCOERCIONS 10 CHARCOERCIONS)
()
\BUILDSLUGCSINFO :D8
(L (1 SLUGWIDTH 0 FONT) F 14 \DISPLAYSTREAMTYPES) <01>@ﾈ
@ﾈ @ﾉｳ
Hj<EFBFBD>"o@ﾉｵk鵝ﾉ<04> ｸAｵ @ﾈ bj<>ｱ襤ｵこﾔ`HIﾙ_ｿdOﾍ
ｿdIﾍ ｿdkﾏｿdkﾏｿdn<64><6E>ﾍｿl<EFBDBF>lﾘkﾘ<6B> _ｿdOｿl<EFBDBF>lﾘkﾘ<6B> _ｿdOｿ[dﾉ\l<>j_ｿ_ｿOO<14>ｱ廳LJW
ｲLl<4C>lﾘkﾘ<6B> ｽKMｿl<EFBDBF>j_ｿ_ｿOO<18>qAHk ｾn<EFBDBE><6E>NkhAkﾙ
ｿKNK ｢ｱ<EFBDA2>)@dﾈj<>ｿHo<00> <00>ﾈbｿ@Aﾍ ｿｱ<EFBDBF><EFBDB1>OﾐAﾍｿOkﾔ_ｱ<>RMOﾐjﾍｿOkﾔ_ｱ<>~(334 FIXR 305 \FZEROP 288 BLTSHADE 272 BITMAPCREATE 237 \ALLOCBLOCK 222 MEMB 168 \ALLOCBLOCK 146 \ALLOCBLOCK 62 FIXR)
(351 FONTDESCRIPTOR 340 FONTDESCRIPTOR 316 FONTDESCRIPTOR 295 CHARSETINFO 244 CHARSETINFO 211 CHARSETINFO 184 CHARSETINFO 96 |CHARSETINFOTYPE#| 72 FONTDESCRIPTOR 54 FONTDESCRIPTOR 42 FONTDESCRIPTOR 21 FONTDESCRIPTOR 13 FONTDESCRIPTOR 5 FONTDESCRIPTOR)
( 328 0.6 36 1.2)
\FONTSYMBOL :D8
(L (1 ElseReturnXFlg 0 X)) 1@dd3@<40>ｿ@  奸 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)) <02>Ag<00>g<00>ggd@@dｲ| ｹ@ ｺ@ ｻIo
ｳIg
蛭€HｹJo
｡HｺKo
｡HｻIg<00>Jg<00>Kg<00>ｱﾂA｢ｱｶhd3@<40>@ ｲﾒ@ｵｰﾍ l<03>ｱｾ@ dlB<6C>dlb<6C>ｿgｰ1dlM<6C>dlm<6C>dlR<6C>dlr<6C>ｿgｰdlL<6C>dll<6C>ｿg∩Hｹ@l
dlR<6C>dlr<6C>ｿgｰdlI<6C>dli<6C>ｿg∩Hｺ@l
dlR<6C>dlr<6C>ｿgｱ<>0dlC<6C>dlc<6C>ｿgｱ<>dlE<6C>dle<6C>ｿgｱ<>
ｿｱ<EFBFBD>@dg<00>ｿgYｰ;g<00>gZｰ,@dg<00>ｿgｹgZｰg<00>@dg<00>ｿi蝶<69>ｸ@dg
卅gYｱ<59>｢g
枠ｺｱ<EFBDBA>后dg
涸gｹgｺｱ<EFBDBA>po
蝶<>bo@
蓮AB @o
喩YZ[ｱ<>7HYZ[ｱ<>0L ｿIdg<00>ｿJg<00>Kg<00>oIg<00>Jg<00>Kg<00>oIdg<00>ｿJg<00>Kg<00>oIg<00>Jg<00>Kg<00>oIJKh(599 \ILLEGAL.ARG 574 MEMB 562 \FONTFACE.COLOR 553 STRPOS 538 MEMB 511 STRING.EQUAL 489 STRING.EQUAL 468 STRING.EQUAL 316 NTHCHARCODE 270 NTHCHARCODE 196 CHCON1 183 NCHARS 171 STRINGP 122 MEMB 108 MEMB 88 STRING.EQUAL 75 MEMB 63 U-CASE 53 U-CASE 44 U-CASE)
(720 REGULAR 712 ITALIC 703 BOLD 689 REGULAR 681 ITALIC 671 MEDIUM 656 REGULAR 648 REGULAR 639 BOLD 625 REGULAR 617 REGULAR 607 MEDIUM 580 * 524 ITALIC 518 BOLD 506 BOLDITALIC 495 ITALIC 484 ITALIC 475 BOLD 463 BOLD 448 REGULAR 439 STANDARD 431 ITALIC 425 BOLD 417 BOLDITALIC 407 ITALIC 400 ITALIC 392 BOLD 384 BOLD 370 EXPANDED 351 COMPRESSED 332 REGULAR 304 ITALIC 286 REGULAR 258 LIGHT 240 MEDIUM 212 BOLD 148 ERROR 140 ERROR 131 ERROR 94 MEDIUM 83 REGULAR 28 REGULAR 23 MEDIUM 18 ERROR 12 REGULAR 5 REGULAR)
( 727 (BOLD ITALIC REGULAR) 696 (MEDIUM ITALIC REGULAR) 663 (BOLD REGULAR REGULAR) 632 (MEDIUM REGULAR REGULAR)
569 (* ***) 547 "-" 533 (STANDARD REGULAR NIL NNN) 117 (COMPRESSED REGULAR EXPANDED *) 103 (REGULAR ITALIC *)
70 (BOLD MEDIUM LIGHT *))
\FONTFACE.COLOR :D8
(L (2 DEV 1 NOERRORFLG 0 FACE)) @B bp@d蝶<d3@<40>ｱh@ ｨ@ bｿo@
Y咫kIkﾙ €@Xg<00>Hdg<00>ｿoｱ<00>Hg<00>Hg<00>Hdg<00>ｿoｱﾇg<00>Hdg<00>ｿoｱｮg<00>Hdg<00>ｿoｱ蛭<00>Hg<00>oｰ~@k
dlM<6C>ｿgｰdlB<6C>ｿg詰L<E8A9B0>ｱ組@l
dlR<6C>ｿg瑛I<E7919B>g@l
dlR<6C>ｿgｰｿｰUdlC<6C>ｿg瑛E<E7919B>KghｾIｵ&NｾBd`蝶堊N｢ｱ侵 ^hNｺo@Jkﾘ YｪA｢ｱｶhｿｿｰ<EFBDBF> ｻ@JkﾘIkﾙ K
ｼIｺ@Jkﾘm<EFBE98> K
ｽN ^dｩhddｿNLｿNdｩhddｿNMｿｱ<EFBDBF>_B`ｲ@Ndｳ:dｩhddｿNjｿNdｩhddｿNB NN@ h(572 \ILLEGAL.ARG 561 MAXIMUMCOLOR 556 \DISPLAYSTREAMTYPEBPP 445 COPY 438 COLORNUMBERP 432 SUBATOM 418 COLORNUMBERP 412 SUBATOM 399 \DISPLAYSTREAMTYPEBPP 380 STRPOS 358 COPY 283 NTHCHARCODE 253 NTHCHARCODE 208 NTHCHARCODE 64 SUBATOM 52 STRPOS 38 U-CASE 31 U-CASEP 5 \DEVICESYMBOL)
(499 \COLORDISPLAYSTREAMTYPES 338 \COLORDISPLAYSTREAMTYPES 321 EXPANDED 310 COMPRESSED 294 REGULAR 275 ITALIC 264 REGULAR 245 LIGHT 232 BOLD 219 MEDIUM 192 BIR 184 BOLDITALIC 168 BRR 159 BOLD 143 MIR 134 ITALIC 118 NNN 109 STANDARD 100 MRR 81 *** 72 *)
( 371 "-" 199 (BOLD ITALIC REGULAR) 176 (BOLD REGULAR REGULAR) 151 (MEDIUM ITALIC REGULAR) 126 (MEDIUM REGULAR REGULAR)
89 (* * *) 46 "-")
SETFONTCHARENCODING :D8
(L (1 CHARENCODING 0 FONT)) K@ A@ﾉﾉ1gYdHﾉｵHｻIhKﾉｺKJｿJddAｿ(5 FONTCREATE)
(60 CHARSETINFO 50 CHARSETINFO 34 CHARSETINFO 26 CSCHARENCODING 10 FONTDESCRIPTOR)
()
FONTSAVAILABLEA0001 :D8
(L (5 FONT 4 D 3 R 2 FC 1 S 0 FM) F 0 FAMILY F 1 SIZE F 2 $$COLLECT F 3 ROTATION F 4 DEVICE F 5 FACE) NP@<40>Pg<00>AQA<51>Qg<00>4UB
ｴ+SC<53>Sg<00>TD<54>Tg<00>@ABCDhRc(32 MATCHFONTFACE)
(57 * 44 * 22 * 9 *)
()
FONTSAVAILABLE :D8
(L (5 CHECKFILESTOO?) I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY) <01>@ABCDi
<11>Hdg<00>?ｿ0`ｰ"dｺHhddJE
_唹 ｵO_"_ ｿｵﾟO" _ Oｰ劯dﾃ愾Kg
[bｿKbｿKbｿKbｿKbｿEg<00>`g
€hEｴこ;DCBA@`




Yｵこ<00>D`ｵg_ k<>HkO魁ABCDlOｹ@_`
ｵOh`_ｿA_O
ｵOｽOhMｼMdLｿ_ｿB_O
ｵO_ｿOhOｾOdNｿ_ｿC_O
ｵO_ｿOhO_ｿOdOｿ_ｿD_O
ｵO_ｿOhO_ｿOdOｿIｵgｿI曳<00>I€hh
(499 SORTFONTSPECS 494 UNION 489 \APPEND2 434 SASSOC 393 SASSOC 355 SASSOC 321 SASSOC 289 SASSOC 254 NARGS 216 SASSOC 210 SASSOC 204 SASSOC 198 SASSOC 192 SASSOC 168 COLLECTMULTI 110 FONTPROP 83 LAST 56 FONTSAVAILABLE 11 \FONT.CHECKARGS)
(478 NONE 469 NONE 306 \FONTSAVAILABLEFILECACHE 300 \FONTSAVAILABLEFILECACHE 284 \FONTSAVAILABLEFILECACHE 247 \SEARCHFONTFILES 235 IMAGESTREAMTYPES 229 FONTSAVAILABLE 187 \FONTSAVAILABLEFILECACHE 163 FONTSAVAILABLEA0001 158 \FONTSINCORE 151 ONLY 105 SPEC 97 FONTDESCRIPTOR 38 IMAGESTREAMTYPES 26 *)
()
FONTEXISTS? :D8
(L (5 NOCOERCIONS 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) 6@ABCDi
a`Hg ｵこ`Hg Yｵこ辿ZHdo
ｲHHjHH ｵ1gJ`ｵgJ`ｵgｻHkKYdｲ-Hｼ`ｵ
LhhLIg g<00>`IEｳ7HJg
Yｲ#Hｽ`ｵ
MhhMIg Hｾ`ｵ
NhhNgg h(306 EXTENDMULTI-PAIR 269 EXTENDMULTI-PAIR 234 COERCEFONTSPEC 229 FONTDEVICEPROP 203 EXTENDMULTI-PAIR 117 FONTFILES 84 MEMB 53 FETCHMULTI-PAIR 30 FETCHMULTI-PAIR 11 \FONT.CHECKARGS)
(301 SASSOC 296 NO 290 \FONTEXISTS?-CACHE 277 \FONTEXISTS?-CACHE 264 SASSOC 257 \FONTEXISTS?-CACHE 244 \FONTEXISTS?-CACHE 224 FONTCOERCIONS 209 NO 198 SASSOC 191 \FONTEXISTS?-CACHE 178 \FONTEXISTS?-CACHE 161 NILL 149 IMAGESTREAMTYPES 143 FONTSAVAILABLE 131 IMAGESTREAMTYPES 125 FONTEXISTS? 48 SASSOC 42 \FONTEXISTS?-CACHE 25 SASSOC 19 \FONTSINCORE)
( 79 (90 270))
\SEARCHFONTFILES :D8
(L (0 FONTSPEC))  <11>@\dﾃ愾Lg
\ｸLｹLｺLｻHIJKdg
d｣d蘇
! Oｵ
O g
_ｲoOo <00>_ｿKg
_ｿOｵ O_ｰｵｦO_ｿh<EFBDBF>_ｿO_ｿOoOｵo _d ｲﾂ hｾ]ｵｰｶK
ｾHg<00>HN<01>,Ig<00>IN<01>JN
櫻dO
､O_ｿMｰｸ(274 MEMBER 264 MATCHFONTFACE 224 FONTSPECFROMFILENAME 209 DIRECTORY 202 DIRECTORYNAMEP 194 CONCAT 138 FONTDEVICEPROP 118 CONCAT 97 FILENAMEFIELD 85 DREVERSE 70 \FONTFILENAMES 57 FONTDEVICEPROP 23 FONTPROP)
(245 * 231 * 133 FONTDIRECTORIES 92 DIRECTORY 52 FONTEXTENSIONS 18 SPEC 10 FONTDESCRIPTOR)
( 189 "" 180 ">" 124 "" 113 ">" 106 ">")
FLUSHFONTCACHEA0001 :D8
(L (4 DPAIR 3 R 2 FC 1 S 0 FM) F 0 FAMILY F 1 SIZE F 2 NFLUSHED F 3 ROTATION F 4 DEVICE F 5 FACE) NP@<40>Pg<00>AQA<51>Qg<00>4UB
ｴ+SC<53>Sg<00>TD<01>Tg<00>Dｴ RkﾔcDdhｿ(32 MATCHFONTFACE)
(58 * 44 * 22 * 9 *)
()
FLUSHFONTCACHE :D8
(L (0 TYPE) P 3 NFLUSHED I 5 DEVICE I 4 ROTATION I 3 FACE I 2 SIZE I 1 FAMILY) <00>@ｵ obｲ'0@ｰdABCDE
ｸIｵHhZ？&ｹｵ蕭AｵgBｵgCｵgDｵgEｵgi
Hdﾃ愾Hg
XbｿHbｿHbｿHbｿHb
j@dg<00>ｿ`ｰ%g<00>`ｰ@dg<00>ｿ`<00> g
@Kh(220 MAPMULTI 210 \ILLEGAL.ARG 119 FONTPROP 96 \FONT.CHECKARGS 31 FLUSHFONTCACHE)
(215 FLUSHFONTCACHEA0001 204 \FONTSAVAILABLEFILECACHE 196 :AVAILABLE 187 \FONTEXISTS?-CACHE 180 :EXISTS 173 \FONTSINCORE 165 :INCORE 114 SPEC 106 FONTDESCRIPTOR 89 * 81 * 73 * 65 * 57 *)
( 7 (:INCORE :EXISTS :AVAILABLE))
FINDFONTFILES :D8
(L (6 EXTLST 5 DIRLST 4 DEVICE 3 ROTATION 2 FACE 1 SIZE 0 FAMILY)) =@ABCD
Hdﾃ愾Hg
XbｿHbｿHbｿHbｿHbEｳDg
d｣d蘇b
ｿFｳDg
d｣d蘇b ｿ@ABDF
AHｵ J g
YｲoIo <00>ｹE[ｿKｵHXｰﾈ｣KｼhКｼKｻLoIｵo \d ｲﾑ !Mｵｰﾃ^D
_ｿNJ
ｳ0@g<00>@O<01>!Ag<00>AO<01>BO
哲JｺM]ｰｵ(305 MATCHFONTFACE 262 MEMBER 252 FONTSPECFROMFILENAME 234 DIRECTORY 227 DIRECTORYNAMEP 220 CONCAT 171 CONCAT 152 FILENAMEFIELD 140 DREVERSE 127 \FONTFILENAMES 106 FONTDEVICEPROP 82 FONTDEVICEPROP 33 FONTPROP 10 \FONT.CHECKARGS)
(285 * 270 * 147 DIRECTORY 101 FONTEXTENSIONS 77 FONTDIRECTORIES 28 SPEC 20 FONTDESCRIPTOR)
( 215 "" 207 ">" 177 "" 166 ">" 160 ">")
SORTFONTSPECSA0001 :D8
(L (1 FS2 0 FS1)) <00>@A
dg<00>qｿ@A
dg<00>Tｿ@A<01><>\@A<01>S@AHI<48>CHdg<00>ｿIg<00><>,Hg<00>!Ig<00><>g<00>ig<00>i(35 ALPHORDER 16 ALPHORDER)
(141 LESSP 131 LESSP 122 REGULAR 111 REGULAR 98 MEDIUM 88 MEDIUM 41 EQUAL 22 EQUAL)
()
SORTFONTSPECS :D8
(L (0 FONTSPECS))
@g
(10 SORT)
(5 SORTFONTSPECSA0001)
()
MATCHFONTFACE :D8
(L (1 FACE 0 PATTERN)) H@g<00>?@A<>:@@@HA<01>Hg<00> IA<01>Ig<00>JA<01> Jg<00>NIL
(68 * 51 * 36 * 5 *)
()
MAKEFONTFACE :D8
(L (4 COLOR 3 BASE 2 EXPANSION 1 SLOPE 0 WEIGHT)) eC 戮g
bｿ@ｪCｵIgbｿAｪCｵ8gbｿBｪCｵ&gbｿDｫC bｿ@ABhdDｿｰﾞｰﾍｰｽ(70 COPY 17 FONTPROP 5 FONTP)
(56 REGULAR 43 REGULAR 30 MEDIUM 12 FACE)
()
FONTFACETOATOM :D8
(L (1 NOERROR 0 FACE)) 
@d｢ｱｾdg<00>ｿgｰ dg<00>ｿg使<00>g　@dg<00>ｿg夙<00>g<00>@dg<00>ｿgｰ#dg<00>ｿgｰg<00>gァ@ｴ(o@ｴ@o@ｴ@h ｲ<@d3@<40>5@k
lM
ｲ%@l
lI
ｲ@l
lR
繊Aｦ@ h(261 \ILLEGAL.ARG 250 MEMB 243 NTHCHARCODE 233 MEMB 226 NTHCHARCODE 216 MEMB 209 NTHCHARCODE 192 PACK)
(135 E 128 EXPANDED 121 C 113 COMPRESSED 105 R 97 REGULAR 83 R 76 REGULAR 70 I 62 ITALIC 50 L 43 LIGHT 37 B 29 BOLD 21 M 13 MEDIUM)
( 167 "-" 151 "-")
(RPAQ? \FONTSINCORE NIL)
(RPAQ? \FONTEXISTS?-CACHE NIL)
(RPAQ? \FONTSAVAILABLEFILECACHE NIL)
(RPAQ? \DEFAULTDEVICEFONTS NIL)
(ADDTOVAR MEDLEY-INIT-VARS (\FONTEXISTS?-CACHE NIL RESET) (\FONTSAVAILABLEFILECACHE NIL RESET))
(RPAQ? \UNITWIDTHSVECTOR NIL)
\UNITWIDTHSVECTOR :D8
NIL 5l<>lﾘ<> l<>lﾘjIH<49>``IﾐkﾍｿIkﾔYｰ<59>(10 \ALLOCBLOCK)
(39 \UNITWIDTHSVECTOR 33 \UNITWIDTHSVECTOR 15 \UNITWIDTHSVECTOR)
()
(\UNITWIDTHSVECTOR)
FONTDESCRIPTOR.DEFPRINT :D8
(L (1 STREAM 0 FONT)) ﾙ@ @ﾉo@ﾉ@ﾉoIdg<00>ｿgｰ dg<00>ｿg使<00>g！Idg<00>ｿg夙<00>g<00>Idg<00>ｿgｰ#dg<00>ｿgｰg<00>gオoH oH o
h(212 CONCAT 201 OCTALSTRING 189 OCTALSTRING 5 LOC)
(172 E 165 EXPANDED 158 C 150 COMPRESSED 142 R 134 REGULAR 120 R 113 REGULAR 107 I 99 ITALIC 87 L 80 LIGHT 74 B 66 BOLD 58 M 50 MEDIUM 35 FONTDESCRIPTOR 27 FONTDESCRIPTOR 11 FONTDESCRIPTOR)
( 206 "}" 194 "," 182 "/" 42 "-" 21 "{")
FONTCLASS.DEFPRINT :D8
(L (1 STREAM 0 FONTCLASS)) D@ o@ﾉ
ｵgoH oH o
h(63 CONCAT 52 OCTALSTRING 40 OCTALSTRING 5 LOC)
(28 FONTCLASS 19 FONTCLASS)
( 57 "}" 45 "," 33 "/" 13 "{")
(/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))
(DEFPRINT (QUOTE FONTCLASS) (FUNCTION FONTCLASS.DEFPRINT))
(/DECLAREDATATYPE (QUOTE FONTDESCRIPTOR) (QUOTE (POINTER FLAG POINTER POINTER POINTER WORD WORD WORD
WORD WORD SIGNEDWORD SIGNEDWORD SIGNEDWORD POINTER POINTER POINTER POINTER POINTER (BITS 8) WORD
POINTER POINTER FLAG POINTER)) (QUOTE ((FONTDESCRIPTOR 0 POINTER) (FONTDESCRIPTOR 0 (FLAGBITS . 0)) (
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 (BITS . 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 30 (FLAGBITS . 0)) (FONTDESCRIPTOR 32 POINTER))) (QUOTE 34)
)
(DEFPRINT (QUOTE FONTDESCRIPTOR) (FUNCTION FONTDESCRIPTOR.DEFPRINT))
(/DECLAREDATATYPE (QUOTE CHARSETINFO) (QUOTE (POINTER FLAG FLAG POINTER POINTER POINTER POINTER WORD
WORD POINTER POINTER WORD)) (QUOTE ((CHARSETINFO 0 POINTER) (CHARSETINFO 0 (FLAGBITS . 0)) (
CHARSETINFO 0 (FLAGBITS . 16)) (CHARSETINFO 2 POINTER) (CHARSETINFO 4 POINTER) (CHARSETINFO 6 POINTER)
(CHARSETINFO 8 POINTER) (CHARSETINFO 10 (BITS . 15)) (CHARSETINFO 11 (BITS . 15)) (CHARSETINFO 12
POINTER) (CHARSETINFO 14 POINTER) (CHARSETINFO 16 (BITS . 15)))) (QUOTE 18))
(ADDTOVAR SYSTEMRECLST (DATATYPE FONTCLASS ((PRETTYFONT# BYTE) DISPLAYFD PRESSFD INTERPRESSFD OTHERFDS
FONTCLASSNAME)) (DATATYPE FONTDESCRIPTOR ((FONTDEVICE POINTER) (FONTCOMPLETEP FLAG) (FONTFAMILY
POINTER) (FONTSIZE POINTER) (FONTFACE POINTER) (\SFAscent WORD) (\SFDescent WORD) (\SFHeight WORD) (
ROTATION WORD) (FONTSLUGWIDTH WORD) (NIL SIGNEDWORD) (NIL SIGNEDWORD) (NIL SIGNEDWORD) (FONTTOMCCSFN
POINTER) (NIL POINTER) (FONTDEVICESPEC POINTER) (OTHERDEVICEFONTPROPS POINTER) (FONTSCALE POINTER) (
\SFFACECODE BITS 8) (FONTAVGCHARWIDTH WORD) (FONTCHARENCODING POINTER) (FONTCHARSETVECTOR POINTER) (
FONTHASLEFTKERNS FLAG) (FONTEXTRAFIELD2 POINTER))) (DATATYPE CHARSETINFO (WIDTHS (CSSLUGP FLAG) (
CSCOMPLETEP FLAG) OFFSETS IMAGEWIDTHS CHARSETBITMAP YWIDTHS (CHARSETASCENT WORD) (CHARSETDESCENT WORD)
LEFTKERN CSINFOPROPS (CHARSETNO WORD))))
\CREATEKERNELEMENT :D8
NIL l<>lﾘgjd (16 ARRAY)
(9 POINTER)
()
\FSETLEFTKERN :D8
(L (2 KERNVALUE 1 INDEX 0 CSINFO)) %@dﾉ ｭ ｿ@ﾉ AB (34 SETA 16 \CREATEKERNELEMENT)
(25 CHARSETINFO 11 CHARSETINFO)
()
\FGETLEFTKERN :D8
(L (2 CHARCODE 1 PREVCHARCODE 0 FONT)) _@ﾊj<><6A>@@A<>HﾉI獎ﾉｵHﾉI潛H
JKﾐLｿLﾉ Al<41><6C>
H3 ｵ
BHｵj(76 ELT 47 \CREATECHARSET)
(65 CHARSETINFO 36 FONTDESCRIPTOR 5 FONTDESCRIPTOR)
()
\CREATEFONT :D8
(L (0 FONTSPEC)) <00> g@`<11>Hｵこ荏@ｺdJｿ@ｻdKｿ@ｼdLｿ@ｽdMﾍ ｿ@ｾdNｿdjﾍｿdjﾍ ｿdjﾍ
ｿ@@@@@@_ｿdOｿll<>ﾘi
_ｿdOｿYI k<>@kH<0E>@
Yｵ顱 bｲﾞHd k<>ｿ@kH@
(221 APPLY 205 NARGS 194 COERCEFONTSPEC 185 APPLY 169 NARGS 152 \ALLOCBLOCK)
(35 |FONTDESCRIPTORTYPE#| 15 IMAGESTREAMTYPES 4 FONTCREATE)
()
\CREATECHARSETA0001 :D8
(L (2 CHARSET 1 FONT 0 FONTSPEC)) @BA ｵ@ BA (22 \READCHARSET 15 COERCEFONTSPEC 7 \READCHARSET)
NIL
()
\CREATECHARSET :D8
(L (1 FONT 0 CHARSET)) ﾉj@<40>@l<><6C>@ ｿAﾊj<>Aﾉ@獎ﾉｰUgAﾉ`ｵgAg
YIIIIIA@lHHｵ4Aﾉnﾐﾉｵ(A ｸAﾉnﾐHｿAﾉ@獎HHﾊj<>ﾄAH@ ｿｰ<EFBDBF>(196 \INSTALLCHARSETINFO 143 \BUILDSLUGCSINFO 81 FONTPROP 14 \ILLEGAL.ARG)
(181 CHARSETINFO 166 FONTDESCRIPTOR 150 FONTDESCRIPTOR 76 DEVICESPEC 67 \CREATECHARSETA0001 55 IMAGESTREAMTYPES 48 FONTDESCRIPTOR 42 CREATECHARSET 21 FONTDESCRIPTOR)
()
\INSTALLCHARSETINFO :D8
(L (2 CHARSET 1 CSINFO 0 FONT)) <00>@@ﾈAﾈ
dn<EFBFBD><EFBFBD>n<EFBFBD><EFBFBD>ﾙkﾙHdI<64>ｿIﾍ@@ﾈ Aﾈ dn<6E><7F>n<EFBFBD><6E>ﾙkﾙHdI<64>ｿIﾍ @@ﾈ@ﾈ ﾘﾍ
ABﾍ@AB @ﾉB獎A@dﾈj<>ｿ@@ ﾍｿ@ﾈ j<>@Aﾉnﾐﾈﾍ ｿ@ﾈ j<>@@ﾈﾍ A(170 \AVGCHARWIDTH 130 \INSTALLCHARSETINFO.CHARENCODING)
(231 FONTDESCRIPTOR 225 FONTDESCRIPTOR 214 FONTDESCRIPTOR 197 CHARSETINFO 191 FONTDESCRIPTOR 179 FONTDESCRIPTOR 164 FONTDESCRIPTOR 151 FONTDESCRIPTOR 136 FONTDESCRIPTOR 119 CHARSETINFO 105 FONTDESCRIPTOR 99 FONTDESCRIPTOR 66 CHARSETINFO 58 FONTDESCRIPTOR 52 FONTDESCRIPTOR 19 CHARSETINFO 11 FONTDESCRIPTOR 5 FONTDESCRIPTOR)
()
\INSTALLCHARSETINFO.CHARENCODING :D8
(L (2 CHARSET 1 CSINFO 0 FONT)) 1Bj<42>,Aﾊj<>@gAﾉHIINIL
(34 CHARSETINFO 28 CSCHARENCODING 23 FONTDESCRIPTOR 10 CHARSETINFO)
()
\FONTRESETCHARWIDTHS :D8
(L (2 LASTCHAR 1 FIRSTCHAR 0 CSINFO)) mnj@ﾉ@ﾉDJnﾐﾈｾJnkﾘﾐﾈNﾙ_ｿIH<49>hJIﾐﾈｼNL<4E>KIﾐOｰ!JIkﾘﾐﾈｽLM<4C>JIﾐNﾍｿKIﾐO<0E>IﾐMLﾙﾍｿIkﾔYｰﾄNIL
(17 CHARSETINFO 9 CHARSETINFO)
()
(PUTPROPS \FGETCHARIMAGEWIDTH MACRO (OPENLAMBDA (FONT CHARCODE) (\FGETWIDTH (ffetch (CHARSETINFO
IMAGEWIDTHS) of (\INSURECHARSETINFO FONT (\CHARSET CHARCODE))) (\CHAR8CODE CHARCODE))))
(PUTPROPS FONT FILETYPE :FAKE-COMPILE-FILE)
\CREATEDISPLAYFONT :D8
(L (0 FONTSPEC)) <00>`@HdIｿ@HdIｿ@HdIｿ@HdIﾍ ｿ@HdIｿdjﾍｿdjﾍ ｿdjﾍ
ｿ@@@@@@HdIｿll<>ﾘi
HdIｿ(142 \ALLOCBLOCK)
(4 |FONTDESCRIPTORTYPE#|)
()
\CREATECHARSET.DISPLAY :D8
(L (2 CHARSET 1 FONT 0 FONTSPEC)) #@@gg
ｲ@BhgA
ｵこ<00>BA ｵ^@Bhg ｵMHj<48>QHo
ｫoH
ｿ@@@j@@AB d｢ｱ践
@BA B ｧB ｲIo<00>@@oｰ@hIdg<00>ｿ@BA g<00>@BA Ig<00>)@@o@@@AB (288 \CREATECHARSET.DISPLAY 236 MAKEITALIC.CHARSET 218 MAKEBOLD.CHARSET 175 CHINESECHARSETP 168 KANJICHARSETP 161 COMPLETE.CHARSET 152 \SFROTATECSINFO 141 \CREATECHARSET.DISPLAY 106 ERROR 94 MEMB 74 \COERCECHARSET 59 \READCHARSET 43 \COERCECHARSET 26 FONTDEVICEPROP)
(246 COMPRESSED 226 ITALIC 207 BOLD 69 CHARCOERCIONS 36 FONTCOERCIONS 21 FONTCOERCIONS 16 DISPLAY)
( 259 (MEDIUM REGULAR REGULAR) 195 (MEDIUM REGULAR REGULAR) 183 (MEDIUM REGULAR REGULAR) 100 "Only implemented rotations are 0, 90 and 270."
89 (90 270))
\FONTEXISTS?.DISPLAY :D8
(L (0 FONTSPEC)) <00>@Hdg<00>=ｿ@@gHHH@@@ ｵこｬHdg<00>8ｿ@@HgHH@@@ ｵjHg<00>5@@HHgH@@@ ｵ+@gg
gg
(244 COERCEFONTSPEC 239 \APPEND2 234 FONTDEVICEPROP 219 FONTDEVICEPROP 201 FONTEXISTS? 138 FONTEXISTS? 69 FONTEXISTS?)
(229 CHARCOERCIONS 224 DISPLAY 214 FONTCOERCIONS 209 DISPLAY 167 REGULAR 149 COMPRESSED 100 REGULAR 84 ITALIC 28 MEDIUM 14 BOLD)
()
STRIKEFONT.FILEPA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FILE F 1 SI::*RESETFORMS*) APg
ｳ!oPgg chQcｿP 甕 ﾘo
ｴi(59 MEMB 33 OPENSTREAM 10 OPENP)
(28 OLD 23 INPUT 5 INPUT)
( 54 (32768 40960) 17 (PROGN (CLOSEF? OLDVALUE)))
STRIKEFONT.FILEP :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 FILE F 3 LISPXHIST) S!g ｿ$(23 SI::RESETUNWIND 18 \MVLIST 13 STRIKEFONT.FILEPA0001)
(8 SI::RESETUNWIND)
()
STRIKEFONT.GETCHARSETA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 19 STRM F 20 SI::*RESETFORMS*) bW&gi ｳ#oW&gg c&hW(c(ｿW&j
W& ｬoW&
ｿW& l<02>W&l
ｿ<11>`dn<64><6E>ﾍｿl<EFBDBF>lﾘkﾘ<6B> _ｿdOｿl<EFBDBF>lﾘkﾘ<6B> _ｿdOｿXW& 畍& ﾘ]W& 畍& ﾘ^W& 畍& ﾘW& 畍& ﾘHW& 畍& ﾘﾍ
HW& 畍& ﾘﾍ W& 畍& ﾘW& 畍& ﾘZHﾈ
dn<EFBFBD><EFBFBD>n<EFBFBD><EFBFBD>ﾙkﾙHﾈ dn<6E><7F>n<EFBFBD><6E>ﾙkﾙﾘ_J珥珥O
[W&KﾉJOﾚ<>O ﾉ
ﾉ>_ｿO O"jO$lOHKNkﾘMﾙYHﾉ\l<>lﾘj_ｿ_ｿOO<18>LOﾐjﾍｿOkﾔ_ｰ琇MkO$O <20> LO"ﾐW& 畍& ﾘﾍｿO"kﾔ_"ｿO$kﾔ_$ｰﾟl<>jW& 畍& ﾘO"O <20>#LO"ﾐﾈj<>O"dM<64>ｿLO"ﾐO$ﾍｿO"kﾔ_"ｰﾜLnﾐO$ﾍｿLnkﾘﾐW& 畍& ﾘﾍHﾉ_l<>lﾘj_ｿ_ｿOO<1C>OOﾐjﾍｿOkﾔ_ｰ<>jn HHﾉH(590 \FONTRESETCHARWIDTHS 299 BITMAPCREATE 151 \ALLOCBLOCK 129 \ALLOCBLOCK 96 SETFILEPTR 83 GETFILEPTR 75 ERROR 62 STRIKEFONT.FILEP 55 SETFILEPTR 36 OPENSTREAM 12 \GETSTREAM)
(602 CHARSETINFO 596 CHARSETINFO 540 CHARSETINFO 371 CHARSETINFO 356 CHARSETINFO 332 FDEV 325 STREAM 308 BITMAP 270 CHARSETINFO 250 CHARSETINFO 217 CHARSETINFO 201 CHARSETINFO 108 |CHARSETINFOTYPE#| 31 OLD 26 INPUT 6 INPUT)
( 68 "Not a STRIKE font file" 19 (PROGN (CLOSEF? OLDVALUE)))
STRIKEFONT.GETCHARSET :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 STRM F 3 LISPXHIST) S!g ｿ$(23 SI::RESETUNWIND 18 \MVLIST 13 STRIKEFONT.GETCHARSETA0001)
(8 SI::RESETUNWIND)
()
WRITESTRIKEFONTFILE :D8
(L (2 FILE 1 CHARSET 0 FONT)) ﾝ@ ｨ@l
ｿA｣jbｿjA<6A>Al<41><6C>Al
ｿ<11><11>@ﾉA獎ﾉｵ#@ﾉA漓@
O0O2ﾐO4ｿO4YdｵoA
ｿIﾉ\Iﾉ_dnﾐﾈ_l<>j_ｿ_ｿOO<14>OOOﾐﾈ<00>Oｵ
i<EFBFBD>kﾔ_ｰ臧Zjl<6A>_ｿ_ｿOO<1A>OOOﾐﾈ<00>Oｵi外m<>ﾔ_ｿｰ濾[Bggo Xdl€
ｿHj
HJ<48>
ｿHJl<4A><6C>
HK<48>
ｿHKl<4B><6C>
j]nj_ ｿ_ｿO O<1E>MLO ﾐﾈ_ｿdO<1C>ｿOｽO kﾔ_ ｰ礬M<E7A4AC>
ｿHMl<4D><6C>
Iﾉﾈ_lKJﾙﾘ@ﾈ
Oﾚﾘ^HN<48>
ｿHNl<4E><6C>
HIﾈ
_$ｿ_"O$<24>
ｿO"O$l<><6C>
ｿHIﾈ _(ｿ_&O(<28>
ｿO&O(l<><6C>
ｿHj
ｿHj
HO<0E>
ｿHOl<><6C>
HIﾉﾉlOﾚIﾈ
Iﾈ ﾘﾚO0ﾉ
ﾉ@_*ｿO0O2jO4lO*KJjHO4<4F>
ｿHO4l<34><6C>
ｿO2O0<4F>7OOO2ﾐﾈ<00>O4LO2ﾐﾈﾔ_4ｿHO4<4F>
ｿHO4l<34><6C>
ｿO2kﾔ_2ｰﾈHO4Lnﾐﾈﾘ_.ｿ_,O.<2E>
ｿO,O.l<><6C>
H (730 CLOSEF 723 \BOUT 710 \BOUT 677 \BOUT 665 \BOUT 625 \BOUT 613 \BOUT 524 \BOUT 512 \BOUT 503 \BOUT 495 \BOUT 487 \BOUT 474 \BOUT 451 \BOUT 438 \BOUT 416 \BOUT 405 \BOUT 361 \BOUT 350 \BOUT 296 \BOUT 285 \BOUT 277 \BOUT 266 \BOUT 258 \BOUT 250 \BOUT 241 OPENSTREAM 103 ERROR 72 \CREATECHARSET 38 \LISPERROR 14 \LISPERROR 5 FONTP)
(580 FDEV 573 STREAM 559 CHARSETINFO 551 CHARSETINFO 538 BITMAP 531 CHARSETINFO 459 CHARSETINFO 423 CHARSETINFO 390 FONTDESCRIPTOR 374 BITMAP 367 CHARSETINFO 231 NEW 226 OUTPUT 119 CHARSETINFO 110 CHARSETINFO 61 FONTDESCRIPTOR)
( 236 ((TYPE BINARY)) 97 "Couldn't find charset ")
STRIKECSINFO :D8
(L (0 CSINFO)) ﾝ<11><11>@ﾉX@ﾉZHJ<48>@@ﾉY@ﾉ[Inﾐﾈ_K ]l<>jdO2O0<4F>6O4OIO2ﾐﾈﾙj<EFBE99>jｰJO2ﾐﾈHO2ﾐﾈ_ｿdO<18>ｿOﾔ_4ｿO2kﾔ_2ｰﾉO4\l<>lﾘkﾘ<6B> _l<>lﾘj_ｿ_ｿOO<1A>OOﾐjﾍｿOkﾔ_ｰ<>l<>kﾘﾐLﾍLMk ^j_l<>j_"ｿ_ ｿO"O <20>lIO"ﾐﾈ_ｿOOﾙj<EFBE99>OO"ﾐLﾍｰHOO"ﾐOﾍｿJO"ﾐﾈHO"ﾐﾈ_ｿdO<1E>ｿO_ｿKOjNOjJO"ﾐﾈMg
ｿOOﾘ_ｿO"kﾔ_"ｰ滴 Xl<58>j_(ｿ_&ｿO(O&<26>(HO(ﾐHO(ﾐﾈJO(ﾐﾈ_$ｿdO$<24>ｿO$ﾍｿO(kﾔ_(ｰﾗ`dHｿdOｿdHｿdNｿ@ﾉ_*ｿdO*ｿ@ﾈ
_,ｿdO,ﾍ
ｿ@ﾈ _.ｿdO.ﾍ ｿdn<64><6E>ﾍｿ(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)
()
MAKEBOLD.CHARSET :D8
(L (2 FONT 1 CHARSET 0 FONTSPEC)) <00>@@g@@@@@@ Hdｲ|ﾉA獎ﾉYdｲqﾊj<>eBHﾉBHﾉI YBﾉA獎IA疝<41>腆瓧g
ｿKdJ<64>Ikﾏｿkj<6B><6A>B
ｲ@AK \ｲKL
KB <00>B
ｿKkﾔ[ｰｹ(231 MAKEBOLD.CHAR 223 \MOVEFONTCHAR 216 \MOVEFONTCHARS.SOURCEDATA 205 \COERCECHARSET 195 SLUGCHARP.DISPLAY 160 FONTDEVICEPROP 127 COPYALL 59 FONTCREATE1)
(177 CHARSETINFO 155 CHARCOERCIONS 134 FONTDESCRIPTOR 117 FONTDESCRIPTOR 111 FONTDESCRIPTOR 101 FONTDESCRIPTOR 95 FONTDESCRIPTOR 82 CHARSETINFO 9 MEDIUM)
()
MAKEBOLD.CHAR :D8
(L (1 FONT 0 CODE)) <00>@A
蝶機l<E6A99F><6C>QAﾉ@聰ﾐﾉｹHI
ZﾈkﾘJﾈ
ｻIﾉHﾐﾈｼIﾈ
Iﾈ ﾘｽJjdKjdLMgg
JjdKkjLMgg
HIK h(145 \PUTCHARBITMAP.CSINFO 137 BKBITBLT 113 BKBITBLT 57 BITMAPCREATE 34 \GETCHARBITMAP.CSINFO 6 SLUGCHARP.DISPLAY)
(131 PAINT 126 INPUT 107 REPLACE 102 INPUT 85 CHARSETINFO 77 CHARSETINFO 64 CHARSETINFO 50 BITMAP 40 BITMAP)
()
MAKEITALIC.CHARSET :D8
(L (2 FONT 1 CHARSET 0 FONTSPEC)) <00>@@@g@@@@@ Hdｲ|ﾉA獎ﾉYdｲqﾊj<>eBHﾉBHﾉI YBﾉA獎IA疝<41>腆瓧g
ｿKdJ<64>Ikﾏｿkj<6B><6A>B
ｲ@AK \ｲKL
KB <00>B
ｿKkﾔ[ｰｹ(230 MAKEITALIC.CHAR 222 \MOVEFONTCHAR 215 \MOVEFONTCHARS.SOURCEDATA 204 \COERCECHARSET 194 SLUGCHARP.DISPLAY 159 FONTDEVICEPROP 126 COPYALL 58 FONTCREATE1)
(176 CHARSETINFO 154 CHARCOERCIONS 133 FONTDESCRIPTOR 116 FONTDESCRIPTOR 110 FONTDESCRIPTOR 100 FONTDESCRIPTOR 94 FONTDESCRIPTOR 81 CHARSETINFO 14 REGULAR)
()
MAKEITALIC.CHAR :D8
(L (1 FONT 0 CODE)) @A
蝶@l<><6C>ｱ Aﾉ@聰ﾐﾉｹHI
ZﾈJﾈ
ｻIﾉHﾐﾈｼIﾈ
ｽIﾈ ｾMNﾘ_ｿMlﾘlﾛjNlﾘlﾛﾙBOO<18>HIK LOdj<64>ｿj_ｿdO<10>ｿO_ｿLdOﾘdj<64>ｿj_ｿdO<12>ｿO_ｿNOlﾚﾘ_ｿjO<14>O€j_ ｿONOkﾘlﾚﾘ_ｿdO<16>ｿO_"ｿOO<1E>-O"O <20>&JjO KOO OOﾙO"O ﾙgg
ｿOkﾔ_ｱ<>[h(272 BKBITBLT 127 \PUTCHARBITMAP.CSINFO 55 BITMAPCREATE 34 \GETCHARBITMAP.CSINFO 6 SLUGCHARP.DISPLAY)
(266 REPLACE 261 INPUT 84 CHARSETINFO 75 CHARSETINFO 62 CHARSETINFO 48 BITMAP 40 BITMAP)
()
\SFMAKEBOLD :D8
(L (0 CSINFO)) <00>
@ﾉ@ﾉ@ﾉ@ﾈ
@ﾈ ﾘd HﾈHﾈ
\Jnﾐﾈ^Inﾐﾈ_l<>j_ｿ_ｿOO<10>,HNjLNjOKgg
`@
dLｿNJOﾐﾈ]<5D>BHMjLMjIOﾐﾈKgg
ｿHMjLMkﾘjIOﾐﾈkﾙKgg
ｿOkﾔ_ｱ<>€(214 BKBITBLT 180 BKBITBLT 134 NCREATE2 123 BKBITBLT 64 BITMAPCREATE)
(208 PAINT 203 INPUT 174 REPLACE 169 INPUT 128 |CHARSETINFOTYPE#| 117 REPLACE 112 INPUT 57 BITMAP 49 BITMAP 37 CHARSETINFO 29 CHARSETINFO 21 CHARSETINFO 13 CHARSETINFO 5 CHARSETINFO)
()
\SFMAKEITALIC :D8
(L (0 CSINFO)) <01>@ﾉ@ﾉ@ﾈ
@ﾈ @ﾉ<11>`JKﾘ]LﾈLﾈ
_Il<49>kﾘﾐﾈ_Hl<48>kﾘﾐﾈ_jKlﾘlﾛﾙ_Jlﾘlﾛ_l<>j_2ｿ_0ｿO2O0<4F>0LOjOOjOMgg
`@
dOｿOIO2ﾐﾈ^<5E>ｱﾂHO2ﾐﾈ_ｿOO_.ｿ_,ｿO.O,<2C>ｱｦNOﾘ_NO.ﾘdj<64>ｿj_$ｿdO$<24>ｿO$_ｿOdO.ﾘdj<64>ｿj_&ｿdO&<26>ｿO&_ｿKO.lﾚﾘ_(ｿjO(<28>O(€j_ ｿMKO.lﾚlﾘﾘ_*ｿdO*<2A>ｿO*_"ｿOO<1C>.O"O <20>'LNO OOO OOﾙO"O ﾙgg
ｿO.kﾔ_.ｱ<>YO2kﾔ_2ｱ<32><EFBDB1>(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<64>@dlZ<6C>ｿ@ lｴ<6C>@ An<0E>@ (48 ROTATE-BITMAP 34 ROTATE-BITMAP 29 ROTATE-BITMAP 18 ROTATE-BITMAP-LEFT)
NIL
()
\SFROTATECSINFOOFFSETS :D8
(L (1 ROTATION 0 CSINFO)) cAn<0E>T@ﾉ@ﾉ@ﾉ 3l<>lﾘkﾘ<6B> [l<>jｽｼML<4D>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舛<> bAC
bBC
b@ﾉABC X`@
dHｿ(103 NCREATE2 91 COLORIZEBITMAP 73 COLORNUMBERP 64 COLORNUMBERP 55 \DISPLAYSTREAMTYPEBPP 42 IMAGESTREAMTYPE 33 DSPCOLOR 21 DSPBACKCOLOR 9 IMAGESTREAMP)
(97 |CHARSETINFOTYPE#| 81 CHARSETINFO)
()
(RPAQ? DISPLAYFONTDIRECTORIES NIL)
(ADDTOVAR DISPLAYCHARSETFNS (STRIKE STRIKEFONT.FILEP STRIKEFONT.GETCHARSET))
(ADDTOVAR DISPLAYFONTEXTENSIONS MEDLEYDISPLAYFONT DISPLAYFONT)
(RPAQ? DISPLAYFONTCOERCIONS (QUOTE (((HELVETICA (<= * 2)) (HELVETICA 4)) ((MODERN (<= 15 * 16)) (* 14)
) ((MODERN (<= 17 * 21)) (* 18)) ((MODERN (<= 22 * 28)) (* 24)) ((MODERN (<= 29 * 33)) (* 30)) ((
MODERN (<= 34 * 40)) (* 36)) ((MODERN (<= 41 * 65)) (* 48)) ((MODERN (<= 66 *)) (* 72)) ((PALATINO 9)
(PALATINO 12)) ((PALATINO (<= * 8)) (PALATINO 10)) ((TITAN (<= * 9) BOLD) (MODERN 10)) ((TITAN (<= * 9
) ITALIC) (MODERN 10)) ((TITAN (<= * 9)) (TITAN 10)) (LPT AMTEX))))
(RPAQ? DISPLAYCHARCOERCIONS (QUOTE ((GACHA TERMINAL) (MODERN CLASSIC) (TIMESROMAN CLASSIC) (HELVETICA
MODERN) (TERMINAL MODERN) (HIPPO CLASSIC) (CYRILLIC CLASSIC) (MATH CLASSIC) (SIGMA MODERN) (SYMBOL
MODERN) (TITAN CLASSIC) (PALATINO CLASSIC) (OPTIMA MODERN) (BOLDPS CLASSIC) (PCTERMINAL CLASSIC) (
TITANLEGAL CLASSIC))))
(RPAQ? \DEFAULTCHARSET 0)
(RPAQ? ADOBEDISPLAYFONTCOERCIONS (QUOTE (((HELVETICABLACK 16) (HELVETICABLACK 18)) ((SYMBOL) (
ADOBESYMBOL)) ((SYMBOL 11) (ADOBESYMBOL 10)) ((AVANTGARDE-DEMI) (AVANTGARDE)) ((AVANTGARDE-BOOK) (
AVANTGARDE)) ((NEWCENTURYSCHLBK) (CENTURYSCHOOLBOOK)) ((BOOKMAN-LIGHT) (BOOKMAN)) ((BOOKMAN-DEMI) (
BOOKMAN)) ((HELVETICA-NARROW) (HELVETICANARROW)) ((HELVETICA 24) (ADOBEHELVETICA 24)))))
(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))))
NIL
Reference in New Issue View Git Blame Copy Permalink