"Fossies" - the Fresh Open Source Software Archive

Member "fonts/hrplr.gsf" (25 Aug 1994, 9039 Bytes) of package /linux/misc/old/ghost/fonts/ghostscript-fonts-other-6.0.tar.gz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

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