214 lines
9.3 KiB
Plaintext
214 lines
9.3 KiB
Plaintext
%!
|
|
% Common definitions for the Hershey fonts.
|
|
|
|
/MakeHersheyFont where
|
|
{ pop 80 string
|
|
{ currentfile 1 index readline pop
|
|
(%END) eq { exit } if
|
|
} loop pop
|
|
} if
|
|
|
|
userdict begin
|
|
/HersheyBuildDict 10 dict def
|
|
|
|
/BuildHersheyChar {
|
|
exch begin
|
|
PenWidth setlinewidth
|
|
Encoding exch get
|
|
dup CharData exch known not { pop /.notdef } if
|
|
CharData exch get
|
|
end
|
|
/cd exch def
|
|
|
|
/llx 99 def /lly 99 def /urx -99 def /ury -99 def
|
|
true
|
|
|
|
cd 2 get {
|
|
exch {
|
|
dup 32 eq {
|
|
pop true
|
|
} {
|
|
82 sub cd 0 get sub
|
|
|
|
dup llx lt {
|
|
dup /llx exch def
|
|
} if
|
|
dup urx gt {
|
|
dup /urx exch def
|
|
} if
|
|
pop false
|
|
} ifelse
|
|
} {
|
|
neg 91 add
|
|
|
|
dup lly lt {
|
|
dup /lly exch def
|
|
} if
|
|
dup ury gt {
|
|
dup /ury exch def
|
|
} if
|
|
pop true
|
|
} ifelse
|
|
} forall pop
|
|
|
|
cd 1 get cd 0 get sub 0 llx 1 sub lly 1 sub urx 1 add ury 1 add
|
|
setcachedevice
|
|
|
|
/domove true def
|
|
true
|
|
|
|
cd 2 get {
|
|
exch {
|
|
dup 32 eq {
|
|
pop true
|
|
/domove true def
|
|
} {
|
|
82 sub cd 0 get sub
|
|
false
|
|
} ifelse
|
|
} {
|
|
neg 91 add
|
|
domove {
|
|
moveto
|
|
/domove false def
|
|
} {
|
|
lineto
|
|
} ifelse
|
|
true
|
|
} ifelse
|
|
} forall pop
|
|
|
|
1 setmiterlimit 1 setlinejoin 1 setlinecap
|
|
stroke
|
|
} bind def
|
|
|
|
/MakeHersheyFont {
|
|
10 dict begin
|
|
/ItalicAngle exch def
|
|
/PenWidth exch def
|
|
/FontName exch def
|
|
/CharData exch def
|
|
|
|
/FontType 3 def
|
|
/FontMatrix
|
|
[1 33 div
|
|
0
|
|
ItalicAngle neg dup sin exch cos div 33 div
|
|
1 33 div
|
|
0 0] def
|
|
/Encoding StandardEncoding def
|
|
/BuildChar {HersheyBuildDict begin BuildHersheyChar end} def
|
|
/FontBBox {-10 -10 30 30} def
|
|
|
|
FontName currentdict end definefont
|
|
} bind def
|
|
end % userdict
|
|
%END
|
|
|
|
150 dict dup begin
|
|
/hyphen [-6 6 (NRVR)] def
|
|
/bar [-4 4 (RBRb)] def
|
|
/periodcentered [-5 5 (RQQRRSSRRQ)] def
|
|
/numbersign [-10 11 (SBLb YBRb LOZO KUYU)] def
|
|
/ampersand [-13 13 (\\O\\N[MZMYNXPVUTXRZP[L[JZIYHWHUISJRQNRMSKSIRGPFNGMIMKNNPQUXWZY[[[\\Z\\Y)] def
|
|
/currency [-11 11 (IIJKKOKUJYI[ [IZKYOYUZY[[ IIKJOKUKYJ[I I[KZOYUYYZ[[)] def
|
|
/bullet [-2 2 (QPPQPSQTSTTSTQSPQP RQQRRSSRRQ)] def
|
|
/slash [-7 7 (K^YF)] def
|
|
/backslash [-7 7 (KFY^)] def
|
|
/tilde [-8 8 (LTLRMPOPUSWSXR LRMQOQUTWTXRXP)] def
|
|
/bracketleft [-7 7 (OBOb PBPb OBVB ObVb)] def
|
|
/bracketright [-7 7 (TBTb UBUb NBUB NbUb)] def
|
|
/braceleft [-7 7 (TBRCQDPFPHQJRKSMSOQQ RCQEQGRISJTLTNSPORSTTVTXSZR[Q]Q_Ra QSSUSWRYQZP\\P^Q`RaTb)] def
|
|
/braceright [-7 7 (PBRCSDTFTHSJRKQMQOSQ RCSESGRIQJPLPNQPURQTPVPXQZR[S]S_Ra SSQUQWRYSZT\\T^S`RaPb)] def
|
|
/less [-12 12 (ZIJRZ[)] def
|
|
/greater [-12 12 (JIZRJ[)] def
|
|
/asciitilde [-12 12 (IUISJPLONOPPTSVTXTZS[Q ISJQLPNPPQTTVUXUZT[Q[O)] def
|
|
/asciicircum [-11 11 (JTROZT JTRPZT)] def
|
|
/percent [-12 12 ([FI[ NFPHPJOLMMKMIKIIJGLFNFPGSHVHYG[F WTUUTWTYV[X[ZZ[X[VYTWT)] def
|
|
/at [-13 14 (WNVLTKQKOLNMMPMSNUPVSVUUVS QKOMNPNSOUPV WKVSVUXVZV\\T]Q]O\\L[JYHWGTFQFNGLHJJILHOHRIUJWLYNZQ[T[WZYYZX XKWSWUXV)] def
|
|
/section [-8 8 (UITJUKVJVIUGSFQFOGNINKOMQOVR OMTPVRWTWVVXTZ PNNPMRMTNVPXU[ NVSYU[V]V_UaSbQbOaN_N^O]P^O_)] def
|
|
/dagger [-8 8 (RFQHRJSHRF RFRb RQQTRbSTRQ LMNNPMNLLM LMXM TMVNXMVLTM)] def
|
|
/daggerdbl [-8 8 (RFQHRJSHRF RFRT RPQRSVRXQVSRRP RTRb R^Q`RbS`R^ LMNNPMNLLM LMXM TMVNXMVLTM L[N\\P[NZL[ L[X[ T[V\\X[VZT[)] def
|
|
/A [-13 10 (XFVHTKQPOSLWIZG[E[DZDXEWFXEY XFWJUTT[ XFU[ T[TYSVRTPRNQLQKRKTLWOZR[V[XZ)] def
|
|
/B [-12 12 (UGTHSJQOOUNWLZJ[ THSKQSPVOXMZJ[H[GZGXHWIXHY OLNNMOKOJNJLKJMHOGRFXFZG[I[KZMXNTORO XFYGZIZKYMXN TOWPXQYSYVXYWZU[S[RZRXSU TOVPWQXSXVWYU[)] def
|
|
/C [-10 11 (KHJJJLKNNOQOUNWMYKZIZGYFWFTGQJOMMQLULXMZP[R[UZWXXVXTWRURSSRU WFUGRJPMNQMUMXNZP[)] def
|
|
/D [-12 11 (UGTHSJQOOUNWLZJ[ THSKQSPVOXMZJ[H[GZGXHWJWLXNZP[S[UZWXYTZOZLYIWGUFPFMGKIJKJMKNMNNMOK)] def
|
|
/E [-9 10 (WIVJVLWMYMZKZIYGWFTFRGQHPJPLQNSO TFRHQJQMSO SOQONPLRKTKWLYMZO[R[UZWXXVXTWRURSSRU QOOPMRLTLXMZ)] def
|
|
/F [-11 10 (WHVJTORUQWOZM[ QLPNNOLOKMKKLINGQF[FXGWHVKTSSVRXPZM[K[IZHYHXIWJXIY SFWGXG OSPRRQVQXPZMXT)] def
|
|
/G [-11 11 (JIIKIMJOLPOPROTNWKXHXGWFVFTGRIQKPNPQQSSTUTWSYQZO WFUGSIRKQNQRST ZOYSWWUYSZO[L[JZIXIWJVKWJX YSWVUXRZO[)] def
|
|
/H [-12 12 (LLKKKILGOFRFOQMWLYKZI[G[FZFXGWHXGY RFOONRLWKYI[ JTKSMRVOXN[L]J^H^G]F\\FZGXJWLURTVTYV[W[YZ[X \\FZHXLVRUVUYV[)] def
|
|
/I [-9 7 (WHUKSPQUPWNZL[ YLWNTOQOONNLNJOHQGUFYFWHVJTPRVQXOZL[J[IZIXJWKXJY)] def
|
|
/J [-9 8 (YFWHUKSPPYN] YMWOTPQPOONMNKOIQGUFYFWIVKSTQXPZN]M^K_J^J\\KZMXOWRVVU)] def
|
|
/K [-12 12 (LLKKKIMGPFRFOQMWLYKZI[G[FZFXGWHXGY RFOONRLWKYI[ ZGWKUMSNPO ]G\\H]I^H^G]F\\FZGWLVMTNPO POSPTRUYV[ PORPSRTYV[W[YZ[X)] def
|
|
/L [-9 9 (MILKLMMOOPRPUOWNZK[H[GZFYFWGVHTKPUOWMZK[ VHTLRSQVPXNZK[I[HZHXIWKWMXPZR[U[WZYX)] def
|
|
/M [-14 14 (RFNOKUIXGZE[C[BZBXCWDXCY RFPMOQNVNZP[ RFQJPOOVOZP[ [FWORXP[ [FYMXQWVWZY[Z[\\Z^X [FZJYOXVXZY[)] def
|
|
/N [-11 12 (RFQJOPMULWJZH[F[EZEXFWGXFY RFRKSVT[ RFSKTVT[ `G_H`IaHaG`F^F\\GZJYLWQUWT[)] def
|
|
/O [-10 11 (SFQGOIMLLNKRKVLYMZO[Q[TZVXXUYSZOZKYHXGWGUHSJQNPSPV QGOJMNLRLVMYO[)] def
|
|
/P [-12 11 (UGTHSJQOOUNWLZJ[ THSKQSPVOXMZJ[H[GZGXHWIXHY OLNNMOKOJNJLKJMHOGRFVFYGZH[J[MZOYPVQTQRP VFXGYHZJZMYOXPVQ)] def
|
|
/Q [-10 11 (UJULTNSOQPOPNNNLOIQGTFWFYGZIZMYPWSSWPYNZK[I[HZHXIWKWMXPZS[V[XZZX WFXGYIYMXPVSSVOYK[)] def
|
|
/R [-12 12 (UGTHSJQOOUNWLZJ[ THSKQSPVOXMZJ[H[GZGXHWIXHY OLNNMOKOJNJLKJMHOGRFWFZG[I[KZMYNVORO WFYGZIZKYMXNVO ROUPVRWYX[ ROTPURVYX[Y[[Z]X)] def
|
|
/S [-10 10 (NIMKMMNOPPSPVOXN[K\\H\\G[FZFXGWHVJUMSTRWPZN[ VJUNTUSXQZN[K[IZHXHWIVJWIX)] def
|
|
/T [-9 9 (YHXJVOTUSWQZO[ SLRNPONOMMMKNIPGSF\\FZGYHXKVSUVTXRZO[M[KZJYJXKWLXKY UFYGZG)] def
|
|
/U [-11 11 (HJJGLFMFOHOKNNKVKYL[ MFNHNKKSJVJYL[N[PZSWUTVR ZFVRUVUYW[X[ZZ\\X [FWRVVVYW[)] def
|
|
/V [-11 10 (HJJGLFMFOHOKNOLVLYM[ MFNHNKLRKVKYM[N[QZTWVTXPYMZIZGYFXFWGVIVLWNYP[Q]Q)] def
|
|
/W [-12 11 (ILHLGKGIHGJFNFMHLLKUJ[ LLLUK[ VFTHRLOUMYK[ VFUHTLSUR[ TLTUS[ `F^G\\IZLWUUYS[)] def
|
|
/X [-10 10 (PKOLMLLKLIMGOFQFSGTITLSPQUOXMZJ[H[GZGXHWIXHY QFRGSISLRPPUNXLZJ[ ]G\\H]I^H^G]F[FYGWIULSPRURXSZT[U[WZYX)] def
|
|
/Y [-11 11 (JJLGNFOFQGQIOOORPT OFPGPINONRPTRTUSWQYNZL \\FZLWTUX ]F[LYQWUUXSZP[L[JZIXIWJVKWJX)] def
|
|
/Z [-11 10 (ZHYJWOVRUTSWQYOZL[ SLRNPONOMMMKNIPGSF]F[GZHYKXOVUTXQZL[H[GZGXHWJWLXOZQ[T[WZYX VFZG[G)] def
|
|
/a [-6 9 (UUTSRRPRNSMTLVLXMZO[Q[SZTX PRNTMVMYO[ VRTXTZV[XZYY[V WRUXUZV[)] def
|
|
/b [-6 8 (LVNSPO SFMXMZO[P[RZTXUUURVVWWXWZV TFNXNZO[)] def
|
|
/c [-5 6 (TSSTTTTSSRQROSNTMVMXNZP[S[VYXV QROTNVNYP[)] def
|
|
/d [-7 9 (UUTSRRPRNSMTLVLXMZO[Q[SZTX PRNTMVMYO[ ZFTXTZV[XZYY[V [FUXUZV[)] def
|
|
/e [-6 6 (OYQXRWSUSSRRQROSNTMVMXNZP[S[VYXV QROTNVNYP[)] def
|
|
/f [-3 6 (RRUOWLXIXGWFUGTIKdKfLgNfOcPZQ[S[UZVYXV TISNRRO[M`Kd)] def
|
|
/g [-7 9 (UUTSRRPRNSMTLVLXMZO[Q[SZTX PRNTMVMYO[ VRPd WRT[R`PdOfMgLfLdMaO_R]V[YY[V)] def
|
|
/h [-6 9 (LVNSPO SFL[ TFM[ OUQSSRTRVSVUUXUZV[ TRUSUUTXTZV[XZYY[V)] def
|
|
/i [-3 4 (SLRMSNTMSL QROXOZQ[SZTYVV RRPXPZQ[)] def
|
|
/j [-4 4 (SLRMSNTMSL QRKd RRO[M`KdJfHgGfGdHaJ_M]Q[TYVV)] def
|
|
/k [-6 8 (LVNSPO SFL[ TFM[ URUSVSURTRRTOU OURVSZT[ OUQVRZT[U[XYZV)] def
|
|
/l [-4 4 (NVPSRO UFOXOZQ[SZTYVV VFPXPZQ[)] def
|
|
/m [-13 12 (EVGSIRKSKUI[ IRJSJUH[ KUMSORPRRSRUP[ PRQSQUO[ RUTSVRWRYSYUXXXZY[ WRXSXUWXWZY[[Z\\Y^V)] def
|
|
/n [-9 9 (IVKSMROSOUM[ MRNSNUL[ OUQSSRTRVSVUUXUZV[ TRUSUUTXTZV[XZYY[V)] def
|
|
/o [-6 7 (RRPRNSMTLVLXMZO[Q[SZTYUWUUTSRRQSQURWTXVXXWYV PRNTMVMYO[)] def
|
|
/p [-6 9 (LVNSPO QLHg RLIg OUQSSRTRVSVUUXUZV[ TRUSUUTXTZV[XZYY[V)] def
|
|
/q [-7 9 (UUTSRRPRNSMTLVLXMZO[Q[SZ PRNTMVMYO[ VRPdPfQgSfTcT[V[YY[V WRT[R`Pd)] def
|
|
/r [-6 8 (LVNSPRRSRUP[ PRQSQUO[ RUTSVRWRVU VRVUWWXWZV)] def
|
|
/s [-4 8 (NVPSQQQSTUUWUYTZR[ QSSUTWTYR[ NZP[U[XYZV)] def
|
|
/t [-4 4 (NVPSRO UFOXOZQ[SZTYVV VFPXPZQ[ PNVN)] def
|
|
/u [-6 9 (NRLXLZN[O[QZSXUU ORMXMZN[ VRTXTZV[XZYY[V WRUXUZV[)] def
|
|
/v [-6 8 (NRMTLWLZN[O[RZTXUUUR ORNTMWMZN[ URVVWWXWZV)] def
|
|
/w [-10 11 (LRJTIWIZK[L[NZPX MRKTJWJZK[ RRPXPZR[S[UZWXXUXR SRQXQZR[ XRYVZW[W]V)] def
|
|
/x [-8 8 (JVLSNRPRQSQUPXOZM[L[KZKYLYKZ WSVTWTWSVRURSSRUQXQZR[U[XYZV QSRU SSQU PXQZ QXOZ)] def
|
|
/y [-6 9 (NRLXLZN[O[QZSXUU ORMXMZN[ VRPd WRT[R`PdOfMgLfLdMaO_R]V[YY[V)] def
|
|
/z [-6 7 (LVNSPRRRTSTVSXPZN[ RRSSSVRXPZ N[P\\Q^QaPdNfLgKfKdLaO^R\\VYYV N[O\\P^PaOdNf)] def
|
|
/plus [-12 13 (RIRZSZ RISISZ JQ[Q[R JQJR[R)] def
|
|
/equal [-12 13 (JM[M[N JMJN[N JU[U[V JUJV[V)] def
|
|
/space [-4 4 ()] def
|
|
/zero [-10 11 (TFQGOIMLLOKSKVLYMZO[Q[TZVXXUYRZNZKYHXGVFTF TFRGPINLMOLSLVMYO[ Q[SZUXWUXRYNYKXHVF)] def
|
|
/one [-10 11 (TJO[ VFP[ VFSIPKNL UIQKNL)] def
|
|
/two [-10 11 (OJPKOLNKNJOHPGSFVFYGZIZKYMWOTQPSMUKWI[ VFXGYIYKXMVOPS JYKXMXRZUZWYXW MXR[U[WZXW)] def
|
|
/three [-10 11 (OJPKOLNKNJOHPGSFVFYGZIZKYMVOSP VFXGYIYKXMVO QPSPVQWRXTXWWYVZS[O[LZKYJWJVKULVKW SPUQVRWTWWVYUZS[)] def
|
|
/four [-10 11 (XGR[ YFS[ YFJUZU)] def
|
|
/five [-10 11 (QFLP QF[F QGVG[F LPMOPNSNVOWPXRXUWXUZR[O[LZKYJWJVKULVKW SNUOVPWRWUVXTZR[)] def
|
|
/six [-10 11 (YIXJYKZJZIYGWFTFQGOIMLLOKSKWLYMZO[R[UZWXXVXSWQVPTOQOOPMRLT TFRGPINLMOLSLXMZ R[TZVXWVWRVP)] def
|
|
/seven [-10 11 (NFLL [FZIXLSRQUPWO[ XLRRPUOWN[ MIPFRFWI NHPGRGWIYIZH[F)] def
|
|
/eight [-10 11 (SFPGOHNJNMOOQPTPXOYNZLZIYGVFSF SFQGPHOJOMPOQP TPWOXNYLYIXGVF QPMQKSJUJXKZN[R[VZWYXWXTWRVQTP QPNQLSKUKXLZN[ R[UZVYWWWSVQ)] def
|
|
/nine [-10 11 (YMXOVQTRQROQNPMNMKNIPGSFVFXGYHZJZNYRXUVXTZQ[N[LZKXKWLVMWLX OQNONKOIQGSF XGYIYNXRWUUXSZQ[)] def
|
|
/period [-5 6 (PYOZP[QZPY)] def
|
|
/comma [-5 6 (P[OZPYQZQ[P]N_)] def
|
|
/colon [-5 6 (SMRNSOTNSM PYOZP[QZ)] def
|
|
/semicolon [-5 6 (SMRNSOTNSM P[OZPYQZQ[P]N_)] def
|
|
/exclam [-5 6 (UFTGRS UGRS UFVGRS PYOZP[QZPY)] def
|
|
/question [-10 11 (OJPKOLNKNJOHPGSFWFZG[I[KZMYNSPQQQSRTTT WFYGZIZKYMXNVO PYOZP[QZPY)] def
|
|
/quoteleft [-5 6 (VFTHSJSKTLUKTJ)] def
|
|
/quoteright [-5 6 (UHTGUFVGVHUJSL)] def
|
|
/dollar [-10 11 (TBL_ YBQ_ ZJYKZL[K[JZHYGVFRFOGMIMKNMONVRXT MKOMVQWRXTXWWYVZS[O[LZKYJWJVKULVKW)] def
|
|
/parenleft [-7 7 (ZBVESHQKOONTNXO]P`Qb VESIQMPPOUOZP_Qb)] def
|
|
/parenright [-7 7 (SBTDUGVLVPUUSYQ\\N_Jb SBTEUJUOTTSWQ[N_)] def
|
|
/asterisk [-8 9 (TFTR OIYO YIOO)] def
|
|
/quotesingle [-4 5 (UFSM VFSM)] def
|
|
/quotedbl [-9 9 (PFNM QFNM YFWM ZFWM)] def
|
|
/.notdef [ 0 0 () ] def % not defined
|
|
end
|
|
/Hershey-Script-Complex 0.8 0 MakeHersheyFont
|