"Fossies" - the Fresh Open Source Software Archive

Member "fonts/hrgkc.gsf" (25 Aug 1994, 8964 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 /fraction [-11 11 ([BIb)] def
  113 /currency [-11 11 (IIJKKOKUJYI[ [IZKYOYUZY[[ IIKJOKUKYJ[I I[KZOYUYYZ[[)] def
  114 /periodcentered [-5 5 (RQQRRSSRRQ)] def
  115 /bullet [-2 2 (QPPQPSQTSTTSTQSPQP RQQRRSSRRQ)] def
  116 /slash [-7 7 (K^YF)] def
  117 /backslash [-7 7 (KFY^)] def
  118 /underscore [-8 8 (J]Z])] def
  119 /tilde [-8 8 (LTLRMPOPUSWSXR LRMQOQUTWTXRXP)] def
  120 /A [-11 11 (RFK[ RFY[ RIX[ MUVU I[O[ U[[[)] def
  121 /B [-12 12 (LFL[ MFM[ IFUFXGYHZJZLYNXOUP UFWGXHYJYLXNWOUP MPUPXQYRZTZWYYXZU[I[ UPWQXRYTYWXYWZU[)] def
  122 /C [-10 10 (NFN[ OFO[ KFZFZLYF K[R[)] def
  123 /D [-11 11 (RFJ[ RFZ[ RIY[ KZYZ J[Z[)] def
  124 /E [-12 11 (LFL[ MFM[ SLST IFYFYLXF MPSP I[Y[YUX[)] def
  125 /F [-11 11 (XFK[ YFL[ LFKLKFYF K[Y[YUX[)] def
  126 /G [-13 13 (KFK[ LFL[ XFX[ YFY[ HFOF UF\\F LPXP H[O[ U[\\[)] def
  127 /H [-12 12 (QFNGLIKKJOJRKVLXNZQ[S[VZXXYVZRZOYKXIVGSFQF QFOGMILKKOKRLVMXOZQ[ S[UZWXXVYRYOXKWIUGSF OMOT UMUT OPUP OQUQ)] def
  128 /I [-6 7 (RFR[ SFS[ OFVF O[V[)] def
  129 /J [-13 11 (KFK[ LFL[ YFLS QOY[ POX[ HFOF UF[F H[O[ U[[[)] def
  130 /K [-11 11 (RFK[ RFY[ RIX[ I[O[ U[[[)] def
  131 /L [-13 14 (KFK[ LFRX KFR[ YFR[ YFY[ ZFZ[ HFLF YF]F H[N[ V[][)] def
  132 /M [-12 13 (LFL[ MFYY MHY[ YFY[ IFMF VF\\F I[O[)] def
  133 /N [-12 12 (KEJJ ZEYJ ONNS VNUS KWJ\\ ZWY\\ KGYG KHYH OPUP OQUQ KYYY KZYZ)] def
  134 /O [-12 12 (QFNGLIKKJOJRKVLXNZQ[S[VZXXYVZRZOYKXIVGSFQF QFOGMILKKOKRLVMXOZQ[ S[UZWXXVYRYOXKWIUGSF)] def
  135 /P [-13 13 (KFK[ LFL[ XFX[ YFY[ HF\\F H[O[ U[\\[)] def
  136 /Q [-12 12 (LFL[ MFM[ IFUFXGYHZJZMYOXPUQMQ UFWGXHYJYMXOWPUQ I[P[)] def
  137 /R [-11 12 (KFRPJ[ JFQP JFYFZLXF KZXZ J[Y[ZUX[)] def
  138 /S [-10 11 (RFR[ SFS[ LFKLKFZFZLYF O[V[)] def
  139 /T [-10 11 (KKKILGMFOFPGQIRMR[ KIMGOGQI ZKZIYGXFVFUGTISMS[ ZIXGVGTI O[V[)] def
  140 /U [-11 12 (RFR[ SFS[ PKMLLMKOKRLTMUPVUVXUYTZRZOYMXLUKPK PKNLMMLOLRMTNUPV UVWUXTYRYOXMWLUK OFVF O[V[)] def
  141 /V [-11 11 (KFX[ LFY[ YFK[ IFOF UF[F I[O[ U[[[)] def
  142 /W [-12 13 (RFR[ SFS[ IMJLLMMQNSOTQU JLKMLQMSNTQUTUWTXSYQZM[L TUVTWSXQYM[L\\M OFVF O[V[)] def
  143 /X [-12 12 (JXK[O[MWKSJPJLKIMGPFTFWGYIZLZPYSWWU[Y[ZX MWLTKPKLLINGPF TFVGXIYLYPXTWW KZNZ VZYZ)] def
  144 /a [-12 13 (QMNNLPKRJUJXKZN[P[RZUWWTYPZM QMONMPLRKUKXLZN[ QMSMUNVPXXYZZ[ SMTNUPWXXZZ[[[)] def
  145 /b [-12 11 (TFQGOIMMLPKTJZIb TFRGPINMMPLTKZJb TFVFXGYHYKXMWNTOPO VFXHXKWMVNTO POTPVRWTWWVYUZR[P[NZMYLV POSPURVTVWUYTZR[)] def
  146 /c [-11 11 (IPKNMMOMQNROSRSVRZOb JOLNPNRO ZMYPXRSYP^Nb YMXPWRSY)] def
  147 /d [-10 11 (VNTMRMONMQLTLWMYNZP[R[UZWWXTXQWOSJRHRFSEUEWFYH RMPNNQMTMXNZ R[TZVWWTWPVNTKSISGTFVFYH)] def
  148 /e [-10 10 (XPVNTMPMNNNPPRSS PMONOPQRSS SSNTLVLXMZP[S[UZWX SSOTMVMXNZP[)] def
  149 /f [-10 10 (TFRGQHQIRJUKZKZJWKSMPOMRLULWMYP[S]T_TaSbQbPa ULQONRMUMWNYP[)] def
  150 /g [-12 12 (HQIOKMNMONOPNTL[ MMNNNPMTK[ NTPPRNTMVMXNYOYRXWUb VMXOXRWWTb)] def
  151 /h [-13 12 (GQHOJMMMNNNPMUMXNZO[ LMMNMPLULXMZO[Q[SZUXWUXRYMYIXGVFTFRHRJSMUPWRZT SZUWVUWRXMXIWGVF)] def
  152 /i [-7 7 (RMPTOXOZP[S[UYVW SMQTPXPZQ[)] def
  153 /j [-11 11 (NMJ[ OMK[ XMYNZNYMWMUNQROSMS OSQTSZT[ OSPTRZS[U[WZYW)] def
  154 /k [-11 11 (KFMFOGPHQJWXXZY[ MFOHPJVXWZY[Z[ RMJ[ RMK[)] def
  155 /l [-13 12 (MMGb NMHb MPLVLYN[P[RZTXVU XMUXUZV[Y[[Y\\W YMVXVZW[)] def
  156 /m [-11 11 (NML[ OMNSMXL[ YMXQVU ZMYPXRVUTWQYOZL[ KMOM)] def
  157 /n [-10 9 (TFRGQHQIRJUKXK UKQLOMNONQPSSTVT UKRLPMOOOQQSST STOUMVLXLZN\\S^T_TaRbPb STPUNVMXMZO\\S^)] def
  158 /o [-10 10 (RMONMQLTLWMYNZP[R[UZWWXTXQWOVNTMRM RMPNNQMTMXNZ R[TZVWWTWPVN)] def
  159 /p [-12 12 (PNL[ PNM[ VNV[ VNW[ IPKNNM[M IPKONN[N)] def
  160 /q [-11 10 (LVMYNZP[R[UZWWXTXQWOVNTMRMONMQLTHb R[TZVWWTWPVN RMPNNQMTIb)] def
  161 /r [-11 12 ([MQMNNLQKTKWLYMZO[Q[TZVWWTWQVOUNSM QMONMQLTLXMZ Q[SZUWVTVPUN UN[N)] def
  162 /s [-11 11 (SNP[ SNQ[ JPLNOMZM JPLOONZN)] def
  163 /t [-11 11 (IQJOLMOMPNPPNVNYP[ NMONOPMVMYNZP[Q[TZVXXUYRYOXMWNXOYR XUYO)] def
  164 /u [-12 12 (ONMOKQJTJWKYLZN[Q[TZWXYUZRZOXMVMTORSPXMb JWLYNZQZTYWWYU ZOXNVNTPRSPYNb)] def
  165 /v [-10 10 (KMMMONPPU_VaWb MMNNOPT_UaWbYb ZMYOWRM]K`Jb)] def
  166 /w [-13 12 (UFOb VFNb GQHOJMMMNNNPMUMXOZRZTYWVYS LMMNMPLULXMZO[R[TZVXXUYS[M)] def
  167 /x [-13 12 (JQLOONNMLNJQITIWJZK[M[OZQWRT IWJYKZMZOYQW QTQWRZS[U[WZYWZTZQYNXMWNYOZQ QWRYSZUZWYYW)] def
  168 /space [-8 8 ()] def
  169 /Y [-9 9 ()] def
  170 /Z [-10 10 ()] def
  171 /y [-11 11 ()] def
  172 /z [-12 12 ()] def
  173 /zero [-10 10 (QFNGLJKOKRLWNZQ[S[VZXWYRYOXJVGSFQF QFOGNHMJLOLRMWNYOZQ[ S[UZVYWWXRXOWJVHUGSF)] def
  174 /one [-10 10 (NJPISFS[ RGR[ N[W[)] def
  175 /two [-10 10 (LJMKLLKKKJLHMGPFTFWGXHYJYLXNUPPRNSLUKXK[ TFVGWHXJXLWNTPPR KYLXNXSZVZXYYX NXS[W[XZYXYV)] def
  176 /three [-10 10 (LJMKLLKKKJLHMGPFTFWGXIXLWNTOQO TFVGWIWLVNTO TOVPXRYTYWXYWZT[P[MZLYKWKVLUMVLW WQXTXWWYVZT[)] def
  177 /four [-10 10 (THT[ UFU[ UFJUZU Q[X[)] def
  178 /five [-10 10 (MFKP KPMNPMSMVNXPYSYUXXVZS[P[MZLYKWKVLUMVLW SMUNWPXSXUWXUZS[ MFWF MGRGWF)] def
  179 /six [-10 10 (WIVJWKXJXIWGUFRFOGMILKKOKULXNZQ[S[VZXXYUYTXQVOSNRNOOMQLT RFPGNIMKLOLUMXOZQ[ S[UZWXXUXTWQUOSN)] def
  180 /seven [-10 10 (KFKL KJLHNFPFUIWIXHYF LHNGPGUI YFYIXLTQSSRVR[ XLSQRSQVQ[)] def
  181 /eight [-10 10 (PFMGLILLMNPOTOWNXLXIWGTFPF PFNGMIMLNNPO TOVNWLWIVGTF POMPLQKSKWLYMZP[T[WZXYYWYSXQWPTO PONPMQLSLWMYNZP[ T[VZWYXWXSWQVPTO)] def
  182 /nine [-10 10 (XMWPURRSQSNRLPKMKLLINGQFSFVGXIYLYRXVWXUZR[O[MZLXLWMVNWMX QSORMPLMLLMIOGQF SFUGWIXLXRWVVXTZR[)] def
  183 /period [-5 5 (RYQZR[SZRY)] def
  184 /comma [-5 5 (R[QZRYSZS\\R^Q_)] def
  185 /colon [-5 5 (RMQNROSNRM RYQZR[SZRY)] def
  186 /semicolon [-5 5 (RMQNROSNRM R[QZRYSZS\\R^Q_)] def
  187 /exclam [-5 5 (RFQHRTSHRF RHRN RYQZR[SZRY)] def
  188 /question [-9 9 (MJNKMLLKLJMHNGPFSFVGWHXJXLWNVORQRT SFUGVHWJWLVNTP RYQZR[SZRY)] def
  189 /ring [-7 7 (QFOGNINKOMQNSNUMVKVIUGSFQF)] def
  190 /asterisk [-8 8 (RFRR MIWO WIMO)] def
  191 /parenleft [-7 5 (VBTDRGPKOPOTPYR]T`Vb TDRHQKPPPTQYR\\T`)] def
  192 /parenright [-5 7 (NBPDRGTKUPUTTYR]P`Nb PDRHSKTPTTSYR\\P`)] def
  193 /bracketleft [-7 7 (OBOb PBPb OBVB ObVb)] def
  194 /bracketright [-7 7 (TBTb UBUb NBUB NbUb)] def
  195 /braceleft [-7 7 (TBRCQDPFPHQJRKSMSOQQ RCQEQGRISJTLTNSPORSTTVTXSZR[Q]Q_Ra QSSUSWRYQZP\\P^Q`RaTb)] def
  196 /bar [-7 7 (PBRCSDTFTHSJRKQMQOSQ RCSESGRIQJPLPNQPURQTPVPXQZR[S]S_Ra SSQUQWRYSZT\\T^S`RaPb)] def
  197 /braceright [-7 7 (PBRCSDTFTHSJRKQMQOSQ RCSESGRIQJPLPNQPURQTPVPXQZR[S]S_Ra SSQUQWRYSZT\\T^S`RaPb)] def
  198 /hyphen [-13 13 (IR[R)] def
  199 /plus [-13 13 (RIR[ IR[R)] def
  200 /equal [-13 13 (IO[O IU[U)] def
  201 /less [-12 12 (ZIJRZ[)] def
  202 /greater [-12 12 (JIZRJ[)] def
  203 /asciitilde [-12 12 (IUISJPLONOPPTSVTXTZS[Q ISJQLPNPPQTTVUXUZT[Q[O)] def
  204 /breve [-10 10 (KFLHNJQKSKVJXHYF KFLINKQLSLVKXIYF)] def
  205 /quoteright [-5 5 (RHQGRFSGSIRKQL)] def
  206 /quotesingle [-5 5 (RHQGRFSGSIRKQL)] def
  207 /quoteleft [-5 5 (SFRGQIQKRLSKRJ)] def
  208 /asciicircum [-8 8 (PLRITL MORJWO RJR[)] def
  209 /percent [-12 12 ([FI[ NFPHPJOLMMKMIKIIJGLFNFPGSHVHYG[F WTUUTWTYV[X[ZZ[X[VYTWT)] def
  210 /ampersand [-12 13 ([NZO[P\\O\\N[MZMYNXPVUTXRZP[M[JZIXIUJSPORMSKSIRGPFNGMIMKNNPQUXWZZ[[[\\Z\\Y M[KZJXJUKSMQ MKNMVXXZZ[)] def
  211 /at [-13 14 (WNVLTKQKOLNMMPMSNUPVSVUUVS QKOMNPNSOUPV WKVSVUXVZV\\T]Q]O\\L[JYHWGTFQFNGLHJJILHOHRIUJWLYNZQ[T[WZYYZX XKWSWUXV)] def
  212 /dollar [-10 10 (PBP_ TBT_ XIWJXKYJYIWGTFPFMGKIKKLMMNOOUQWRYT KKMMONUPWQXRYTYXWZT[P[MZKXKWLVMWLX)] def
  213 /numbersign [-10 11 (SFLb YFRb LQZQ KWYW)] def
  214 /section [-8 8 (UITJUKVJVIUGSFQFOGNINKOMQOVR OMTPVRWTWVVXTZ PNNPMRMTNVPXU[ NVSYU[V]V_UaSbQbOaN_N^O]P^O_)] def
  215 /dagger [-8 8 (RFQHRJSHRF RFRb RQQTRbSTRQ LMNNPMNLLM LMXM TMVNXMVLTM)] def
  216 /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
  217 /quotedbl [-9 9 (NFMGMM NGMM NFOGMM WFVGVM WGVM WFXGVM)] def
  218 /.notdef [ 0 0 () ] def		% not defined
  219 end
  220 /Hershey-Greek-Complex 5066557 [107 0 5066557]
  221   0.6 0 StandardEncoding makeHersheyFontGS993
  222 end