github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-07 14:43:54 +00:00
Code Issues Projects Releases Wiki Activity
Files
ef0d25239b6fc7277242a9028fe9758b4292bf88
Interlisp.medley/sources/MCCSFONTS.LCOM

315 lines
24 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 " 9-Mar-2026 22:08:30" ("compiled on " {WMEDLEY}<sources>MCCSFONTS.;132)
" 7-Mar-2026 16:13:28" brecompiled exprs%: nothing in "FULL 7-Mar-2026 ..." dated
" 7-Mar-2026 16:13:37")
(FILECREATED " 9-Mar-2026 22:08:29" {WMEDLEY}<sources>MCCSFONTS.;132 53474 :EDIT-BY rmk :CHANGES-TO (
VARS MCCSFONTSCOMS) :PREVIOUS-DATE " 9-Mar-2026 12:34:44" {WMEDLEY}<sources>MCCSFONTS.;129)
DISPLAYENCODINGFN :D8
(L (0 FONTSPEC) F 1 MCCSFONTFAMILIES F 2 NSFONTFAMILIES F 3 ALTOFONTFAMILIES) I@HdQ
•gdR
•gS
•gHdgð²ê¿@lð²Üg(39 MEMB 26 MEMB 12 MEMB)
(70 TITAN 53 TITAN 45 ALTOTEXT 32 XCCS$ 18 MCCS)
()
MCCSCODEMAPARRAY :D8
(P 9 VAL P 8 DEST P 6 DEST P 5 SOURCE P 4 PAIR I 1 INVERT I 0 MAP)  @aHµ8IblÿjOdOó¢±”@i

A¢±²@ _¿@±›\²aLdgð³U^ ¦N ¾L]d£h°-²M ³"M²M MhŒM ¦M ½NMh»JµKhZY¿HX±ÿ`K&Z°ö@ªOdh@b¿OkÔ_±ÿSd_OO ¿µí°lÿkØhdjd
_¿@!KµO\d£d‘h] šOML ¿K[°Ù(275 SETA 264 CHARCODEP 232 ARRAY 211 PUTHASH 145 CHARCODE.DECODE 138 CHARCODEP 125 CHARCODE.DECODE 112 CHARCODEP 91 CHARCODE.DECODE 84 CHARCODEP 54 HASHARRAY 49 LENGTH 35 SORT)
(74 *)
()
MCCSMAPFN :D8
(L (0 FROMENCODING) F 0 NSFONTFAMILIES F 1 ALTOFONTFAMILIES) ¼@d’bP
•gŽ@dQ
—¿gbgð•g@dgð•ggð•g@dgð•ggð•g@dgð•ggð•g@dgð•ggð•g@dgð•ggð´h(27 MEMB 12 MEMB)
(181 MCCS 175 PALATINOTOMCODE 168 PALATINO 160 GACHATOMCODE 153 GACHA 147 XTOMCODE 140 XCCS 132 CYRILLICTOMCODE 125 CYRILLIC 119 HIPPOTOMCODE 112 HIPPO 104 MATHTOMCODE 97 MATH 91 SIGMATOMCODE 84 SIGMA 76 SYMBOLTOMCODE 69 SYMBOL 63 ATOMCODE 56 ALTOTEXT 48 X$TOMCODE 41 XCCS$ 34 ALTOTEXT 18 XCCS$)
()
MCCSMAPPAIRS :D8
(P 24 SCODE P 23 SOURCE P 22 DEST P 21 P P 16 SOURCE P 15 P P 10 DEST P 8 FN P 7 M P 3 C P 1 KEEPCS0 P 0 PAIRS I 1 NOIDENTITY I 0 FROMENCODING F 25 ALTOTEXTTOMCCS F 26 TITANTOMCCS F 27 PALATINOTOMCCS F 28 TITANLEGALTOMCCS F 29 *MCCSTOUNICODE*) ç @dgð<>¿o ±«dgðš¿W2 ±˜gð™W4 ±‡@dgð™¿W8 °sgð›o °`@dgð”¿W:°Rgð˜W6 °Bi¹lÿjR@ _¢h°-KJó³'KAlO_µŒKh¾Mµ
Nh]¼KkÔ[°ÞN&½°÷LXdd²6¿A®lÿj
OdOó²&HQOµ0OXdqO"µ‚±—O$
H¨OdhH¸OkÔ_°Ä_²dOdgð³W_ ¿O µ
O O d² “O ‡O  O <1A> µ O h_¿OµOh__¿O_±ÿbO&_°ò_*_,¿O*_.d£d‘h_0²7I–O0lÿñ².O.™O.d3@ð³ O0H³O,hhh_(¿O&µO(h_&_$¿O"_"±ÿO(&_&¿°ò(357 CHARCODE.DECODE 348 CHARCODEP 338 CHARCODE.DECODE 325 CHARCODEP 313 CHARCODE.DECODE 303 CHARCODEP 251 \APPEND2 143 MCCSMAPFN 127 XCCSUNDEFINEDPAIRS 97 XCCS.CS0.UNDEFINED 78 XCCSUNDEFINEDPAIRS 58 XCCSUNDEFINEDPAIRS 41 XCCSUNDEFINEDPAIRS 22 XCCSUNDEFINEDPAIRS)
(287 * 118 PALATINO 106 UNICODE 85 XCCS$ 68 TITANLEGAL 49 TITAN 31 ALTOTEXT 9 GACHA)
( 92 ((Circumflex Uparrow) (Uparrow Circumflex) (Lowline Leftarrow) (Leftarrow Lowline)) 17 ((Lowline ↑X)))
XCCS.CS0.UNDEFINED :D8
(P 6 I P 4 P I 0 ADDITIONS) î
@AHµ3Ibdlj2 NdMó´j¿OlŸl€2 NdMó´{¿O0o±¢\²;Ldgð³/ µ L L µ
L h»Jµ
KhZY¿HX°‹K&Z°÷d_¿OµOh__¿NkÔ^±ÿ|O&_¿°ód_¿OµOh__¿NkÔ^±ÿkO&_¿°ódhd¸IµHhZ<>H&¹µìJ
(235 \APPEND2 230 \APPEND2 225 \APPEND2 105 CHARCODE.DECODE 95 CHARCODEP 87 CHARCODE.DECODE 78 CHARCODEP)
(69 *)
( 53 (127 166 168 192 233 214 215 216 217 218 219 255))
XCCSUNDEFINEDPAIRS :D8
(P 2 I P 0 PAIRS I 0 ADDITIONS) (@ !lÿl€º¹JIó‘HJH§JhdH¸JkÔZ°ë(5 XCCS.CS0.UNDEFINED)
NIL
()
GACHATOMCODE :D8
(L (0 GCODE)) @lÿñ«`@
€hµ@(15 ELT)
(9 GACHATOMCCSARRAY)
()
SYMBOLTOMCODE :D8
(L (0 SCODE)) @lÿñ«`@
€hµ@(15 ELT)
(9 SYMBOLTOMCCSARRAY)
()
SIGMATOMCODE :D8
(L (0 SCODE)) @lÿñ«`@
€hµ@(15 ELT)
(9 SIGMATOMCCSARRAY)
()
ATOMCODE :D8
(L (0 ACODE)) @lÿñ«`@
€hµ@(15 ELT)
(9 ALTOTOMCCSARRAY)
()
MATHTOMCODE :D8
(L (0 MATHCODE)) @lÿñ«`@
€hµ@(15 ELT)
(9 MATHTOMCCSARRAY)
()
HIPPOTOMCODE :D8
(L (0 HCODE)) @lÿñ«`@
€hµ@(15 ELT)
(9 HIPPOTOMCCSARRAY)
()
CYRILLICTOMCODE :D8
(L (0 CCODE)) @lÿñ«`@
€hµ@(15 ELT)
(9 CYRILLICTOMCCSARRAY)
()
PALATINOTOMCODE :D8
(L (0 PCODE)) @lÿñ«`@
€hµ@(15 ELT)
(9 PALATINOTOMCCSARRAY)
()
TITANTOMCODE :D8
(L (0 TCODE)) @lÿñ«`@
€hµ@(15 ELT)
(9 TITANTOMCCSARRAY)
()
TITANLEGALTOMCODE :D8
(L (0 TCODE)) @lÿñ«`@
€hµ@(15 ELT)
(9 TITANLEGALTOMCCSARRAY)
()
(PRETTYCOMPRINT MCCSFONTSCOMS)
(RPAQQ MCCSFONTSCOMS ((VARS NSFONTFAMILIES ALTOFONTFAMILIES) (INITVARS MCCSFONTFAMILIES) (FNS
DISPLAYENCODINGFN) (COMS (* ; " Mapping to MCCS") (FNS MCCSCODEMAPARRAY MCCSMAPFN MCCSMAPPAIRS
XCCS.CS0.UNDEFINED XCCSUNDEFINEDPAIRS) (VARS ALTOTEXTTOMCCS SYMBOLTOMCCS SIGMATOMCCS HIPPOTOMCCS
CYRILLICTOMCCS MATHTOMCCS PALATINOTOMCCS TITANTOMCCS TITANLEGALTOMCCS) (GLOBALVARS GACHATOMCCSARRAY
ALTOTOMCCSARRAY SYMBOLTOMCCSARRAY HIPPOTOMCCSARRAY CYRILLICTOMCCSARRAY MATHTOMCCSARRAY
SIGMATOMCCSARRAY PALATINOTOMCCSARRAY TITANTOMCCSARRAY TITANLEGALTOMCCSARRAY) (* ;;
"For translation of codes in datastructures (e.g. Tedit)") (INITVARS (GACHATOMCCSARRAY (
MCCSCODEMAPARRAY (XCCSUNDEFINEDPAIRS (QUOTE ((Lowline ↑X)))))) (ALTOTOMCCSARRAY (MCCSCODEMAPARRAY
ALTOTEXTTOMCCS)) (SYMBOLTOMCCSARRAY (MCCSCODEMAPARRAY SYMBOLTOMCCS)) (HIPPOTOMCCSARRAY (
MCCSCODEMAPARRAY HIPPOTOMCCS)) (CYRILLICTOMCCSARRAY (MCCSCODEMAPARRAY CYRILLICTOMCCS)) (
MATHTOMCCSARRAY (MCCSCODEMAPARRAY MATHTOMCCS)) (SIGMATOMCCSARRAY (MCCSCODEMAPARRAY SIGMATOMCCS)) (
PALATINOTOMCCSARRAY (MCCSCODEMAPARRAY PALATINOTOMCCS)) (TITANTOMCCSARRAY (MCCSCODEMAPARRAY (
XCCSUNDEFINEDPAIRS TITANTOMCCS))) (TITANLEGALTOMCCSARRAY (MCCSCODEMAPARRAY (XCCSUNDEFINEDPAIRS
TITANLEGALTOMCCS)))) (COMS (* ;;
"Mappings into MCCS: needed for e.g. Tedit coercion. \TEDIT.MCCS.TRANSLATE") (FNS GACHATOMCODE
SYMBOLTOMCODE SIGMATOMCODE ATOMCODE MATHTOMCODE HIPPOTOMCODE CYRILLICTOMCODE PALATINOTOMCODE
TITANTOMCODE TITANLEGALTOMCODE)) (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))))) (* ;; "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)))))))))
(RPAQQ NSFONTFAMILIES (CLASSIC CLASSICTHIN MODERN TERMINAL OPTIMA BOLDPS PCTERMINAL))
(RPAQQ ALTOFONTFAMILIES (TIMESROMAN TIMESROMAND HELVETICA HELVETICAD CLARITY BRAVOX TONTO CREAM
OLDENGLISH))
(RPAQ? MCCSFONTFAMILIES NIL)
(RPAQQ ALTOTEXTTOMCCS ((* ;; "From bravo doc") ("356,055" ↑N MINUS) ("357,44" ↑V ENDASH) (EMDASH ↑S) (
EMQUAD ↑O) ("356,055" ↑X MINUS) (FIGURESPACE ↑Y ENQUAD) (* ;; "Fom current Helvetica/Timesroman fonts"
) ("0,317" "0,1" HACHEK) ("361,255" "0,3" DIARESIS) ("0,310" "0,4" CCEDILLA) ("0,301" "0,5" GRAVE) (
"360,41" "0,6" ff) ("0,271" "0,7" LSQ) ("0,241" "0,10" SPANISHEXCL) ("0,302" "0,13" ACUTE) ("0,304"
"0,20" TILDE) ("360,42" "0,21" ffi) ("360,43" "0,22" ffl) ("360,44" "0,24" fi) ("360,45" "0,25" fl) (
"357,44" "0,26" ENDASH) ("0,306" "0,27" BREVE) (ENQUAD "0,34") ("0,304" "0,36" TILDE) ("0,251" "0,140"
) ("361,47" "0,200" A-umlaut) ("361,124" "0,201" O-umlaut) ("361,47" "0,202" A-ring) ("357,44" "0,233"
ENDASH) (EMDASH "0,234") ("361,247" "0,240" a-umlaut) ("361,324" "0,241" o-umlaut) ("361,250" "0,242"
a-ring) ("361,345" "0,243" u-umlaut) (Circumflex "0,254") ("0,242" "0,260" CENTS) ("0,243" "0,261"
POUND) ("41,172" "0,265" STAR) ("0,247" "0,266" SECTION) ("357,146" "0,267" BULLET) ("357,60" "0,270"
DAGGER) ("357,061" "0,271" DOUBLEDAGGER) ("0,266" "0,272" PARAGRAPH) ("0,261" "0,274" PLUSMINUS) (
"0,241" "0,275" SPANISHEXCL) ("0,277" "0,276" SPANISHQUES) (Lowline "0,277")))
(RPAQQ SYMBOLTOMCCS ((Null "0,1") ("0,264" "0,2") ("41,142" "0,3") (Null "0,4") ("41,176" "0,5") (
"0,261" "0,6") ("357,175" Bell) ("357,142" Backspace) ("357,143" Tab) ("357,144" Linefeed) ("357,145"
"0,13") (Null Page) ("0,270" Newline) (Null "0,16") (Null "0,17") ("357,160" "0,20") ("357,162" "0,21"
) ("357,131" "0,22") ("357,130" "0,23") ("41,145" "0,24") ("41,146" "0,25") (Null "0,26") (Null "0,27"
) ("356,176" "0,30") ("357,171" "0,31") ("357,133" "0,32") ("357,132" Escape) ("41,142" "0,34") (
"357,163" "0,35") (Null "0,36") (Null Tenexeol) (Null Space) ("0,256" "0,41") (Circumflex "0,42") (
"0,257" "0,43") ("357,122" Dollar) ("357,102" "0,45") ("357,103" "0,46") ("357,167" "0,47") ("357,115"
"0,50") ("357,117" "0,51") (Null "0,52") (Null "0,53") ("357,116" "0,54") (Null "0,55") (Null "0,56")
(Null "0,57") (Null Zero) (INFINITY One) ("357,112" Two) ("357,113" Three) ("357,141" Four) (Null
Five) ("357,154" Six) (Lowline Seven) ("357,265" Eight) ("357,264" Nine) ("357,152" "0,72") ("357,247"
"0,73") (Null "0,74") (Null "0,75") (Null "0,76") ("0,57" "0,77") (Null "0,100") ("357,127" "0,133")
("357,126" "0,134") (Null "0,135") ("357,266" Uparrow) ("357,267" Leftarrow) ("357,66" "0,140") (
"357,67" "0,141") ("357,262" "0,142") ("357,263" "0,143") ("357,260" "0,144") ("357,261" "0,145") (
"0,173" "0,146") ("0,175" "0,147") ("357,62" "0,150") ("357,63" "0,151") ("356,174" "0,152") ("41,102"
"0,153") ("357,73" "0,154") ("357,72" "0,155") ("42,44" "0,156") ("42,46" "0,157") ("357,174" "0,160"
) ("41,142" "0,161") (Null "0,162") ("357,165" "0,163") (Null "0,164") (Null "0,165") (Null "0,166") (
Null "0,167") ("0,247" "0,170") ("357,60" "0,171") ("357,61" "0,172") ("0,266" "0,173") ("0,100"
"0,174") ("0,323" "0,175") ("0,243" "0,176") (Dollar Rubout) (Null "0,200") (Null "0,201") (Null
"0,202") (Null "0,203") (Null "0,204") (Null "0,205") (Null "0,206") (Null "0,207") (Null "0,210") (
Null "0,211") (Null "0,212") (Null "0,213") (Null "0,214") (Null "0,215") (Null "0,216") (Null "0,217"
) (Null "0,220") (Null "0,221") (Null "0,222") (Null "0,223") (Null "0,224") (Null "0,225") (Null
"0,226") (Null "0,227") (Null "0,230") (Null "0,231") (Null "0,232") (Null "0,233") (Null "0,234") (
Null "0,235") (Null "0,236") (Null "0,237") (Null "0,240") (Null "0,241") (Null "0,242") (Null "0,243"
) (Null Currency) (Null "0,245") (Null "0,246") (Null "0,247") (Null "0,250") (Null "0,251") (Null
LEFT-DOUBLEQUOTE) (Null "0,253") (Null Lowline) (Null Circumflex) (Null "0,256") (Null "0,257") (Null
"0,260") (Null "0,261") (Null "0,262") (Null "0,263") (Null "0,264") (Null "0,265") (Null "0,266") (
Null "0,267") (Null "0,270") (Null "0,271") (Null RIGHT-DOUBLEQUOTE) (Null "0,273") (Null "0,274") (
Null "0,275") (Null "0,276") (Null "0,277") (Null "0,300") (Null "0,301") (Null "0,302") (Null "0,303"
) (Null "0,304") (Null "0,305") (Null "0,306") (Null "0,307") (Null "0,310") (Null "0,311") (Null
"0,312") (Null "0,313") (Null "0,314") (Null "0,315") (Null "0,316") (Null "0,317") (Null "0,320") (
Null "0,321") (Null "0,322") (Null "0,323") (Null "0,324") (Null "0,325") (Null "0,326") (Null "0,327"
) (Null "0,330") (Null "0,331") (Null "0,332") (Null "0,333") (Null "0,334") (Null "0,335") (Null
"0,336") (Null "0,337") (Null "0,340") (Null "0,341") (Null "0,342") (Null "0,343") (Null "0,344") (
Null "0,345") (Null "0,346") (Null "0,347") (Null "0,350") (Null "0,351") (Null "0,352") (Null "0,353"
) (Null "0,354") (Null "0,355") (Null "0,356") (Null "0,357") (Null "0,360") (Null "0,361") (Null
"0,362") (Null "0,363") (Null "0,364") (Null "0,365") (Null "0,366") (Null "0,367") (Null "0,370") (
Null "0,371") (Null "0,372") (Null "0,373") (Null "0,374") (Null "0,375") (Null "0,376") (Null "0,377"
)))
(RPAQQ SIGMATOMCCS (("0,101" "0,101" low squaredot not in XCCS) ("357,166" "0,103" contourintegral) (
"357,126" "0,111" intersection) ("357,266" "0,114" and) ("357,172" "0,115" Summation) ("357,173"
"0,120" Product) ("357,174" "0,122" radical) ("357,165" "0,123" integral) ("357,127" "0,125" union) (
"357,267" "0,126" or)))
(RPAQQ HIPPOTOMCCS (("356,55" "0,16") (EMQUAD "0,17") (EMDASH "0,23") ("357,44" "0,26") ("356,55"
"0,30") (ENQUAD "0,31") ("Greek,101" "0,101") ("Greek,102" "0,102") ("Greek,121" "0,103") ("Greek,105"
"0,104") ("Greek,106" "0,105") ("Greek,132" "0,106") ("Greek,104" "0,107") ("Greek,112" "0,110") (
"Greek,114" "0,111") ("Greek,115" "0,113") ("Greek,116" "0,114") ("Greek,117" "0,115") ("Greek,120"
"0,116") ("Greek,122" "0,117") ("Greek,123" "0,120") ("Greek,113" "0,121") ("Greek,125" "0,122") (
"Greek,126" "0,123") ("Greek,130" "0,124") ("Greek,131" "0,125") ("Greek,135" "0,127") ("Greek,133"
"0,130") ("Greek,134" "0,131") ("Greek,111" "0,132") ("Greek,141" "0,141") ("Greek,142" "0,142") (
"Greek,161" "0,143") ("Greek,145" "0,144") ("Greek,146" "0,145") ("Greek,172" "0,146") ("Greek,144"
"0,147") ("Greek,152" "0,150") ("Greek,154" "0,151") ("Greek,155" "0,153") ("Greek,156" "0,154") (
"Greek,157" "0,155") ("Greek,160" "0,156") ("Greek,162" "0,157") ("Greek,163" "0,160") ("Greek,153"
"0,161") ("Greek,165" "0,162") ("Greek,166" "0,163") ("Greek,170" "0,164") ("Greek,171" "0,165") (
"Greek,175" "0,167") ("Greek,173" "0,170") ("Greek,174" "0,171") ("Greek,151" "0,172") ("357,44"
"0,233") (EMDASH "0,234") ("357,146" "0,267")))
(RPAQQ CYRILLICTOMCCS (("Cyrillic,47" Dollar) ("Cyrillic,71" "0,52") ("41,76" "0,55") ("Cyrillic,157"
Two) ("Cyrillic,127" Four) ("Cyrillic,150" Six) ("Cyrillic,151" Eight) ("0,253" "0,74") ("0,273"
"0,76") ("Cyrillic,77" "0,100") ("Cyrillic,41" "0,101") ("Cyrillic,42" "0,102") ("Cyrillic,76" "0,103"
) ("Cyrillic,45" "0,104") ("Cyrillic,46" "0,105") ("Cyrillic,66" "0,106") ("Cyrillic,44" "0,107") (
"Cyrillic,101" "0,110") ("Cyrillic,52" "0,111") ("Cyrillic,53" "0,112") ("Cyrillic,54" "0,113") (
"Cyrillic,55" "0,114") ("Cyrillic,56" "0,115") ("Cyrillic,57" "0,116") ("Cyrillic,60" "0,117") (
"Cyrillic,61" "0,120") ("Cyrillic,67" "0,121") ("Cyrillic,62" "0,122") ("Cyrillic,63" "0,123") (
"Cyrillic,64" "0,124") ("Cyrillic,65" "0,125") ("Cyrillic,43" "0,126") ("Cyrillic,50" "0,127") (
"Cyrillic,75" "0,130") ("Cyrillic,100" "0,131") ("Cyrillic,51" "0,132") ("Cyrillic,152" "0,133") (
"Cyrillic,0" "0,134") ("Cyrillic,153" "0,135") ("Cyrillic,74" Uparrow) ("Cyrillic,154" Leftarrow) (
"Cyrillic,0" "0,140") ("Cyrillic,121" "0,141") ("Cyrillic,122" "0,142") ("Cyrillic,176" "0,143") (
"Cyrillic,125" "0,144") ("Cyrillic,126" "0,145") ("Cyrillic,146" "0,146") ("Cyrillic,124" "0,147") (
"Cyrillic,161" "0,150") ("Cyrillic,132" "0,151") ("Cyrillic,133" "0,152") ("Cyrillic,134" "0,153") (
"Cyrillic,135" "0,154") ("Cyrillic,136" "0,155") ("Cyrillic,137" "0,156") ("Cyrillic,140" "0,157") (
"Cyrillic,141" "0,160") ("Cyrillic,147" "0,161") ("Cyrillic,142" "0,162") ("Cyrillic,143" "0,163") (
"Cyrillic,144" "0,164") ("Cyrillic,145" "0,165") ("Cyrillic,123" "0,166") ("Cyrillic,130" "0,167") (
"Cyrillic,155" "0,170") ("Cyrillic,160" "0,171") ("Cyrillic,131" "0,172") ("Cyrillic,72" "0,173") (
"Cyrillic,0" "0,174") ("Cyrillic,73" "0,175") ("Cyrillic,70" "0,176") ("Cyrillic,0" Rubout) (
"Cyrillic,156" "0,217") ("357,44" "0,233") (EMDASH "0,234") ("357,146" "0,267")))
(RPAQQ MATHTOMCCS (("357,173" "0,1") ("357,62" "0,2") ("357,63" "0,3") (Null "0,4") ("0,243" "0,5") (
"357,165" "0,6") ("357,166" Bell) (Null Backspace) (Null Tab) (Null Linefeed) ("0,266" "0,13") (Null
Page) (Null Newline) (Null "0,16") ("357,146" "0,17") (Null "0,20") (Null "0,21") (Null "0,22") (
"357,172" "0,23") (Null "0,24") (Null "0,25") ("357,157" "0,26") (Null "0,27") (Null "0,30") (Null
"0,31") (Null "0,32") (Null Escape) (Null "0,34") (Null "0,35") (Null "0,36") (Null Tenexeol) (
"357,60" "0,41") ("357,147" "0,42") (INFINITY "0,43") ("0,242" Dollar) ("0,270" "0,45") ("357,266"
"0,46") ("357,163" "0,47") ("0,302" "0,50") ("357,174" "0,51") ("0,307" "0,52") ("0,261" "0,53") (
"357,114" "0,54") ("357,175" "0,55") ("41,150" "0,56") ("357,145" "0,57") ("357,147" Zero) ("42,42"
One) ("42,44" Two) ("41,176" Three) ("357,142" Four) ("357,143" Five) ("357,144" Six) ("357,154" Seven
) ("41,172" Eight) ("0,307" Nine) ("0,247" "0,72") (Null "0,73") ("41,145" "0,74") ("41,142" "0,75") (
"41,146" "0,76") ("0,277" "0,77") ("357,100" "0,100") ("357,265" "0,101") ("357,112" "0,102") (
"357,254" "0,103") ("357,271" "0,104") ("357,264" "0,105") ("357,61" "0,106") ("357,133" "0,107") (
"357,137" "0,110") ("357,131" "0,111") ("357,132" "0,112") ("357,136" "0,113") ("357,130" "0,114") (
"360,275" "0,115") ("357,113" "0,116") ("357,141" "0,117") ("357,161" "0,120") ("357,121" "0,121") (
"357,256" "0,122") ("357,171" "0,123") ("357,160" "0,124") ("357,127" "0,125") ("357,267" "0,126") (
"357,162" "0,127") ("0,264" "0,130") ("360,272" "0,131") ("357,270" "0,132") (Null "0,133") (Null
"0,134") (Null "0,135") ("0,257" Uparrow) ("0,256" Leftarrow) (Null "0,140") ("357,247" "0,141") (
"357,123" "0,142") ("0,323" "0,143") ("357,272" "0,144") ("357,167" "0,145") ("357,122" "0,146") (
"357,117" "0,147") ("357,150" "0,150") ("357,260" "0,151") ("357,261" "0,152") ("357,262" "0,153") (
"357,263" "0,154") ("357,110" "0,155") ("357,152" "0,156") ("357,147" "0,157") ("357,66" "0,160") (
"357,70" "0,161") ("0,322" "0,162") ("357,76" "0,163") ("357,74" "0,164") ("357,77" "0,165") ("357,75"
"0,166") ("357,102" "0,167") ("357,103" "0,170") ("357,126" "0,171") ("357,67" "0,172") ("0,274"
"0,173") ("0,275" "0,174") ("0,276" "0,175") ("357,120" "0,176") (Null Rubout) (Null "0,200") (Null
"0,201") (Null "0,202") (Null "0,203") (Null "0,204") (Null "0,205") (Null "0,206") (Null "0,207") (
Null "0,210") (Null "0,211") (Null "0,212") (Null "0,213") (Null "0,214") (Null "0,215") (Null "0,216"
) (Null "0,217") (Null "0,220") (Null "0,221") (Null "0,222") (Null "0,223") (Null "0,224") (Null
"0,225") (Null "0,226") (Null "0,227") (Null "0,230") (Null "0,231") (Null "0,232") (Null "0,233") (
Null "0,234") (Null "0,235") (Null "0,236") (Null "0,237") (Null "0,240") (Null "0,241") (Null "0,242"
) (Null "0,243") (Null Currency) (Null "0,245") (Null "0,246") (Null "0,247") (Null "0,250") (Null
"0,251") (Null LEFT-DOUBLEQUOTE) (Null "0,253") (Null Lowline) (Null Circumflex) (Null "0,256") (Null
"0,257") (Null "0,260") (Null "0,261") (Null "0,262") (Null "0,263") (Null "0,264") (Null "0,265") (
Null "0,266") (Null "0,267") (Null "0,270") (Null "0,271") (Null RIGHT-DOUBLEQUOTE) (Null "0,273") (
Null "0,274") (Null "0,275") (Null "0,276") (Null "0,277") (Null "0,300") (Null "0,301") (Null "0,302"
) (Null "0,303") (Null "0,304") (Null "0,305") (Null "0,306") (Null "0,307") (Null "0,310") (Null
"0,311") (Null "0,312") (Null "0,313") (Null "0,314") (Null "0,315") (Null "0,316") (Null "0,317") (
Null "0,320") (Null "0,321") (Null "0,322") (Null "0,323") (Null "0,324") (Null "0,325") (Null "0,326"
) (Null "0,327") (Null "0,330") (Null "0,331") (Null "0,332") (Null "0,333") (Null "0,334") (Null
"0,335") (Null "0,336") (Null "0,337") (Null "0,340") (Null "0,341") (Null "0,342") (Null "0,343") (
Null "0,344") (Null "0,345") (Null "0,346") (Null "0,347") (Null "0,350") (Null "0,351") (Null "0,352"
) (Null "0,353") (Null "0,354") (Null "0,355") (Null "0,356") (Null "0,357") (Null "0,360") (Null
"0,361") (Null "0,362") (Null "0,363") (Null "0,364") (Null "0,365") (Null "0,366") (Null "0,367") (
Null "0,370") (Null "0,371") (Null "0,372") (Null "0,373") (Null "0,374") (Null "0,375") (Null "0,376"
) (Null "0,377")))
(RPAQQ PALATINOTOMCCS (("361,353" "0,32") ("361,260" "0,34") ("361,277" "0,35") ("361,304" "0,36") (
"361,153" "0,37") ("0,255" "0,136") ("0,254" "0,137") ("0,240" NIL) ("361,047" "0,200") ("361,124"
"0,201") ("361,043" "0,202") ("361,077" "0,203") ("361,114" "0,204") ("361,120" "0,205") ("361,121"
"0,206") ("361,117" "0,207") ("361,122" "0,210") ("361,134" "0,211") ("361,140" "0,212") ("361,141"
"0,213") ("361,145" "0,214") ("361,137" "0,215") ("361,155" "0,216") ("361,160" "0,217") ("361,142"
"0,220") ("361,241" "0,221") ("361,243" "0,222") ("361,276" "0,223") ("361,250" "0,224") ("361,320"
"0,225") ("361,321" "0,226") ("361,322" "0,227") ("361,322" "0,230") ("361,334" "0,231") ("361,244"
"0,232") ("361,341" "0,233") ("361,261" "0,234") ("361,337" "0,235") ("361,262" "0,236") ("361,255"
"0,237") ("361,247" "0,240") ("0,057" "0,244") (* ; "Slash, but should be fraction") ("357,243"
"0,246") ("0,244" "0,250") ("357,052" "0,254") ("357,053" "0,255") ("360,004" "0,256") ("360,005"
"0,257") (EMDASH "0,261") ("357,060" "0,262") ("357,061" "0,263") ("357,146" "0,267") ("43,262"
"0,270") ("357,050" "0,271") ("41,104" "0,274") ("357,101" "0,275") ("357,153" "0,311") ("361,314"
"0,314") ("375,261" "0,321") ("361,324" "0,324") ("375,362" "0,325") ("375,363" "0,326") ("0,274"
"0,327") ("0,275" "0,330") ("0,264" "0,331") ("0,270" "0,332") ("357,152" "0,333") ("361,265" "0,334")
("0,261" "0,335") ("361,042" "0,336") ("357,044" "0,337") ("361,340" "0,340") ("361,041" "0,344") (
"361,345" "0,345") ("361,050" "0,346") ("361,044" "0,347") ("361,355" "0,355") ("361,055" "0,356") (
"361,061" "0,357") ("361,360" "0,360") ("361,062" "0,362") ("361,065" "0,364") ("361,060" "0,366") (
"361,277" "0,367") ("361,100" "0,375") ("361,104" "0,376")))
(RPAQQ TITANTOMCCS (("0,242" "0,176" cent) ("0,176" NIL Delete cent) (Lowline ↑X) (Lowline "0,277") (
"0,55" "0,337") ("0,55" "0,55" Hypehn) ("0,274" "0,74" Quarter) ("0,74" NIL Delete quarter) ("0,275"
"0,76" Half) ("0,76" NIL Delete half)))
(RPAQQ TITANLEGALTOMCCS (("0,247" "0,176" Section) ("0,176" NIL Delete section) (Lowline ↑X) (Lowline
"0,277") ("0,55" "0,337") ("0,55" "0,55") ("0,260" "0,74" Degree) ("0,74" NIL Delete degree) ("0,266"
"0,100" Paragraph) ("0,100" NIL Delete Paragraph)))
(RPAQ? GACHATOMCCSARRAY (MCCSCODEMAPARRAY (XCCSUNDEFINEDPAIRS (QUOTE ((Lowline ↑X))))))
(RPAQ? ALTOTOMCCSARRAY (MCCSCODEMAPARRAY ALTOTEXTTOMCCS))
(RPAQ? SYMBOLTOMCCSARRAY (MCCSCODEMAPARRAY SYMBOLTOMCCS))
(RPAQ? HIPPOTOMCCSARRAY (MCCSCODEMAPARRAY HIPPOTOMCCS))
(RPAQ? CYRILLICTOMCCSARRAY (MCCSCODEMAPARRAY CYRILLICTOMCCS))
(RPAQ? MATHTOMCCSARRAY (MCCSCODEMAPARRAY MATHTOMCCS))
(RPAQ? SIGMATOMCCSARRAY (MCCSCODEMAPARRAY SIGMATOMCCS))
(RPAQ? PALATINOTOMCCSARRAY (MCCSCODEMAPARRAY PALATINOTOMCCS))
(RPAQ? TITANTOMCCSARRAY (MCCSCODEMAPARRAY (XCCSUNDEFINEDPAIRS TITANTOMCCS)))
(RPAQ? TITANLEGALTOMCCSARRAY (MCCSCODEMAPARRAY (XCCSUNDEFINEDPAIRS TITANLEGALTOMCCS)))
(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? 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