home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / gfx / ghostscript / fonts / hrpl_r.gsf < prev    next >
Text File  |  1995-09-16  |  9KB  |  215 lines
  1. %!
  2. % Common definitions for the Hershey fonts.
  3.  
  4. /MakeHersheyFont where
  5.  { pop 80 string
  6.     { currentfile 1 index readline pop
  7.        (%END) eq { exit } if
  8.     } loop pop
  9.  } if
  10.  
  11. userdict begin
  12. /HersheyBuildDict 10 dict def
  13.  
  14. /BuildHersheyChar {
  15.     exch begin
  16.         PenWidth setlinewidth
  17.         Encoding exch get
  18.         dup CharData exch known not { pop /.notdef } if
  19.         CharData exch get
  20.     end
  21.     /cd exch def
  22.  
  23.     /llx 99 def /lly 99 def /urx -99 def /ury -99 def
  24.     true
  25.  
  26.     cd 2 get {
  27.         exch {
  28.             dup 32 eq {
  29.                 pop true
  30.             } {
  31.                 82 sub cd 0 get sub
  32.  
  33.                 dup llx lt {
  34.                     dup /llx exch def
  35.                 } if
  36.                 dup urx gt {
  37.                     dup /urx exch def
  38.                 } if
  39.                 pop false
  40.             } ifelse
  41.         } {
  42.             neg 91 add
  43.  
  44.             dup lly lt {
  45.                 dup /lly exch def
  46.             } if
  47.             dup ury gt {
  48.                 dup /ury exch def
  49.             } if
  50.             pop true
  51.         } ifelse
  52.     } forall pop
  53.  
  54.     cd 1 get cd 0 get sub 0 llx 1 sub lly 1 sub urx 1 add ury 1 add
  55.     setcachedevice
  56.  
  57.     /domove true def
  58.     true
  59.  
  60.     cd 2 get {
  61.         exch {
  62.             dup 32 eq {
  63.                 pop true
  64.                 /domove true def
  65.             } {
  66.                 82 sub cd 0 get sub
  67.                 false
  68.             } ifelse
  69.         } {
  70.             neg 91 add
  71.             domove {
  72.                 moveto
  73.                 /domove false def
  74.             } {
  75.                 lineto
  76.             } ifelse
  77.             true
  78.         } ifelse
  79.     } forall pop
  80.  
  81.     1 setmiterlimit 1 setlinejoin 1 setlinecap
  82.     stroke
  83. } bind def
  84.  
  85. /MakeHersheyFont {
  86.     10 dict begin
  87.     /ItalicAngle exch def
  88.     /PenWidth exch def
  89.     /UniqueID exch def
  90.     /FontName exch def
  91.     /CharData exch def
  92.  
  93.     /FontType 3 def
  94.     /FontMatrix 
  95.         [1 33 div
  96.         0
  97.         ItalicAngle neg dup sin exch cos div 33 div
  98.         1 33 div
  99.         0 0] def
  100.     /Encoding StandardEncoding def
  101.     /BuildChar {HersheyBuildDict begin BuildHersheyChar end} def
  102.     /FontBBox {-10 -10 30 30} def
  103.  
  104.     FontName currentdict end definefont pop
  105. } bind def
  106. end        % userdict
  107. %END
  108.  
  109. 150 dict dup begin
  110. /hyphen [-6 6 (NRVR)] def
  111. /bar [-4 4 (RBRb)] def
  112. /periodcentered [-5 5 (RQQRRSSRRQ)] def
  113. /numbersign [-10 11 (SBLb YBRb LOZO KUYU)] def
  114. /currency [-11 11 (IIJKKOKUJYI[ [IZKYOYUZY[[ IIKJOKUKYJ[I I[KZOYUYYZ[[)] def
  115. /bullet [-2 2 (QPPQPSQTSTTSTQSPQP RQQRRSSRRQ)] def
  116. /slash [-7 7 (K^YF)] def
  117. /backslash [-7 7 (KFY^)] def
  118. /tilde [-8 8 (LTLRMPOPUSWSXR LRMQOQUTWTXRXP)] def
  119. /bracketleft [-7 7 (OBOb PBPb OBVB ObVb)] def
  120. /bracketright [-7 7 (TBTb UBUb NBUB NbUb)] def
  121. /braceleft [-7 7 (TBRCQDPFPHQJRKSMSOQQ RCQEQGRISJTLTNSPORSTTVTXSZR[Q]Q_Ra QSSUSWRYQZP\\P^Q`RaTb)] def
  122. /braceright [-7 7 (PBRCSDTFTHSJRKQMQOSQ RCSESGRIQJPLPNQPURQTPVPXQZR[S]S_Ra SSQUQWRYSZT\\T^S`RaPb)] def
  123. /less [-12 12 (ZIJRZ[)] def
  124. /greater [-12 12 (JIZRJ[)] def
  125. /asciitilde [-12 12 (IUISJPLONOPPTSVTXTZS[Q ISJQLPNPPQTTVUXUZT[Q[O)] def
  126. /asciicircum [-11 11 (JTROZT JTRPZT)] def
  127. /percent [-12 12 ([FI[ NFPHPJOLMMKMIKIIJGLFNFPGSHVHYG[F WTUUTWTYV[X[ZZ[X[VYTWT)] def
  128. /at [-13 14 (WNVLTKQKOLNMMPMSNUPVSVUUVS QKOMNPNSOUPV WKVSVUXVZV\\T]Q]O\\L[JYHWGTFQFNGLHJJILHOHRIUJWLYNZQ[T[WZYYZX XKWSWUXV)] def
  129. /section [-8 8 (UITJUKVJVIUGSFQFOGNINKOMQOVR OMTPVRWTWVVXTZ PNNPMRMTNVPXU[ NVSYU[V]V_UaSbQbOaN_N^O]P^O_)] def
  130. /dagger [-8 8 (RFQHRJSHRF RFRb RQQTRbSTRQ LMNNPMNLLM LMXM TMVNXMVLTM)] def
  131. /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
  132. /A [-9 9 (RFJ[ RIK[J[ RIY[Z[ RFZ[ MUWU LVXV)] def
  133. /B [-9 9 (LFL[ MGMZ LFTFWGXHYJYMXOWPTQ MGTGWHXJXMWOTP MPTPWQXRYTYWXYWZT[L[ MQTQWRXTXWWYTZMZ)] def
  134. /C [-9 10 (ZKYIWGUFQFOGMILKKNKSLVMXOZQ[U[WZYXZV ZKYKXIWHUGQGOHMKLNLSMVOYQZUZWYXXYVZV)] def
  135. /D [-9 10 (LFL[ MGMZ LFSFVGXIYKZNZSYVXXVZS[L[ MGSGVHWIXKYNYSXVWXVYSZMZ)] def
  136. /E [-8 9 (MFM[ NGNZ MFYF NGYGYF NPTPTQ NQTQ NZYZY[ M[Y[)] def
  137. /F [-8 8 (MFM[ NGN[M[ MFYF NGYGYF NPTPTQ NQTQ)] def
  138. /G [-9 10 (ZKYIWGUFQFOGMILKKNKSLVMXOZQ[U[WZYXZVZRUR ZKYKXIWHUGQGOHNIMKLNLSMVNXOYQZUZWYXXYVYSUSUR)] def
  139. /H [-10 10 (KFK[ KFLFL[K[ YFXFX[Y[ YFY[ LPXP LQXQ)] def
  140. /I [-3 4 (RFR[S[ RFSFS[)] def
  141. /J [-7 8 (VFVVUYSZQZOYNVMV VFWFWVVYUZS[Q[OZNYMV)] def
  142. /K [-9 10 (LFL[M[ LFMFM[ ZFYFMR ZFMS POY[Z[ QOZ[)] def
  143. /L [-8 7 (MFM[ MFNFNZ NZYZY[ M[Y[)] def
  144. /M [-11 11 (JFJ[ KKK[J[ KKR[ JFRX ZFRX YKR[ YKY[Z[ ZFZ[)] def
  145. /N [-10 10 (KFK[ LIL[K[ LIY[ KFXX XFXX XFYFY[)] def
  146. /O [-10 10 (PFNGLIKKJNJSKVLXNZP[T[VZXXYVZSZNYKXIVGTFPF QGNHLKKNKSLVNYQZSZVYXVYSYNXKVHSGQG)] def
  147. /P [-9 9 (LFL[ MGM[L[ LFUFWGXHYJYMXOWPUQMQ MGUGWHXJXMWOUPMP)] def
  148. /Q [-10 10 (PFNGLIKKJNJSKVLXNZP[T[VZXXYVZSZNYKXIVGTFPF QGNHLKKNKSLVNYQZSZVYXVYSYNXKVHSGQG SXX]Y] SXTXY])] def
  149. /R [-9 9 (LFL[ MGM[L[ LFTFWGXHYJYMXOWPTQMQ MGTGWHXJXMWOTPMP RQX[Y[ SQY[)] def
  150. /S [-9 9 (YIWGTFPFMGKIKKLMMNOOTQVRWSXUXXWYTZPZNYMXKX YIWIVHTGPGMHLILKMMONTPVQXSYUYXWZT[P[MZKX)] def
  151. /T [-7 8 (RGR[ SGS[R[ LFYFYG LFLGYG)] def
  152. /U [-10 10 (KFKULXNZQ[S[VZXXYUYF KFLFLUMXNYQZSZVYWXXUXFYF)] def
  153. /V [-9 9 (JFR[ JFKFRX ZFYFRX ZFR[)] def
  154. /W [-12 12 (GFM[ GFHFMX RFMX RIM[ RIW[ RFWX ]F\\FWX ]FW[)] def
  155. /X [-9 9 (KFX[Y[ KFLFY[ YFXFK[ YFL[K[)] def
  156. /Y [-8 9 (KFRPR[S[ KFLFSP ZFYFRP ZFSPS[)] def
  157. /Z [-9 9 (XFK[ YFL[ KFYF KFKGXG LZYZY[ K[Y[)] def
  158. /a [-9 9 (WMW[X[ WMXMX[ WPUNSMPMNNLPKSKULXNZP[S[UZWX WPSNPNNOMPLSLUMXNYPZSZWX)] def
  159. /b [-9 9 (LFL[M[ LFMFM[ MPONQMTMVNXPYSYUXXVZT[Q[OZMX MPQNTNVOWPXSXUWXVYTZQZMX)] def
  160. /c [-8 8 (XPVNTMQMONMPLSLUMXOZQ[T[VZXX XPWQVOTNQNOONPMSMUNXOYQZTZVYWWXX)] def
  161. /d [-9 9 (WFW[X[ WFXFX[ WPUNSMPMNNLPKSKULXNZP[S[UZWX WPSNPNNOMPLSLUMXNYPZSZWX)] def
  162. /e [-8 8 (MTXTXQWOVNTMQMONMPLSLUMXOZQ[T[VZXX MSWSWQVOTNQNOONPMSMUNXOYQZTZVYWWXX)] def
  163. /f [-5 7 (WFUFSGRJR[S[ WFWGUGSH TGSJS[ OMVMVN OMONVN)] def
  164. /g [-9 9 (XMWMW\\V_U`SaQaO`N_L_ XMX\\W_UaSbPbNaL_ WPUNSMPMNNLPKSKULXNZP[S[UZWX WPSNPNNOMPLSLUMXNYPZSZWX)] def
  165. /h [-9 9 (LFL[M[ LFMFM[ MQPNRMUMWNXQX[ MQPORNTNVOWQW[X[)] def
  166. /i [-3 4 (RFQGQHRISITHTGSFRF RGRHSHSGRG RMR[S[ RMSMS[)] def
  167. /j [-3 4 (RFQGQHRISITHTGSFRF RGRHSHSGRG RMRbSb RMSMSb)] def
  168. /k [-9 8 (LFL[M[ LFMFM[ XMWMMW XMMX PTV[X[ QSX[)] def
  169. /l [-3 4 (RFR[S[ RFSFS[)] def
  170. /m [-14 15 (GMG[H[ GMHMH[ HQKNMMPMRNSQS[ HQKOMNONQORQR[S[ SQVNXM[M]N^Q^[ SQVOXNZN\\O]Q][^[)] def
  171. /n [-9 9 (LML[M[ LMMMM[ MQPNRMUMWNXQX[ MQPORNTNVOWQW[X[)] def
  172. /o [-8 9 (QMONMPLSLUMXOZQ[T[VZXXYUYSXPVNTMQM QNOONPMSMUNXOYQZTZVYWXXUXSWPVOTNQN)] def
  173. /p [-9 9 (LMLbMb LMMMMb MPONQMTMVNXPYSYUXXVZT[Q[OZMX MPQNTNVOWPXSXUWXVYTZQZMX)] def
  174. /q [-9 9 (WMWbXb WMXMXb WPUNSMPMNNLPKSKULXNZP[S[UZWX WPSNPNNOMPLSLUMXNYPZSZWX)] def
  175. /r [-6 7 (OMO[P[ OMPMP[ PSQPSNUMXM PSQQSOUNXNXM)] def
  176. /s [-7 8 (XPWNTMQMNNMPNRPSUUWV VUWWWXVZ WYTZQZNY OZNXMX XPWPVN WOTNQNNO ONNPOR NQPRUTWUXWXXWZT[Q[NZMX)] def
  177. /t [-5 5 (RFR[S[ RFSFS[ OMVMVN OMONVN)] def
  178. /u [-9 9 (LMLWMZO[R[TZWW LMMMMWNYPZRZTYWW WMW[X[ WMXMX[)] def
  179. /v [-7 7 (LMR[ LMMMRY XMWMRY XMR[)] def
  180. /w [-11 11 (IMN[ IMJMNX RMNX RPN[ RPV[ RMVX [MZMVX [MV[)] def
  181. /x [-8 8 (LMW[X[ LMMMX[ XMWML[ XMM[L[)] def
  182. /y [-7 7 (LMR[ LMMMRY XMWMRYNb XMR[ObNb)] def
  183. /z [-8 8 (VNL[ XMNZ LMXM LMLNVN NZXZX[ L[X[)] def
  184. /space [-4 4 ()] def
  185. /zero [-10 10 (QFNGLJKOKRLWNZQ[S[VZXWYRYOXJVGSFQF OGMJLOLRMWOZ NYQZSZVY UZWWXRXOWJUG VHSGQGNH)] def
  186. /one [-10 10 (NJPISFS[ NJNKPJRHR[S[)] def
  187. /two [-10 10 (LKLJMHNGPFTFVGWHXJXLWNUQL[ LKMKMJNHPGTGVHWJWLVNTQK[ LZYZY[ K[Y[)] def
  188. /three [-10 10 (MFXFQO MFMGWG WFPO QNSNVOXQYTYUXXVZS[P[MZLYKWLW POSOVPXS TOWQXTXUWXTZ XVVYSZPZMYLW OZLX)] def
  189. /four [-10 10 (UIU[V[ VFV[ VFKVZV UILV LUZUZV)] def
  190. /five [-10 10 (MFLO NGMN MFWFWG NGWG MNPMSMVNXPYSYUXXVZS[P[MZLYKWLW LOMOONSNVOXR TNWPXSXUWXTZ XVVYSZPZMYLW OZLX)] def
  191. /six [-10 10 (VGWIXIWGTFRFOGMJLOLTMXOZR[S[VZXXYUYTXQVOSNRNOOMQ WHTGRGOH PGNJMOMTNXQZ MVOYRZSZVYXV TZWXXUXTWQTO XSVPSOROOPMS QONQMT)] def
  192. /seven [-10 10 (KFYFO[ KFKGXG XFN[O[)] def
  193. /eight [-10 10 (PFMGLILKMMNNPOTPVQWRXTXWWYTZPZMYLWLTMRNQPPTOVNWMXKXIWGTFPF NGMIMKNMPNTOVPXRYTYWXYWZT[P[MZLYKWKTLRNPPOTNVMWKWIVG WHTGPGMH LXOZ UZXX)] def
  194. /nine [-10 10 (WPURRSQSNRLPKMKLLINGQFRFUGWIXMXRWWUZR[P[MZLXMXNZ WMVPSR WNUQRRQRNQLN PRMPLMLLMIPG LKNHQGRGUHWK SGVIWMWRVWTZ UYRZPZMY)] def
  195. /period [-5 6 (RXQYQZR[S[TZTYSXRX RYRZSZSYRY)] def
  196. /comma [-5 6 (TZS[R[QZQYRXSXTYT\\S^Q_ RYRZSZSYRY S[T\\ TZS^)] def
  197. /colon [-5 6 (RMQNQORPSPTOTNSMRM RNROSOSNRN RXQYQZR[S[TZTYSXRX RYRZSZSYRY)] def
  198. /semicolon [-5 6 (RMQNQORPSPTOTNSMRM RNROSOSNRN TZS[R[QZQYRXSXTYT\\S^Q_ RYRZSZSYRY S[T\\ TZS^)] def
  199. /exclam [-5 6 (RFRTST RFSFST RXQYQZR[S[TZTYSXRX RYRZSZSYRY)] def
  200. /question [-9 10 (LKLJMHNGQFTFWGXHYJYLXNWOUPRQ LKMKMJNHQGTGWHXJXLWNUORP MIPG UGXI XMTP RPRTSTSP RXQYQZR[S[TZTYSXRX RYRZSZSYRY)] def
  201. /quoteleft [-5 6 (TFRGQIQLRMSMTLTKSJRJQK RKRLSLSKRK RGQK QIRJ)] def
  202. /quoteright [-5 6 (THSIRIQHQGRFSFTGTJSLQM RGRHSHSGRG SITJ THSL)] def
  203. /ampersand [-12 13 (\\MZMXNWPUVTXSYQZMZKYJWJUKSLRQOSMTKTISGQFPFNGMIMKNNPQUWXZZ[\\[ \\M\\NZNXO YNXPVVUXSZQ[M[KZJYIWIUJSLQQNRMSKSIRG SHQGPGNH OGNINKONQQVWXYZZ\\Z\\[)] def
  204. /dollar [-9 10 (RBR_S_ RBSBS_ WIYIWGTFQFNGLILKMMNNVRWSXUXWWYTZQZOYNX WIVHTGQGNHMIMKNMVQXSYUYWXYWZT[Q[NZLXNX XXUZ)] def
  205. /parenleft [-7 5 (UBSDQGOKNPNTOYQ]S`UbVb UBVBTDRGPKOPOTPYR]T`Vb)] def
  206. /parenright [-5 7 (NBPDRGTKUPUTTYR]P`NbOb NBOBQDSGUKVPVTUYS]Q`Ob)] def
  207. /asterisk [-8 8 (RFQGSQRR RFRR RFSGQQRR MINIVOWO MIWO MIMJWNWO WIVINOMO WIMO WIWJMNMO)] def
  208. /plus [-12 13 (RIRZSZ RISISZ JQ[Q[R JQJR[R)] def
  209. /equal [-12 13 (JM[M[N JMJN[N JU[U[V JUJV[V)] def
  210. /quotesingle [-4 5 (SFRGRM SGRM SFTGRM)] def
  211. /quotedbl [-9 9 (NFMGMM NGMM NFOGMM WFVGVM WGVM WFXGVM)] def
  212. /.notdef [ 0 0 () ] def        % not defined
  213. end
  214. /Hershey-Plain 4294000 0.6 0 MakeHersheyFont
  215.