pwrs.eps

开放源码的编译器open watcom 1.6.0版的源代码

%!PS-Adobe-3.0
%%Title: UNTITLED.CDR from CorelDRAW!
%%BoundingBox: 13 13 599 780
%%CreationDate: 02/28/96 16:43:24
%%Pages: 1
%%Requirements: None
%%LanguageLevel: 2
%%EndComments

%%BeginDocument: Pscript_Win_PassThrough
%%BeginSetup
/AutoFlatness false def
% Options: Emulsion Up
% Options: Print Positive Output
/SepsColor false def
/ATraps false def
/SepMode 0 def /CurrentInkName (Composite) def /$ink -1 def
%%EndSetup
%%BeginProlog
/Corelreg true def
% Copyright (c)1992, 1993 Corel Corporation. All rights reserved.
/wCorel4Dict 300 dict def wCorel4Dict begin/bd{bind def}bind def/ld{load def}
bd/xd{exch def}bd/_ null def/rp{{pop}repeat}bd/@cp/closepath ld/@gs/gsave ld
/@gr/grestore ld/@np/newpath ld/Tl/translate ld/$sv 0 def/@sv{/$sv save def}bd
/@rs{$sv restore}bd/spg/showpage ld/showpage{}bd currentscreen/@dsp xd/$dsp
/@dsp def/$dsa xd/$dsf xd/$sdf false def/$SDF false def/$Scra 0 def/SetScr
/setscreen ld/setscreen{3 rp}bd/@ss{2 index 0 eq{$dsf 3 1 roll 4 -1 roll pop}
if exch $Scra add exch load SetScr}bd/SepMode where{pop}{/SepMode 0 def}ifelse
/CurrentInkName where{pop}{/CurrentInkName(Composite)def}ifelse/$ink where
{pop}{/$ink -1 def}ifelse/$c 0 def/$m 0 def/$y 0 def/$k 0 def/$t 1 def/$n _
def
/$o 0 def/$fil 0 def/$C 0 def/$M 0 def/$Y 0 def/$K 0 def/$T 1 def/$N _ def
/$O 0
def/$PF false def/s1c 0 def/s1m 0 def/s1y 0 def/s1k 0 def/s1t 0 def/s1n _ def
/$bkg false def/SK 0 def/SM 0 def/SY 0 def/SC 0 def/$op false def matrix
currentmatrix/$ctm xd/$ptm matrix def/$ttm matrix def/$stm matrix def/$fst 128
def/$pad 0 def/$rox 0 def/$roy 0 def/$ffpnt true def/CorelDrawReencodeVect[
16#0/grave 16#5/breve 16#6/dotaccent 16#8/ring 16#A/hungarumlaut 16#B/ogonek
16#C/caron 16#D/dotlessi
16#82/quotesinglbase/florin/quotedblbase/ellipsis/dagger/daggerdbl
16#88/circumflex/perthousand/Scaron/guilsinglleft/OE
16#91/quoteleft/quoteright/quotedblleft/quotedblright/bullet/endash/emdash
16#98/tilde/trademark/scaron/guilsinglright/oe 16#9F/Ydieresis
16#A1/exclamdown/cent/sterling/currency/yen/brokenbar/section
16#a8/dieresis/copyright/ordfeminine/guillemotleft/logicalnot/minus
/registered/macron
16#b0/degree/plusminus/twosuperior/threesuperior/acute/mu/paragraph
/periodcentered
16#b8/cedilla/onesuperior/ordmasculine/guillemotright/onequarter
/onehalf/threequarters/questiondown
16#c0/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla
16#c8/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex/Idieresis
16#d0/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis/multiply
16#d8/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute/Thorn/germandbls
16#e0/agrave/aacute/acircumflex/atilde/adieresis/aring/ae/ccedilla
16#e8/egrave/eacute/ecircumflex/edieresis/igrave/iacute/icircumflex/idieresis
16#f0/eth/ntilde/ograve/oacute/ocircumflex/otilde/odieresis/divide
16#f8/oslash/ugrave/uacute/ucircumflex/udieresis/yacute/thorn/ydieresis]def
AutoFlatness{/@ifl{dup currentflat exch sub 10 gt{
([Error: PathTooComplex; OffendingCommand: AnyPaintingOperator]\n)print flush
@np exit}{currentflat 2 add setflat}ifelse}bd/@fill/fill ld/fill{currentflat{
{@fill}stopped{@ifl}{exit}ifelse}bind loop setflat}bd/@eofill/eofill ld/eofill
{currentflat{{@eofill}stopped{@ifl}{exit}ifelse}bind loop setflat}bd/@clip
/clip ld/clip{currentflat{{@clip}stopped{@ifl}{exit}ifelse}bind loop setflat}
bd/@eoclip/eoclip ld/eoclip{currentflat{{@eoclip}stopped{@ifl}{exit}ifelse}
bind loop setflat}bd/@stroke/stroke ld/stroke{currentflat{{@stroke}stopped
{@ifl}{exit}ifelse}bind loop setflat}bd}if/d/setdash ld/j/setlinejoin ld/J
/setlinecap ld/M/setmiterlimit ld/w/setlinewidth ld/O{/$o xd}bd/R{/$O xd}bd/W
/eoclip ld/c/curveto ld/C/c ld/l/lineto ld/L/l ld/rl/rlineto ld/m/moveto ld/n
/newpath ld/N/newpath ld/P{11 rp}bd/u{}bd/U{}bd/A{pop}bd/q/@gs ld/Q/@gr ld/`
{}bd/~{}bd/@{}bd/&{}bd/@j{@sv @np}bd/@J{@rs}bd/g{1 exch sub/$k xd/$c 0 def
/$m 0
def/$y 0 def/$t 1 def/$n _ def/$fil 0 def}bd/G{1 sub neg/$K xd _ 1 0 0 0/$C xd
/$M xd/$Y xd/$T xd/$N xd}bd/k{1 index type/stringtype eq{/$t xd/$n xd}{/$t 0
def/$n _ def}ifelse/$k xd/$y xd/$m xd/$c xd/$fil 0 def}bd/K{1 index type
/stringtype eq{/$T xd/$N xd}{/$T 0 def/$N _ def}ifelse/$K xd/$Y xd/$M xd/$C xd
}bd/x/k ld/X/K ld/sf{1 index type/stringtype eq{/s1t xd/s1n xd}{/s1t 0 def/s1n
_ def}ifelse/s1k xd/s1y xd/s1m xd/s1c xd}bd/i{dup 0 ne{setflat}{pop}ifelse}bd
/v{4 -2 roll 2 copy 6 -2 roll c}bd/V/v ld/y{2 copy c}bd/Y/y ld/@w{matrix
rotate
/$ptm xd matrix scale $ptm dup concatmatrix/$ptm xd 1 eq{$ptm exch dup
concatmatrix/$ptm xd}if 1 w}bd/@g{1 eq dup/$sdf xd{/$scp xd/$sca xd/$scf xd}if
}bd/@G{1 eq dup/$SDF xd{/$SCP xd/$SCA xd/$SCF xd}if}bd/@D{2 index 0 eq{$dsf
3 1
roll 4 -1 roll pop}if 3 copy exch $Scra add exch load SetScr/$dsp xd/$dsa xd
/$dsf xd}bd/$ngx{$SDF{$SCF SepMode 0 eq{$SCA}{$dsa}ifelse $SCP @ss}if}bd/p{
/$pm xd 7 rp/$pyf xd/$pxf xd/$pn xd/$fil 1 def}bd/@MN{2 copy le{pop}{exch pop}
ifelse}bd/@MX{2 copy ge{pop}{exch pop}ifelse}bd/InRange{3 -1 roll @MN @MX}bd
/wDstChck{2 1 roll dup 3 -1 roll eq{1 add}if}bd/@dot{dup mul exch dup mul
add 1
exch sub}bd/@lin{exch pop abs 1 exch sub}bd/cmyk2rgb{3{dup 5 -1 roll add 1
exch
sub dup 0 lt{pop 0}if exch}repeat pop}bd/rgb2cmyk{3{1 exch sub 3 1 roll}repeat
3 copy @MN @MN 3{dup 5 -1 roll sub neg exch}repeat}bd/rgb2g{2 index .299 mul 2
index .587 mul add 1 index .114 mul add 4 1 roll 3 rp}bd/WaldoColor where{pop}
{/SetRgb/setrgbcolor ld/GetRgb/currentrgbcolor ld/SetGry/setgray ld/GetGry
/currentgray ld/SetRgb2 systemdict/setrgbcolor get def/GetRgb2 systemdict
/currentrgbcolor get def/SetHsb systemdict/sethsbcolor get def/GetHsb
systemdict/currenthsbcolor get def/rgb2hsb{SetRgb2 GetHsb}bd/hsb2rgb{3 -1 roll
dup floor sub 3 1 roll SetHsb GetRgb2}bd/setcmykcolor where{pop/SetCmyk
/setcmykcolor ld}{/SetCmyk{cmyk2rgb SetRgb}bd}ifelse/currentcmykcolor where{
pop/GetCmyk/currentcmykcolor ld}{/GetCmyk{GetRgb rgb2cmyk}bd}ifelse
/setoverprint where{pop}{/setoverprint{/$op xd}bd}ifelse/currentoverprint
where
{pop}{/currentoverprint{$op}bd}ifelse/@tc{5 -1 roll dup 1 ge{pop}{4{dup 6 -1
roll mul exch}repeat pop}ifelse}bd/@trp{exch pop 5 1 roll @tc}bd
/setprocesscolor{SepMode 0 eq{SetCmyk}{0 4 $ink sub index exch pop 5 1 roll 4
rp SepsColor true eq{$ink 3 gt{1 sub neg SetGry}{0 0 0 4 $ink roll SetCmyk}
ifelse}{1 sub neg SetGry}ifelse}ifelse}bd/findcmykcustomcolor where{pop}{
/findcmykcustomcolor{5 array astore}bd}ifelse/setcustomcolor where{pop}{
/setcustomcolor{exch aload pop SepMode 0 eq{pop @tc setprocesscolor}{
CurrentInkName eq{4 index}{0}ifelse 6 1 roll 5 rp 1 sub neg SetGry}ifelse}bd}
ifelse/@scc{dup type/booleantype eq{setoverprint}{1 eq setoverprint}ifelse dup
_ eq{pop setprocesscolor pop}{findcmykcustomcolor exch setcustomcolor}ifelse
SepMode 0 eq{true}{GetGry 1 eq currentoverprint and not}ifelse}bd/colorimage
where{pop/ColorImage/colorimage ld}{/ColorImage{/ncolors xd pop/dataaq xd{
dataaq ncolors dup 3 eq{/$dat xd 0 1 $dat length 3 div 1 sub{dup 3 mul $dat 1
index get 255 div $dat 2 index 1 add get 255 div $dat 3 index 2 add get 255
div
rgb2g 255 mul cvi exch pop $dat 3 1 roll put}for $dat 0 $dat length 3 idiv
getinterval pop}{4 eq{/$dat xd 0 1 $dat length 4 div 1 sub{dup 4 mul $dat 1
index get 255 div $dat 2 index 1 add get 255 div $dat 3 index 2 add get 255
div
$dat 4 index 3 add get 255 div cmyk2rgb rgb2g 255 mul cvi exch pop $dat 3 1
roll put}for $dat 0 $dat length ncolors idiv getinterval}if}ifelse}image}bd
}ifelse/setcmykcolor{1 5 1 roll _ currentoverprint @scc/$ffpnt xd}bd
/currentcmykcolor{0 0 0 0}bd/setrgbcolor{rgb2cmyk setcmykcolor}bd
/currentrgbcolor{currentcmykcolor cmyk2rgb}bd/sethsbcolor{hsb2rgb setrgbcolor}
bd/currenthsbcolor{currentrgbcolor rgb2hsb}bd/setgray{dup dup setrgbcolor}bd
/currentgray{currentrgbcolor rgb2g}bd}ifelse/WaldoColor true def/@sft{$tllx
$pxf add dup $tllx gt{$pwid sub}if/$tx xd $tury $pyf sub dup $tury lt{$phei
add}if/$ty xd}bd/@stb{pathbbox/$ury xd/$urx xd/$lly xd/$llx xd}bd/@ep{{cvx
exec
}forall}bd/@tp{@sv/$in true def 2 copy dup $lly le{/$in false def}if $phei sub
$ury ge{/$in false def}if dup $urx ge{/$in false def}if $pwid add $llx le{/$in
false def}if $in{@np 2 copy m $pwid 0 rl 0 $phei neg rl $pwid neg 0 rl 0 $phei
rl clip @np $pn cvlit load aload pop 7 -1 roll 5 index sub 7 -1 roll 3 index
sub Tl matrix currentmatrix/$ctm xd @ep 4 rp}{2 rp}ifelse @rs}bd/@th{@sft 0 1
$tly 1 sub{dup $psx mul $tx add{dup $llx gt{$pwid sub}{exit}ifelse}loop exch
$phei mul $ty exch sub 0 1 $tlx 1 sub{$pwid mul 3 copy 3 -1 roll add exch @tp
pop}for 2 rp}for}bd/@tv{@sft 0 1 $tlx 1 sub{dup $pwid mul $tx add exch $psy
mul
$ty exch sub{dup $ury lt{$phei add}{exit}ifelse}loop 0 1 $tly 1 sub{$phei
mul 3
copy sub @tp pop}for 2 rp}for}bd/@pf{@gs $ctm setmatrix $pm concat @stb eoclip
Bburx Bbury $pm itransform/$tury xd/$turx xd Bbllx Bblly $pm itransform/$tlly
xd/$tllx xd/$wid $turx $tllx sub def/$hei $tury $tlly sub def @gs $vectpat{1 0
0 0 0 _ $o @scc{eofill}if}{$t $c $m $y $k $n $o @scc{SepMode 0 eq $pfrg or{
$tllx $tlly Tl $wid $hei scale <00> 8 1 false[8 0 0 1 0 0]{}imagemask}{/$bkg
true def}ifelse}if}ifelse @gr $wid 0 gt $hei 0 gt and{$pn cvlit load aload pop
/$pd xd 3 -1 roll sub/$phei xd exch sub/$pwid xd $wid $pwid div ceiling 1 add
/$tlx xd $hei $phei div ceiling 1 add/$tly xd $psx 0 eq{@tv}{@th}ifelse}if @gr
@np/$bkg false def}bd/@dlt{$fse $fss sub/nff xd $frb dup 1 eq exch 2 eq or{
$frt dup $frc $frm $fry $frk @tc 4 copy cmyk2rgb rgb2hsb 3 copy/myb xd/mys xd
/myh xd $tot $toc $tom $toy $tok @tc cmyk2rgb rgb2hsb 3 1 roll 4 1 roll 5 1
roll sub neg nff div/kdb xd sub neg nff div/kds xd sub neg dup 0 eq{pop $frb 2
eq{.99}{-.99}ifelse}if dup $frb 2 eq exch 0 lt and{1 add}if dup $frb 1 eq exch
0 gt and{1 sub}if nff div/kdh xd}{$frt dup $frc $frm $fry $frk @tc 5 copy $tot
dup $toc $tom $toy $tok @tc 5 1 roll 6 1 roll 7 1 roll 8 1 roll 9 1 roll sub
neg nff dup 1 gt{1 sub}if div/$dk xd sub neg nff dup 1 gt{1 sub}if div/$dy xd
sub neg nff dup 1 gt{1 sub}if div/$dm xd sub neg nff dup 1 gt{1 sub}if div/$dc
xd sub neg nff dup 1 gt{1 sub}if div/$dt xd}ifelse}bd/ffcol{5 copy $fsit 0 eq{
setcmykcolor pop}{SepMode 0 ne{$frn findcmykcustomcolor exch setcustomcolor}{4
rp $frc $frm $fry $frk $frn findcmykcustomcolor exch setcustomcolor}ifelse}
ifelse}bd/@ftl{1 index 4 index sub dup $pad mul dup/$pdw xd 2 mul sub $fst div
/$wid xd 2 index sub/$hei xd pop Tl @dlt $fss 0 eq{ffcol n 0 0 m 0 $hei l $pdw
$hei l $pdw 0 l @cp $ffpnt{fill}{@np}ifelse}if $fss $wid mul $pdw add 0 Tl nff
{ffcol n 0 0 m 0 $hei l $wid $hei l $wid 0 l @cp $ffpnt{fill}{@np}ifelse
$wid 0
Tl $frb dup 1 eq exch 2 eq or{4 rp myh mys myb kdb add 3 1 roll kds add 3 1
roll kdh add 3 1 roll 3 copy/myb xd/mys xd/myh xd hsb2rgb rgb2cmyk}{$dk add
5 1
roll $dy add 5 1 roll $dm add 5 1 roll $dc add 5 1 roll $dt add 5 1 roll}
ifelse}repeat 5 rp $tot dup $toc $tom $toy $tok @tc ffcol n 0 0 m 0 $hei l
$pdw
$hei l $pdw 0 l @cp $ffpnt{fill}{@np}ifelse 5 rp}bd/@ftr{1 index 4 index sub
dup $rox mul/$row xd 2 div 1 index 4 index sub dup $roy mul/$roh xd 2 div 2
copy dup mul exch dup mul add sqrt $row dup mul $roh dup mul add sqrt add dup
/$hei xd $fst div/$wid xd 4 index add $roh add exch 5 index add $row add exch
Tl 4 rp @dlt $fss 0 eq{ffcol $wid 0 m 0 0 $hei 0 360 arc $ffpnt{fill}{@np}
ifelse}if 1.0 $pad 2 mul sub dup scale $hei $fss $wid mul sub/$hei xd nff{
ffcol n $wid 0 m 0 0 $hei 0 360 arc $ffpnt{fill}{@np}ifelse/$hei $hei $wid sub
def $frb dup 1 eq exch 2 eq or{4 rp myh mys myb kdb add 3 1 roll kds add 3 1
roll kdh add 3 1 roll 3 copy/myb xd/mys xd/myh xd hsb2rgb rgb2cmyk}{$dk
add 5 1
roll $dy add 5 1 roll $dm add 5 1 roll $dc add 5 1 roll $dt add 5 1 roll}
ifelse}repeat 5 rp}bd/@ftc{1 index 4 index sub dup $rox mul/$row xd 2 div 1
index 4 index sub dup $roy mul/$roh xd 2 div 2 copy dup mul exch dup mul add
sqrt $row dup mul $roh dup mul add sqrt add dup/$hei xd $fst div/$wid xd 4
index add $roh add exch 5 index add $row add exch Tl 4 rp @dlt $fss 0 eq{ffcol
$ffpnt{fill}{@np}ifelse}{n}ifelse/$dang 180 $fst 1 sub div def/$sang $dang -2
div 180 add def/$eang $dang 2 div 180 add def/$sang $sang $dang $fss mul add
def/$eang $eang $dang $fss mul add def/$sang $eang $dang sub def nff{ffcol n
$wid 0 m 0 0 $hei $sang $fan add $eang $fan add arc $ffpnt{fill}{@np}ifelse
$wid 0 m 0 0 $hei $eang neg $fan add $sang neg $fan add arc $ffpnt{fill}{@np}
ifelse/$sang $eang def/$eang $eang $dang add def $frb dup 1 eq exch 2 eq or{4
rp myh mys myb kdb add 3 1 roll kds add 3 1 roll kdh add 3 1 roll 3 copy/myb
xd
/mys xd/myh xd hsb2rgb rgb2cmyk}{$dk add 5 1 roll $dy add 5 1 roll $dm add 5 1
roll $dc add 5 1 roll $dt add 5 1 roll}ifelse}repeat 5 rp}bd/@ff{/$fss 0 def
$o
1 eq setoverprint 1 1 $fsc 1 sub{dup 1 sub $fsit 0 eq{$fsa exch 5 mul 5
getinterval aload 2 rp/$frk xd/$fry xd/$frm xd/$frc xd/$frn _ def/$frt 1 def
$fsa exch 5 mul 5 getinterval aload pop $fss add/$fse xd/$tok xd/$toy xd/$tom
xd/$toc xd/$ton _ def/$tot 1 def}{$fsa exch 7 mul 7 getinterval aload 2 rp
/$frt xd/$frn xd/$frk xd/$fry xd/$frm xd/$frc xd $fsa exch 7 mul 7 getinterval
aload pop $fss add/$fse xd/$tot xd/$ton xd/$tok xd/$toy xd/$tom xd/$toc xd}
ifelse $fsit 0 eq SepMode 0 eq or dup not CurrentInkName $frn eq and or{@sv
$ctm setmatrix eoclip Bbllx Bblly Bburx Bbury $fty 2 eq{@ftc}{$fty 1 eq{1
index
3 index m 2 copy l 3 index 1 index l 3 index 3 index l @cp @ftr}{1 index 3
index m 2 copy l 3 index 1 index l 3 index 3 index l @cp 4 rp $fan rotate
pathbbox @ftl}ifelse}ifelse @rs/$fss $fse def}{1 0 0 0 0 _ $o @scc{fill}if}
ifelse}for @np}bd/@Pf{@sv SepMode 0 eq $ink 3 eq or{0 J 0 j[]0 d $t $c $m $y
$k
$n $o @scc pop $ctm setmatrix 72 1000 div dup matrix scale dup concat dup
Bburx
exch Bbury exch itransform ceiling cvi/Bbury xd ceiling cvi/Bburx xd Bbllx
exch
Bblly exch itransform floor cvi/Bblly xd floor cvi/Bbllx xd $Prm aload pop
$Psn
load exec}{1 SetGry eofill}ifelse @rs @np}bd/F{matrix currentmatrix $sdf{$scf
$sca $scp @ss}if $fil 1 eq{@pf}{$fil 2 eq{@ff}{$fil 3 eq{@Pf}{$t $c $m $y $k
$n
$o @scc{eofill}{@np}ifelse}ifelse}ifelse}ifelse $sdf{$dsf $dsa $dsp @ss}if
setmatrix}bd/f{@cp F}bd/S{matrix currentmatrix $ctm setmatrix $SDF{$SCF $SCA
$SCP @ss}if $T $C $M $Y $K $N $O @scc{matrix currentmatrix $ptm concat stroke
setmatrix}{@np}ifelse $SDF{$dsf $dsa $dsp @ss}if setmatrix}bd/s{@cp S}bd/B{@gs
F @gr S}bd/b{@cp B}bd/E{5 array astore exch cvlit xd}bd/@cc{currentfile $dat
readhexstring pop}bd/@sm{/$ctm $ctm currentmatrix def}bd/@E{/Bbury xd/Bburx xd
/Bblly xd/Bbllx xd}bd/@c{@cp}bd/@p{/$fil 1 def 1 eq dup/$vectpat xd{/$pfrg
true
def}{@gs $t $c $m $y $k $n $o @scc/$pfrg xd @gr}ifelse/$pm xd/$psy xd/$psx xd
/$pyf xd/$pxf xd/$pn xd}bd/@P{/$fil 3 def/$Psn xd array astore/$Prm xd}bd/@k{
/$fil 2 def/$roy xd/$rox xd/$pad xd/$fty xd/$fan xd $fty 1 eq{/$fan 0 def}if
/$frb xd/$fst xd/$fsc xd/$fsa xd/$fsit 0 def}bd/@x{/$fil 2 def/$roy xd/$rox xd
/$pad xd/$fty xd/$fan xd $fty 1 eq{/$fan 0 def}if/$frb xd/$fst xd/$fsc xd/$fsa
xd/$fsit 1 def}bd/@ii{concat 3 index 3 index m 3 index 1 index l 2 copy l 1
index 3 index l 3 index 3 index l clip 4 rp}bd/tcc{@cc}def/@i{@sm @gs @ii 6
index 1 ne{/$frg true def 2 rp}{1 eq{s1t s1c s1m s1y s1k s1n $O @scc/$frg xd}{
/$frg false def}ifelse 1 eq{@gs $ctm setmatrix F @gr}if}ifelse @np/$ury xd
/$urx xd/$lly xd/$llx xd/$bts xd/$hei xd/$wid xd/$dat $wid $bts mul 8 div
ceiling cvi string def $bkg $frg or{$SDF{$SCF $SCA $SCP @ss}if $llx $lly Tl
$urx $llx sub $ury $lly sub scale $bkg{$t $c $m $y $k $n $o @scc pop}if $wid
$hei abs $bts 1 eq{$bkg}{$bts}ifelse[$wid 0 0 $hei neg 0 $hei 0
gt{$hei}{0}ifelse]/tcc load $bts 1 eq{imagemask}{image}ifelse $SDF{$dsf $dsa
$dsp @ss}if}{$hei abs{tcc pop}repeat}ifelse @gr $ctm setmatrix}bd/@M{@sv}bd/@N
{/@cc{}def 1 eq{12 -1 roll neg 12 1 roll @I}{13 -1 roll neg 13 1 roll @i}
ifelse @rs}bd/@I{@sm @gs @ii @np/$ury xd/$urx xd/$lly xd/$llx xd/$ncl xd/$bts
xd/$hei xd/$wid xd/$dat $wid $bts mul $ncl mul 8 div ceiling cvi string def
$ngx $llx $lly Tl $urx $llx sub $ury $lly sub scale $wid $hei abs $bts[$wid
0 0
$hei neg 0 $hei 0 gt{$hei}{0}ifelse]/@cc load false $ncl ColorImage $SDF{$dsf
$dsa $dsp @ss}if @gr $ctm setmatrix}bd/z{exch findfont exch scalefont setfont}
bd/ZB{9 dict dup begin 4 1 roll/FontType 3 def/FontMatrix xd/FontBBox xd
/Encoding 256 array def 0 1 255{Encoding exch/.notdef put}for/CharStrings 256
dict def CharStrings/.notdef{}put/Metrics 256 dict def Metrics/.notdef 3 -1
roll put/BuildChar{exch dup/$char exch/Encoding get 3 index get def dup
/Metrics get $char get aload pop setcachedevice begin Encoding exch get
CharStrings exch get end exec}def end definefont pop}bd/ZBAddChar{findfont
begin dup 4 1 roll dup 6 1 roll Encoding 3 1 roll put CharStrings 3 1 roll put
Metrics 3 1 roll put end}bd/Z{findfont dup maxlength 2 add dict exch dup{1
index/FID ne{3 index 3 1 roll put}{2 rp}ifelse}forall pop dup dup/Encoding get
256 array copy dup/$fe xd/Encoding exch put dup/Fontname 3 index put 3 -1 roll
dup length 0 ne{0 exch{dup type 0 type eq{exch pop}{$fe exch 2 index exch put
1
add}ifelse}forall pop}if dup 256 dict dup/$met xd/Metrics exch put dup
/FontMatrix get 0 get 1000 mul 1 exch div 3 index length 256 eq{0 1 255{dup
$fe
exch get dup/.notdef eq{2 rp}{5 index 3 -1 roll get 2 index mul $met 3 1 roll
put}ifelse}for}if pop definefont pop pop}bd/@ftx{{currentpoint 3 -1 roll(0)dup
3 -1 roll 0 exch put dup @gs true charpath $ctm setmatrix @@txt @gr @np
stringwidth pop 3 -1 roll add exch moveto}forall}bd/@ft{matrix currentmatrix
exch $sdf{$scf $sca $scp @ss}if $fil 1 eq{/@@txt/@pf ld @ftx}{$fil 2 eq{/@@txt
/@ff ld @ftx}{$fil 3 eq{/@@txt/@Pf ld @ftx}{$t $c $m $y $k $n $o @scc{show}
{pop}ifelse}ifelse}ifelse}ifelse $sdf{$dsf $dsa $dsp @ss}if setmatrix}bd/@st{
matrix currentmatrix exch $SDF{$SCF $SCA $SCP @ss}if $T $C $M $Y $K $N $O @scc
{{currentpoint 3 -1 roll(0)dup 3 -1 roll 0 exch put dup @gs true charpath $ctm
setmatrix $ptm concat stroke @gr @np stringwidth pop 3 -1 roll add exch moveto
}forall}{pop}ifelse $SDF{$dsf $dsa $dsp @ss}if setmatrix}bd/@te{@ft}bd/@tr{@st
}bd/@ta{dup @gs @ft @gr @st}bd/@t@a{dup @gs @st @gr @ft}bd/@tm{@sm concat}bd/e
{/t{@te}def}bd/r{/t{@tr}def}bd/o{/t{pop}def}bd/a{/t{@ta}def}bd/@a{/t{@t@a}def}
bd/t{@te}def/T{@np $ctm setmatrix/$ttm matrix def}bd/ddt{t}def/@t{/$stm $stm
currentmatrix def 3 1 roll moveto $ttm concat ddt $stm setmatrix}bd/@n{/$ttm
exch matrix rotate def}bd/@s{}bd/@l{}bd/@B{@gs S @gr F}bd/@b{@cp @B}bd/@sep{
CurrentInkName(Composite)eq{/$ink -1 def}{CurrentInkName(Cyan)eq{/$ink 0 def}{
CurrentInkName(Magenta)eq{/$ink 1 def}{CurrentInkName(Yellow)eq{/$ink 2 def}{
CurrentInkName(Black)eq{/$ink 3 def}{/$ink 4 def}ifelse}ifelse}ifelse}ifelse}
ifelse}bd/@whi{@gs -72000 dup moveto -72000 72000 lineto 72000 dup lineto
72000
-72000 lineto @cp 1 SetGry fill @gr}bd/@neg{[{1 exch sub}/exec cvx
currenttransfer/exec cvx]cvx settransfer @whi}bd/currentscale{1 0 dtransform
matrix defaultmatrix idtransform dup mul exch dup mul add sqrt 0 1 dtransform
matrix defaultmatrix idtransform dup mul exch dup mul add sqrt}bd/@unscale{
currentscale 1 exch div exch 1 exch div exch scale}bd/@square{dup 0 rlineto
dup
0 exch rlineto neg 0 rlineto @cp}bd/corelsym{@gs @np Tl -90 rotate 7{45 rotate
-.75 2 moveto 1.5 @square fill}repeat @gr}bd/@reg Corelreg{{@gs @np Tl -6 -6
moveto 12 @square @gs 1 GetGry sub SetGry fill @gr 4{90 rotate 0 4 m 0 4 rl}
repeat stroke 0 0 corelsym @gr}bd}{{@gs @np Tl .3 setlinewidth 0 0 5 0 360 arc
@cp @gs 1 GetGry sub SetGry fill @gr 4{90 rotate 0 0 m 0 8 rl}repeat stroke
@gr
}bd}ifelse/$corelmeter[1 .95 .75 .50 .25 .05 0]def/@colormeter{@gs @np 0
SetGry
0.3 setlinewidth/Courier findfont 5 scalefont setfont/yy xd/xx xd 0 1 6{xx 20
sub yy m 20 @square @gs $corelmeter exch get dup SetGry fill @gr stroke xx 2
add yy 8 add moveto 100 mul 100 exch sub cvi 20 string cvs show/yy yy 20 add
def}for @gr}bd/@crop{@gs .3 setlinewidth 0 SetGry Tl rotate 0 0 m 0 -24 rl -4
-24 m 8 @square -4 -20 m 8 0 rl stroke @gr}bd/@colorbox{@gs @np Tl 100 exch
sub
100 div SetGry -8 -8 moveto 16 @square fill 0 SetGry 10 -2 moveto show @gr}bd
/deflevel 0 def/@sax{/deflevel deflevel 1 add def}bd/@eax{/deflevel deflevel
dup 0 gt{1 sub}if def deflevel 0 gt{/eax load}{eax}ifelse}bd/eax{{exec}forall}
bd/@rax{deflevel 0 eq{@rs @sv}if}bd/@daq{dup type/arraytype eq{{}forall}if}bd
/@BMP{/@cc xd 11 index 1 eq{12 -1 roll pop @i}{7 -2 roll 2 rp @I}ifelse}bd end

%%EndProlog
/#copies 1 def
wCorel4Dict begin
0.00 0.00 Tl
1.0000 1.0000 scale
%%BeginSetup
11.4737 setmiterlimit
1.00 setflat
/$fst 128 def
%%EndSetup

%StartPage
@sv
/$ctm matrix currentmatrix def
@sv
%StartColorLayer (COMPOSITE)
%StartTile
/$ctm matrix currentmatrix def
@sv @sv
@rs 0 0 Tl 1.000000 1.000000 scale
0.000000 0.000000 Tl /$ctm matrix currentmatrix def @sv
@rax %%Note: Object
10.51 43.42 25.13 58.39 @E
 0 O 0 @g
0.00 0.00 0.00 1.00 k
10.51 58.39 m
10.87 58.39 L
11.38 58.39 L
12.02 58.39 L
12.74 58.39 L
13.82 58.39 L
14.83 58.39 L
15.98 58.39 L
17.06 58.39 L
18.22 58.39 L
19.44 58.39 L
20.74 58.39 L
21.96 58.39 L
23.11 58.39 L
24.12 58.39 L
25.13 58.39 L
24.41 58.39 L
23.76 58.18 L
23.04 58.03 L
22.39 57.67 L
21.10 57.31 L
20.02 56.59 L
18.58 55.94 L
17.57 55.01 L
16.49 54.14 L
15.62 53.06 L
14.54 52.13 L
13.82 51.05 L
12.89 49.97 L
12.31 48.60 L
11.59 47.52 L
11.23 46.22 L
10.87 45.58 L
10.73 44.86 L
10.51 44.14 L
10.51 43.42 L
10.51 44.64 L
10.51 45.72 L
10.51 46.94 L
10.51 48.10 L
10.51 49.61 L
10.51 50.76 L
10.51 51.98 L
10.51 53.06 L
10.51 54.14 L
10.51 55.15 L
10.51 56.23 L
10.51 56.95 L
10.51 57.67 L
10.51 58.03 L
10.51 58.39 L
@c
F

@rax %%Note: Object
32.90 50.40 40.97 58.39 @E
 0 O 0 @g
0.00 0.00 0.00 1.00 k
40.97 58.39 m
40.97 58.25 L
40.97 57.53 L
40.97 56.74 L
40.97 55.37 L
40.97 54.14 L
40.97 52.85 L
40.97 51.62 L
40.97 50.40 L
40.61 51.12 L
40.39 51.84 L
40.03 52.63 L
39.67 53.21 L
38.88 54.43 L
37.87 55.37 L
36.58 56.59 L
35.50 57.31 L
34.78 57.67 L
34.20 58.03 L
33.48 58.25 L
32.90 58.39 L
33.84 58.39 L
35.14 58.39 L
35.78 58.39 L
36.50 58.39 L
37.08 58.39 L
37.87 58.39 L
38.95 58.39 L
40.03 58.39 L
40.61 58.39 L
40.97 58.39 L
@c
F

@rax %%Note: Object
29.95 47.30 39.46 57.10 @E
 0 O 0 @g
0.00 0.00 0.00 1.00 k
29.95 47.30 m
29.95 48.60 L
29.95 49.97 L
29.95 51.12 L
29.95 52.20 L
29.95 53.42 L
29.95 54.65 L
29.95 55.94 L
29.95 57.10 L
30.74 57.10 L
31.61 56.95 L
32.54 56.74 L
33.48 56.30 L
34.20 55.94 L
35.06 55.22 L
35.78 54.79 L
36.50 54.07 L
36.94 53.42 L
37.51 52.70 L
38.16 51.84 L
38.59 51.05 L
38.88 50.33 L
39.24 49.32 L
39.31 48.38 L
39.46 47.30 L
38.23 47.30 L
36.94 47.30 L
35.78 47.30 L
34.70 47.30 L
33.48 47.30 L
32.33 47.30 L
30.96 47.30 L
29.95 47.30 L
@c
F

@rax %%Note: Object
29.95 45.36 31.10 46.44 @E
 0 O 0 @g
0.00 0.00 0.00 1.00 k
29.95 46.44 m
30.02 46.44 L
30.38 46.44 L
30.74 46.44 L
31.10 46.44 L
30.38 46.08 L
29.95 45.36 L
29.95 46.08 L
29.95 46.44 L
@c
F

@rax %%Note: Object
29.95 39.53 31.10 40.75 @E
 0 O 0 @g
0.00 0.00 0.00 1.00 k
29.95 39.53 m
30.02 39.53 L
30.38 39.53 L
30.74 39.53 L
31.10 39.53 L
30.38 40.18 L
29.95 40.75 L
29.95 40.03 L
29.95 39.53 L
@c
F

@rax %%Note: Object
33.98 41.04 39.46 46.44 @E
 0 O 0 @g
0.00 0.00 0.00 1.00 k
33.98 46.44 m
34.42 46.44 L
35.06 46.44 L
35.86 46.44 L
36.72 46.44 L
37.66 46.44 L
38.59 46.44 L
39.46 46.44 L
39.10 45.50 L
38.74 44.50 L
38.23 43.78 L
37.51 42.91 L
36.72 42.19 L
35.86 41.62 L
34.92 41.40 L
33.98 41.04 L
33.98 41.98 L
33.98 43.06 L
33.98 43.99 L
33.98 44.78 L
33.98 45.50 L
33.98 45.94 L
33.98 46.44 L
@c
F

@rax %%Note: Object