lefthand.eps

编程珍珠,里面很多好用的代码,大家可以参考学习呵呵,

%!PS-Adobe-2.0 EPSF-1.2

%%Title: lefthand
%%Creator: FreeHand 9.0
%%CreationDate: 4/6/01 10:08 AM
%%BoundingBox: 0 0 12 14
%%FHPathName:MacRomano HD:lefthand
%ALDOriginalFile:MacRomano HD:lefthand
%ALDBoundingBox: -14 -48 526 636
%%FHPageNum:1
%%DocumentSuppliedResources: procset Altsys_header 4 0
%%ColorUsage: Color
%%DocumentProcessColors: Black
%%DocumentNeededResources: font ZapfDingbats
%%DocumentFonts: ZapfDingbats
%%DocumentNeededFonts: ZapfDingbats
%%EndComments
%%BeginAGDEmbeddedDoc: version 1.0
%:s8W,W5t=="^::eu!!!L+GQHW($[>Xi(&mrF2@gE%A<RHWbN,W6
%:s8VK1Offg,K>q^?o'fMA";$QC!eQ$`P&/!EZFap2!_OUf@&p+>>I=X6[T6T>p43aUX_kIL>MDu^Q"mGR<\.:YXY5(OIU2t0F78P1S'?^1TDcpa\_l7bkAb+Zr9):l1R#T`&*@@N_FPdP^^X@C-+K&S4H`:M>h58&p_0eZkWob#\=@\Z\AsU].k<&G>jMP?Z*Zd+Cag/h\:C>rF0n,k(FO]ahbce;a"`dtN#V`*3Na_mY,qp>pBE0*
%:qeSPM-Go3g56lIt(*@bV`/A$-Fj>H(M'K8aiGHl_>B"niV5N"AGm=QpN6I[%9j)`LBAS"'fQ5VWhRi*.iGHf]4*'kdMr%e4YiacSGo5D[=a<Lh?QP1r,+<_XkfAl[R2`I&NnLXFh7@a81iHH^K97%8[lu=GGO*g39U`G=33;DNns8+@DV(sqk.(*W_i,PUb$4kP8p]9MCfodA+-SK3,6nse]IK!)/'92W.7U%2aYJLNEfeIn9+g-;
%:7aP%k0cD@>nR3u/;Cb#7!h@ND@V,*4gX=sR9:&2p=^ooa<3I\6/R9Q-<aTUt;1`o'eE32a%&pLXYsoeWB=.^hfLmB;,LjUAVCERFEVLC&e1hf$#rn5!H?>FbBb-@8QFZ`jR5N+IJK7XW8Q/%[AlY9lF'&$X+[`3r.%/Sem?ESda0>,X#Eoe+i4g_:Q@$E3haT&kYtRqFPHp(PQ739:\r,s;$4s]39>+5Rco4m=\]WKda_GR-o\<JZ
%:hRlO^3;b+E-7/ZA4-I_Qr&H3sFt*q=:<Ye@(b;f"r$H>/*IbN9ZcQp*WI[H!"8nVWNi"lkd?I')[,Mdbed&.Uqe)@&8o`L/M5CsCdF;TgdQ1s'LD!L-S,FWMMbog@>&3"OPR>L+)9l`jfuMI9H0NJ9ipn&sB?u:[,aiaP`AVY+7P9mn7Q`Ah$JT_;j@lRW.o8$'M/\<N%V28#,dSbm>Kc&&VrM_Y:-^Z`iC!kqinRbCMF!#NORJ0K
%:)^ihq3-bt7JPfrL"Y9]^IgdiH*ntlpBSeEB$*oO0!OGfd?-JpVED!be;E#EI7HEam'?(=@ld][c+g+eVGVu)GRkP3$//8phe<k,If$cRSbZ.OjM1o_1G_F7ml/W1#.4*jSCm#^eP&h0@of#*7%>^,oKi9Sgd""T?7l_u8&$?8YVfme.XjN_RS.'.tD`c#P;giIDW+P:'M(UjnVlJT1nf(Td;i$cnLY\1HMLHc%M::+LhO]8H_Z$H+
%:nHm/tHnT-4ef:;lT>b_'>A%a%^jNOm)8V&!,TFS/-.>hImrV/7VBd=>TWP47F[;%%`3<'X%6#Z^c4\DJY.3MZ+l!aQ6gf#OZ/F]-:.DZ]\%!*YUF:G&=-@+4,0Zk6&'`q2jR/g4KlFccQ4RIM6g?[ei&4[jUW1rXMcXnL<d>iUs.SJ1UbgO`H`=h&Z.?'s:QOKkOP?+X7k^2/>MCk!KA2;q)/eLg%JFliU(M)_[Nc<%0c'>n,a9Xi
%:#aaII;N9+6<ItOHPeP^Tk=O6AhNZ;oG?9_A0;deRXQ6u_U#/60CEPoPN+H%i@pi5$.lQ2'YSG=Sl&)bK-@J6YU[1.;5#ZKoei.t;r.C(%W7\u`A)S>fG*D]qoY(N;5Jq"RX`n_C.4spQWGgD[p<>JZ+r3drVb&O#Bu6rYDrru.CA=spqLJ$_k%\:gT>6k?i-Kh"CW:-&Yh;s8l625B^6gs<TaQ=Vd2p5%/7D,%egq^g\i:PmEM'<\
%:C(!PCQNRt"+ou$Ob:?s7O5Vf(`KdG;`Q.6tZFGV%*3.nkl$#TO8;(o^k4[VCdd;o1^7D'Sms[l=p`@:-^)rOWhc&[]T/2TE]l7l'=/D4b?5HMrTN6nHhBI`snl@1aT@d,!1BhVL>=u)9Y!APfY,#%!H/EAeK:Pr$GS8"7hA.Om4]PMEZ<c[^%5&&QNP\hn=_8e`B*4=2E\+E.d8fB\doc.=1_WFpCu0j,\?*=Umrg;#fK$61&pNno
%:']RP(2re;j19B2LWs]pQ<&!e#Trsb&q1DJAOo@ROFZ^d?i**`$="p/U6hrt";klV",JX:l=Ycq\0/<-,6N,*g94!]=N0<qR(O=!B=mdk>V=9r>cs)3ujP)5`N@J+Kesf0!D]94!9\ss?)sLV6hHYQe,q<hX_t;LK?H&FnZHf7iR]Z$5klYO9&$*A%I8[$<3S0(iDUK?G<n_$AQ.8L;9AR1lZq/qFWL%mrQ-tFY:$K2<?cZKGe.bdP
%:jKXgt<;(a`RpDg^Mtn.GeuuaI#^,d(MBCdc?>uEoG0Is2/0NBOm)SOZr@HQL;8t2T)d8YsP??A1h(F&9W*h70Ft['V-]kjZc+!HK,%C-G@p(l7AUMKJs1'oP5?"0%e;Ws[S%3u"&(t@^N.W\-oSB()S&r.rU`1$`cZc51?`[jt[&6_pI/D-RiZY[I[.`(9N8ZtBR<VY4egLsg3m"p&e<tYO&WcF`6u`S3gunPLhU:-(;Rq2?Ki_#Z
%:`7.`s;ck5j9HG[\odBUr_38&tOj6e!0@W")AKi1c'(&P[)F7ZkR!9*#n153/kuU*gaKq%*[6f"Q$J!@+aH!BNpT\3Y]?YBJI^iZQHgXR'rFlN-HM8*6C#KODD:cQAXJH-Pd3k4n^Ypo4R(8:/f?#oh;n9gpbs^(`PZXdpjf5alW5MMakg^/2\]W0Fr^]BJ1P^\J&gI2*%%EPb;b&oi3@g5Z4mj309.</Vf!%&LTg"AH64Z5q)T+4E
%:Ea!pJG$UM1"1+<cKU;G^He>aq\ZAuekg72S8#-naIoomaQ<LeY2HjY_/97oY-M#F(QP=DBBH7lY[)IAG3YQ)YYS5jY*U(Z-T@ioT*U%B%,16A;@A1;ikha*gFA*Hldh]*+Q?/&<p[Hb)`nG.a\L>cl5-&OM3@jr5EM.g1&W+6g^ZjSF_tr_hM#J0mrfK,246U,6,]$Vmgjk>,lEVe[+(uq"9@2DUdsK/1LA]^olG2%]1q1H<3J"^P
%:6njdkca.&i0.Nenqu1>2KPtiQb[!g9E5puWB=%X"Y'B8@+hX'GIuSeW^-X<DE"+5!Oe]-h9X_EnnY!UDZd-@qnPoDqi`T[LWoY<Xo]arPM#lFl`H_\K^Ss%>RaL.IV9U@O[7]e`oLe&#2cUYp&)5aS[oHsQ[BH8e7&b6a;C0QGrDm,Z+hc[Qkg>QJGnp;sZmH(ojM`cPjr0>o28Ti`n/_@(H)13B/B/U0a#3VnDT'fp3c<!IU-!Ep
%:YT;U9Minpc/^tO%mn'%78Alfh"cd(l3hC7Mg"R_"_`6?(j46fgRGp8&p(G-KiM/He?ch01a'>[OS;u-!c'UFojQ1s%/_\V0)i>nEqth#Rh@%5p'cJ46$G=UYa<N)'mpda5_VN/%Qe^g^4Wa%`#Lm2Gj<ngOL2XYL<AM,aW]eo0/"SuF`M86?j:-uQ1Y@G1aXW3Kb%O\Y]WLM,Qa&(08IfB0Z,OA93Qc)PdN=QOdU576kL.5JrrF"(
%:VKR?JWkSf5VV=gE-@u&uM\#5g=.WNu462co%/GE_nYgN+SDRVr(O(!.EUcLc-r6Y-f#"9S<tFNm)P)(Hhn2Cc+,3\?OY]?TVY>j-6[c9iK_26\=MB695B<clJ+A'X6i>&q/&o5iOCe!EFQQ90qtc^1T`f-*C#SJ?*C5+6F28,=ZBk5G<o)P20dW>\7o`/L/W\\`M:TWj/B#FuqiB[uGSIn8@_]jfKP3=8eP2OsRF9G&0G1O_W#m$%
%:[*fN9ZRV.G+-RueAZ1m,7m3.H$h5`0JmWTc6-:FIm?[8ign$77-r3_fV.`b;go7@@PZk;S(0ftghbs$Tfgp!-X^mVuiF^n>b,s_<PkRblqch5>4->fb3"&bD16ihYA&TXGQ&Q8>aZ^n.iZ=-TH]Im.)DOHt7%1V(/X'(P/.tp:cm#_/`O$5<iAYugcet]NcTR&prr^#/q.K(]q1EnZ6KX)/PrYD8'3.\)25lq9l81@&W`m[<r=;l&
%:G"%CjjnLR@<m0^&lac_FD:LM67G9nT/&jh\/09fs6G.u6'DQD#56fYp0Fg<ccfO]'F9-S:5ArOBT*>@EoI6]+r:C4Ki>,dk9,A3rGG[@kL%L-.\jGq$rK.Sp^]MRD8=9,ZZ;,X#&rUnXl%k*].R9-K?N(h;L\kkS,KW/1e8hIN**;'D_2e?M88!%`SFDeYR>o'4%=su%<:Vt*flM_u5_D5W1qD;*jnOEnXE.QIf(7j.+EP$?6B0]C
%:hsg3F^c4"I\)t?0>3e/W8a#g]hHn3/_,E%7Bs96)pWo3]_`rK6fRH=qD'2XgW,3:Y$9><CU5B=F`+g8R>ffn%Cd(PbipFjsP&ImhN!8W`T&\Z,VVJ.Sj&tDeYnJo7E%)%XEkfOJ.8?X@4t9f"Y:uNHhXY]o:o2t1gOjn\C/;:BPcGJ@XfZ;T%+I-meMam5CaK\4f\3cSo@)9PO/)"ZRqnHr!Y*E!N=AUGrUnZ<?"8;UZ+7StVe"Y[
%:ZLUSW219a?4<."I,ri:XiAc,g9cJe"WP54C0$m/7*/p="8gJY8/m=_^m%ri"s!#=,Zk_PU6<"=\=c:fT2g<SV0:p4Vn7VY&045l.`*]bk0Aun;_5m>mrdfRY28"r.n0[#/6+i2$n1J;AbRO;YmX?>jn3ajDIgI6&77dDJIArR7<4toQAb'DS;J<L5-!B8KMfKG[-2clqa5iC@59$L@[<FkR"Q!eE#MPB;IfM)&*rq6hBl%?hW[F*J
%:@VfTU!NT6hBk)5b!Zsg=FCeEcD.N\JVc?Z;EbTE(!!*a0ATDj2ARfgrG%F0aBk.2Dp.]L%@VTIaF8u=*9iH.SBl7P`!8pRFBle@r!8C49Bk)5b!.RI/6uQR+ART+\EW?)`7;QOPASuSi!OGm?DfT[p!NoHtE)0qX!!%pHBl%?KATM@%BlJ04EW?(s6>URMCB+Bi<+U;r6>URU!!.UL@:E2E@VfTU!In'IFE2)5B)huN;gE4hV%sVi
%:Der*]@WGmtGlRk7:i^Jn9QP:U!CBV'De!?hF`M$n!"2(_6q2*4F8u=c:gnBQB6%F"BE/%O9PJBU:gnGG!6IoKDIldU@VfTU!(fOrCi=>P!!(>=Ble@r!*M]uFC>.Lj%W9WD.N\I<'teLFDl"mEc5Ff!%^HFF(o,RBl%Sc!-:SFASk+TF*%B^F@C"WD,>7kE(k=p!!"T;@<6-m9PJBU!!%jFBkMR/AH2au<,$5l6Z6dZE]*muL/'jN
%:G#NL.Ch6F`DfABkF8u>^;fHYs6Z6dZE]*mtVaklDA7]f^!4tp5H"D!r!A72WFD(XS7mh32Ch7*uDfPgYKiDW.F@'e^@qu&ETgs-AF`7<\,scQlDg,#dFD(XTLK%i0F@0t_F_u!r!!!#s!N,s=!N,s=!N,s=!N,sc!N,sc!N,sc!N,sc!N,sc!N,sc!N,sc!N,sc!N,sc!N,sc!7(Ya!6"rW!6"rW!6"rW!6"rW!6"ra!$qUk$5qk7
%:!$qUk!$qUk!$qWk!N,s=!N,s=!N,s=!N,s=!N,s=!7(Z*!(d04!8mmU!4r5Q!8mjh!-A3_!2fhT!N,q0!-A5!!N,q0!-A5!!N,q0!-A5!!N,q0!-A5!!N,q0!-A7>!94(>!%e32!HnHb!ODg)!It3K!NlHX!%\/K!94%e!N,t$!?qPo!NlF\!NQ4B!J^[5!N,q0!7(\D!94*1!N,o*!NlHH!N,sr!94%e!NlHH!N,qX!"/h1b@&Z)
%:!HnLA!N,qX!"/h1!HnLA!N,qX!"/h1!HnLA!N,qX!"/h1!HnLA!N,qX!"/h1!HnLA!%e4p!N,oL!HnLA!%e4p!N,qX!)ruB!7(Z*!NlF_!8mj!!7(ZZ!8mo#!Z:tq!94'$!2fhW!-A7>!HJ4.!%\-1!9jLD!9jK*!A4@'!9jLJ!-A5o!HJ/l!9jLJ!-A5o!9jLJ!-A5o!8mjN!NlF\!94*X!94*X!94*X!94*X!94(D!94*Xd7hW@
%:!8mj8!94&^!94(D!94(D!94(D!94(D!94*X!94*X!Cd(L!8mj,7VlLTAOL*>De*DZs8W-!gTJ]Q
%:~>
%%EndAGDEmbeddedDoc
%%BeginResource: procset Altsys_header 4 0
userdict begin /AltsysDict 300 dict def end
AltsysDict begin
/bdf{bind def}bind def
/xdf{exch def}bdf
/defed{where{pop true}{false}ifelse}bdf
/ndf{1 index where{pop pop pop}{dup xcheck{bind}if def}ifelse}bdf
/d{setdash}bdf
/h{closepath}bdf
/H{}bdf
/J{setlinecap}bdf
/j{setlinejoin}bdf
/M{setmiterlimit}bdf
/n{newpath}bdf
/N{newpath}bdf
/q{gsave}bdf
/Q{grestore}bdf
/w{setlinewidth}bdf
/Xic{matrix invertmatrix concat}bdf
/Xq{matrix currentmatrix mark}bdf
/XQ{cleartomark setmatrix}bdf
/sepdef{
dup where not
{
AltsysSepDict
}
if 
3 1 roll exch put
}bdf
/st{settransfer}bdf
/colorimage defed /_rci xdf
/cntr 0 def
/readbinarystring{
/cntr 0 def
2 copy readstring
{
{
dup
(\034) search
{
length exch pop exch
dup length 0 ne
{
dup dup 0 get 32 sub 0 exch put 
/cntr cntr 1 add def
}
{
pop 1 string dup
0 6 index read pop 32 sub put
}ifelse
3 copy
putinterval pop
1 add
1 index length 1 sub
1 index sub 
dup 0 le {pop pop exit}if
getinterval
}
{
pop exit
} ifelse
} loop
}if
cntr 0 gt
{
pop 2 copy
dup length cntr sub cntr getinterval
readbinarystring
} if
pop exch pop
} bdf
/_NXLevel2 defed { 
_NXLevel2 not { 
/colorimage where {
userdict eq {
/_rci false def 
} if
} if
} if
} if
/md defed{ 
md type /dicttype eq { 
/colorimage where { 
md eq { 
/_rci false def 
}if
}if
/settransfer where {
md eq {
/st systemdict /settransfer get def
}if
}if
}if 
}if
/setstrokeadjust defed
{
true setstrokeadjust
/C{curveto}bdf
/L{lineto}bdf
/m{moveto}bdf
}
{
/dr{transform .25 sub round .25 add 
exch .25 sub round .25 add exch itransform}bdf
/C{dr curveto}bdf
/L{dr lineto}bdf
/m{dr moveto}bdf
/setstrokeadjust{pop}bdf 
}ifelse
/privrectpath { 
4 -2 roll m
dtransform round exch round exch idtransform 
2 copy 0 lt exch 0 lt xor
{dup 0 exch rlineto exch 0 rlineto neg 0 exch rlineto}
{exch dup 0 rlineto exch 0 exch rlineto neg 0 rlineto}
ifelse
closepath
}bdf
/rectclip{newpath privrectpath clip newpath}def
/rectfill{gsave newpath privrectpath fill grestore}def
/rectstroke{gsave newpath privrectpath stroke grestore}def
/_fonthacksave false def
/currentpacking defed 
{
/_bfh {/_fonthacksave currentpacking def false setpacking} bdf
/_efh {_fonthacksave setpacking} bdf
}
{
/_bfh {} bdf
/_efh {} bdf
}ifelse
/packedarray{array astore readonly}ndf
/` 
{ 
false setoverprint 
/-save0- save def
5 index concat
pop
storerect left bottom width height rectclip
pop
/MMdict_count countdictstack def
/MMop_count count 1 sub def
userdict begin
/showpage {} def
0 setgray 0 setlinecap 1 setlinewidth
0 setlinejoin 10 setmiterlimit [] 0 setdash newpath
} bdf
/currentpacking defed{true setpacking}if
/min{2 copy gt{exch}if pop}bdf
/max{2 copy lt{exch}if pop}bdf
/xformfont { currentfont exch makefont setfont } bdf
/fhnumcolors 1 
statusdict begin
/processcolors defed 
{
pop processcolors
}
{
/deviceinfo defed {
deviceinfo /Colors known {
pop deviceinfo /Colors get
} if
} if
} ifelse
end 
def
/printerRes 
gsave
matrix defaultmatrix setmatrix
72 72 dtransform
abs exch abs
max
grestore
def
/graycalcs
[
{Angle Frequency} 
{GrayAngle GrayFrequency} 
{0 Width Height matrix defaultmatrix idtransform 
dup mul exch dup mul add sqrt 72 exch div} 
{0 GrayWidth GrayHeight matrix defaultmatrix idtransform 
dup mul exch dup mul add sqrt 72 exch div} 
] def
/calcgraysteps {
forcemaxsteps
{
maxsteps
}
{
/currenthalftone defed
{currenthalftone /dicttype eq}{false}ifelse
{
currenthalftone begin
HalftoneType 4 le
{graycalcs HalftoneType 1 sub get exec}
{
HalftoneType 5 eq
{
Default begin
{graycalcs HalftoneType 1 sub get exec}
end
}
{0 60} 
ifelse
}
ifelse
end
}
{
currentscreen pop exch 
}
ifelse
printerRes 300 max exch div exch 
2 copy 
sin mul round dup mul 
3 1 roll 
cos mul round dup mul 
add 1 add 
dup maxsteps gt {pop maxsteps} if 
dup minsteps lt {pop minsteps} if 
}
ifelse
} bdf
/nextrelease defed { 
/languagelevel defed not { 
/framebuffer defed { 
0 40 string framebuffer 9 1 roll 8 {pop} repeat
dup 516 eq exch 520 eq or
{
/fhnumcolors 3 def
/currentscreen {60 0 {pop pop 1}}bdf
/calcgraysteps {maxsteps} bdf
}if
}if
}if
}if
fhnumcolors 1 ne {
/calcgraysteps {maxsteps} bdf
} if
/currentpagedevice defed {
currentpagedevice /PreRenderingEnhance known
{
currentpagedevice /PreRenderingEnhance get
{
/calcgraysteps 
{
forcemaxsteps 
{maxsteps}
{256 maxsteps min}
ifelse
} def
} if
} if
} if
/gradfrequency 144 def
printerRes 1000 lt {
/gradfrequency 72 def
} if
/adjnumsteps {
dup dtransform abs exch abs max 
printerRes div 
gradfrequency mul 
round 
5 max 
min 
}bdf
/goodsep {
spots exch get 4 get dup sepname eq exch (_vc_Registration) eq or
}bdf
/BeginGradation defed
{/bb{BeginGradation}bdf}
{/bb{}bdf}
ifelse
/EndGradation defed
{/eb{EndGradation}bdf}
{/eb{}bdf}
ifelse
/bottom -0 def 
/delta -0 def 
/frac -0 def 
/height -0 def 
/left -0 def 
/numsteps1 -0 def 
/radius -0 def 
/right -0 def 
/top -0 def 
/width -0 def 
/xt -0 def 
/yt -0 def 
/df currentflat def 
/tempstr 1 string def 
/clipflatness currentflat def 
/inverted? 
0 currenttransfer exec .5 ge def
/tc1 [0 0 0 1] def 
/tc2 [0 0 0 1] def 
/storerect{/top xdf /right xdf /bottom xdf /left xdf 
/width right left sub def /height top bottom sub def}bdf
/concatprocs{
systemdict /packedarray known 
{dup type /packedarraytype eq 2 index type /packedarraytype eq or}{false}ifelse
{ 
/proc2 exch cvlit def /proc1 exch cvlit def
proc1 aload pop proc2 aload pop
proc1 length proc2 length add packedarray cvx
}
{ 
/proc2 exch cvlit def /proc1 exch cvlit def
/newproc proc1 length proc2 length add array def
newproc 0 proc1 putinterval newproc proc1 length proc2 putinterval
newproc cvx
}ifelse
}bdf
/i{dup 0 eq
{pop df dup} 
{dup} ifelse 
/clipflatness xdf setflat
}bdf
version cvr 38.0 le
{/setrgbcolor{
currenttransfer exec 3 1 roll
currenttransfer exec 3 1 roll
currenttransfer exec 3 1 roll
setrgbcolor}bdf}if
/vms {/vmsv save def} bdf
/vmr {vmsv restore} bdf
/vmrs{vmsv restore /vmsv save def}bdf
/eomode{ 
{/filler /eofill load def /clipper /eoclip load def}
{/filler /fill load def /clipper /clip load def}
ifelse
}bdf
/normtaper{}bdf
/logtaper{9 mul 1 add log}bdf
/CD{
/NF exch def 
{ 
exch dup 
/FID ne 1 index/UniqueID ne and
{exch NF 3 1 roll put}
{pop pop}
ifelse
}forall 
NF
}bdf
/MN{
1 index length 
/Len exch def 
dup length Len add 
string dup 
Len 
4 -1 roll 
putinterval 
dup 
0 
4 -1 roll 
putinterval 
}bdf
/RC{4 -1 roll /ourvec xdf 256 string cvs(|______)anchorsearch
{1 index MN cvn/NewN exch def cvn
findfont dup maxlength dict CD dup/FontName NewN put dup
/Encoding ourvec put NewN exch definefont pop}{pop}ifelse}bdf
/RF{ 
dup 
FontDirectory exch 
known 
{pop 3 -1 roll pop} 
{RC}
ifelse
}bdf
/FF{dup 256 string cvs(|______)exch MN cvn dup FontDirectory exch known
{exch pop findfont 3 -1 roll pop}
{pop dup findfont dup maxlength dict CD dup dup
/Encoding exch /Encoding get 256 array copy 7 -1 roll 
{3 -1 roll dup 4 -2 roll put}forall put definefont}
ifelse}bdf
/RCJ{4 -1 roll 
/ourvec xdf 
256 string cvs 
(|______) anchorsearch
{pop 
cvn 
dup FDFJ 
exch 
1 index 
eq 
{
_bfh findfont _efh 
dup 
maxlength dict 
CD 
dup 
/FontName 
3 index 
put 
dup 
/Encoding ourvec put 
1 index 
exch 
definefont 
pop 
}
{exch pop} 
ifelse
}
{pop} 
ifelse
}bdf
/RFJ{ 
dup 
FontDirectory exch 
known 
{pop 3 -1 roll pop} 
{RCJ} 
ifelse
}bdf
/hasfont
{
/resourcestatus where 
{
pop 
/Font resourcestatus
{ 
pop pop true
}
{ 
false
}
ifelse
}
{
dup FontDirectory exch known
{pop true}
{
256 string
cvs
(fonts/) exch MN
status
{pop pop pop pop true}
{false}
ifelse
}
ifelse
}
ifelse
}bdf
/FDFJ
{
dup 
hasfont 
not 
{ 
pop
/Ryumin-Light-83pv-RKSJ-H
hasfont 
{
/Ryumin-Light-83pv-RKSJ-H
}
{
/Courier
}
ifelse 
}
if
}bdf
/FFJ{
_bfh
dup 
256 string cvs 
(|______)exch MN 
cvn 
dup 
FontDirectory
exch known 
{ 
exch 
pop 
findfont 
3 -1 roll 
pop 
}
{ 
pop 
FDFJ 
dup findfont 
dup maxlength dict 
CD 
dup dup 
/Encoding exch 
/Encoding get 
256 array copy 
7 -1 roll 
{ 
3 -1 roll 
dup 
4 -2 roll 
put 
}forall
put 
definefont 
}
ifelse
_efh
}bdf
/GS {
dup 
hasfont 
{
findfont
exch makesetfont
exch
pop
ts
}
{
pop pop pop
ts
} ifelse
} bdf
/RCK{4 -1 roll 
/ourvec xdf 
256 string cvs 
(|______) anchorsearch
{pop 
cvn 
dup FDFK 
exch 
1 index 
eq 
{
_bfh findfont _efh 
dup 
maxlength dict 
CD 
dup 
/FontName 
3 index 
put 
dup 
/Encoding ourvec put 
1 index 
exch 
definefont 
pop 
}
{exch pop} 
ifelse
}
{pop} 
ifelse
}bdf
/RFK{ 
dup 
FontDirectory exch 
known 
{pop 3 -1 roll pop} 
{RCK} 
ifelse
}bdf
/hasfont
{
/resourcestatus where 
{
pop 
/Font resourcestatus
{ 
pop pop true
}
{ 
false
}
ifelse
}
{
dup FontDirectory exch known
{pop true}
{
256 string
cvs
(fonts/) exch MN
status
{pop pop pop pop true}
{false}
ifelse
}
ifelse
}
ifelse
}bdf
/FDFK
{
dup 
hasfont 
not 
{ 
pop
/JCsm
hasfont 
{
/JCsm
}
{
/Courier
}
ifelse 
}
if
}bdf
/FFK{
_bfh
dup 
256 string cvs 
(|______)exch MN 
cvn 
dup 
FontDirectory
exch known 
{ 
exch 
pop 
findfont 
3 -1 roll 
pop 
}
{ 
pop 
FDFK 
dup findfont 
dup maxlength dict 
CD 
dup dup 
/Encoding exch 
/Encoding get 
256 array copy 
7 -1 roll 
{ 
3 -1 roll 
dup 
4 -2 roll 
put 
}forall
put 
definefont 
}
ifelse
_efh
}bdf
/RCTC{4 -1 roll 
/ourvec xdf 
256 string cvs 
(|______) anchorsearch
{pop 
cvn 
dup FDFTC 
exch 
1 index 
eq 
{
_bfh findfont _efh 
dup 
maxlength dict 
CD 
dup 
/FontName