camera_enh2.bmp

visual c＋＋小波变换技术与工程实践的书的源代码作者：向世明

92 240.83518 704.53956 c

240.83518 705.37748 240.15175 706.06091 239.31411 706.06091 c

@c

B



@rax %Note: Object

239.45613 704.19487 278.76472 704.19600 @E

0 J 0 j [] 0 d 0 R 0 @G

0.00 0.00 0.00 1.00 K

0 0.21600 0.21600 0.00000 @w

/$fm 0 def

239.45613 704.19543 m

278.76472 704.19543 L

S



@rax %Note: Object

239.45613 704.19543 278.76472 734.91619 @E

0 J 0 j [] 0 d 0 R 0 @G

0.00 0.00 0.00 1.00 K

0 0.21600 0.21600 0.00000 @w

/$fm 0 def

278.76472 704.19543 m

263.97978 734.91619 L

239.45613 704.19543 L

S



@rax %Note: Object

230.74724 704.19543 263.97978 742.52750 @E

0 J 0 j [] 0 d 0 R 0 @G

0.00 0.00 0.00 1.00 K

0 0.21600 0.21600 0.00000 @w

/$fm 0 def

263.97978 734.91619 m

230.74724 742.52750 L

239.45613 704.19543 L

S



@rax %Note: Object

204.06557 704.19543 239.45613 742.52750 @E

0 J 0 j [] 0 d 0 R 0 @G

0.00 0.00 0.00 1.00 K

0 0.21600 0.21600 0.00000 @w

/$fm 0 def

230.74724 742.52750 m

204.06557 721.30394 L

239.45613 704.19543 L

S



@rax %Note: Object

230.17720 665.89427 239.45613 704.19543 @E

0 J 0 j [] 0 d 0 R 0 @G

0.00 0.00 0.00 1.00 K

0 0.21600 0.21600 0.00000 @w

/$fm 0 def

230.17720 666.24378 m

230.61345 665.89427 L

239.45613 704.19543 L

S



@rax %Note: Object

230.61345 665.89427 263.87263 704.19543 @E

0 J 0 j [] 0 d 0 R 0 @G

0.00 0.00 0.00 1.00 K

0 0.21600 0.21600 0.00000 @w

/$fm 0 def

230.61345 665.89427 m

263.87263 673.38964 L

239.45613 704.19543 L

S



@rax %Note: Object

239.45613 673.38964 278.76472 704.19543 @E

0 J 0 j [] 0 d 0 R 0 @G

0.00 0.00 0.00 1.00 K

0 0.21600 0.21600 0.00000 @w

/$fm 0 def

263.87263 673.38964 m

278.76472 704.19543 L

239.45613 704.19543 L

S



@rax %Note: Object

230.61317 665.89370 230.61345 665.89483 @E

0 J 0 j [] 0 d 0 R 0 @G

0.00 0.00 0.00 1.00 K

0 0.21600 0.21600 0.00000 @w

/$fm 0 def

230.61317 665.89427 m

230.61345 665.89427 L

230.61317 665.89427 L

@c

S



@rax %Note: Object

200.55969 699.62740 201.32022 700.38822 @E

 0 O 0 @g

0.00 0.00 0.00 1.00 k

0 J 0 j [] 0 d 0 R 0 @G

0.00 0.00 0.00 1.00 K

0 0.21600 0.21600 0.00000 @w

/$fm 0 def

200.94009 700.38822 m

200.73090 700.38822 200.55969 700.21729 200.55969 700.00781 c

200.55969 699.79833 200.73090 699.62740 200.94009 699.62740 c

201.14957 699.62740 201.32022 699.79833 201.32022 700.00781 c

201.32022 700.21729 201.14957 700.38822 200.94009 700.38822 c

@c

B



@rax %Note: Object

203.62592 686.83068 204.38646 687.59121 @E

 0 O 0 @g

0.00 0.00 0.00 1.00 k

0 J 0 j [] 0 d 0 R 0 @G

0.00 0.00 0.00 1.00 K

0 0.21600 0.21600 0.00000 @w

/$fm 0 def

204.00576 687.59121 m

203.79657 687.59121 203.62592 687.42000 203.62592 687.21080 c

203.62592 687.00189 203.79657 686.83068 204.00576 686.83068 c

204.21553 686.83068 204.38646 687.00189 204.38646 687.21080 c

204.38646 687.42000 204.21553 687.59121 204.00576 687.59121 c

@c

B



@rax %Note: Object

211.39569 677.35276 212.15650 678.11329 @E

 0 O 0 @g

0.00 0.00 0.00 1.00 k

0 J 0 j [] 0 d 0 R 0 @G

0.00 0.00 0.00 1.00 K

0 0.21600 0.21600 0.00000 @w

/$fm 0 def

211.77638 678.11329 m

211.56661 678.11329 211.39569 677.94236 211.39569 677.73288 c

211.39569 677.52369 211.56661 677.35276 211.77638 677.35276 c

211.98529 677.35276 212.15650 677.52369 212.15650 677.73288 c

212.15650 677.94236 211.98529 678.11329 211.77638 678.11329 c

@c

B



@rax 279.31465 700.05742 283.19357 707.05077 @E

[0.00015555 0.00000000 0.00000000 0.00015555 279.31483927 701.71604115] @tm

 0 O 0 @g

0.00 0.00 0.00 1.00 k

e

/Symbol 49388.00000 z

0 0 (b) @t

T

@rax 264.49852 734.62932 268.37717 741.62211 @E

[0.00015555 0.00000000 0.00000000 0.00015555 264.49843825 736.28764354] @tm

 0 O 0 @g

0.00 0.00 0.00 1.00 k

e

/Symbol 49388.00000 z

0 0 (b) @t

T

@rax 230.43402 743.11228 234.31266 750.10535 @E

[0.00015555 0.00000000 0.00000000 0.00015555 230.43393787 744.77071367] @tm

 0 O 0 @g

0.00 0.00 0.00 1.00 k

e

/Symbol 49388.00000 z

0 0 (b) @t

T

@rax 265.24290 667.34957 269.12154 674.34236 @E

[0.00015555 0.00000000 0.00000000 0.00015555 265.24275824 669.00796090] @tm

 0 O 0 @g

0.00 0.00 0.00 1.00 k

e

/Symbol 49388.00000 z

0 0 (b) @t

T

@rax 199.82665 720.97569 203.70557 727.96847 @E

[0.00015555 0.00000000 0.00000000 0.00015555 199.82659774 722.63399945] @tm

 0 O 0 @g

0.00 0.00 0.00 1.00 k

e

/Symbol 49388.00000 z

0 0 (b) @t

T

@rax 222.77310 697.77553 236.46104 704.76860 @E

[0.00015555 0.00000000 0.00000000 0.00015555 222.77296411 699.43408206] @tm

 0 O 0 @g

0.00 0.00 0.00 1.00 k

e

/_R8-TimesNewRoman-NormalItalic 49388.00000 z

0 0 (1-k) @t

T

@rax 222.77310 697.77553 236.46104 704.76860 @E

[0.00015555 0.00000000 0.00000000 0.00015555 222.77296411 699.43408206] @tm

 0 O 0 @g

0.00 0.00 0.00 1.00 k

e

/Symbol 49388.00000 z

63062 0 (b) @t

T

@rax 224.06513 658.34192 227.94406 665.33499 @E

[0.00015555 0.00000000 0.00000000 0.00015555 224.06541061 660.00041610] @tm

 0 O 0 @g

0.00 0.00 0.00 1.00 k

e

/Symbol 49388.00000 z

0 0 (b) @t

T

@rax 32.16926 633.82932 147.61106 640.35893 @E

[0.00028346 0.00000000 0.00000000 0.00028346 32.16925867 633.96848075] @tm

 0 O 0 @g

0.00 0.00 0.00 1.00 k

e

/_R8-TimesNewRoman-NormalItalic 32466.00000 z

0 0 (Catmull-Clark  smooth interior) @t

T


@rs

@rs


@EndSysCorelDict

end





%%EndDocument

 endTexFig
 2050 5029 a Fu(Figure)c(7:)23 b(Smooth)17 b(interior)g(v)o(erte)o(x)g
(rules)g(for)f(the)h(triangular)h(and)f(quadri-)2050
5112 y(lateral)30 b(schemes;)38 b(these)32 b(are)f(the)g(standard)h
(Loop)f(and)h(Catmull-Clark)2050 5195 y(subdi)n(vision)e(rules.)55
b(F)o(or)29 b(the)g(Loop)h(scheme,)i Ft(b)d Fu(can)h(be)g(chosen)g(to)f
(be)2050 5278 y(3)p Fr(=)p Fu(8)p Fs(k)q Fu(,)20 b(where)g
Fs(k)g Fu(is)f(the)g(de)o(gree,)h(for)f Fs(k)f Fr(>)f
Fu(3.)24 b(F)o(or)19 b Fs(k)f Fi(=)f Fu(3,)i Ft(b)g Fu(can)h(be)g(tak)o
(en)g(to)2050 5374 y(be)f(3)p Fr(=)p Fu(16.)24 b(F)o(or)18
b(the)h(Catmull-Clark)g(scheme,)g Ft(b)e Fi(=)3429 5344
y Fp(3)p 3416 5356 56 3 v 3416 5399 a(2)p Fl(k)3500 5374
y Fu(and)j Ft(g)p Fi(\()p Ft(q)p Fi(\))c(=)3869 5344
y Fp(1)p 3855 5356 V 3855 5399 a(4)p Fl(k)3921 5374 y
Fu(.)p eop
%%Page: 5 5
5 4 bop -40 -150 a
 14208860 5257274 7235993 32627752 28615065 40718909 startTexFig
 -40 -150 a
%%BeginDocument: edge-rules.eps









/AutoFlatness true def

/AutoSteps 0 def

/CMYKMarks false def

/UseLevel2 false def

%Color profile: Disabled


/wCorel7Dict 300 dict def wCorel7Dict begin
% Copyright (c)1992-96 Corel Corporation

% All rights reserved.     v7.0 r1.0

/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{pop pop pop}bd/@ss{2 index

0 eq{$dsf 3 1 roll 4 -1 roll pop}if exch $Scra add exch load SetScr}bd

/SepMode_5 where{pop}{/SepMode_5 0 def}ifelse/CurrentInkName_5 where{pop}

{/CurrentInkName_5(Composite)def}ifelse/$ink_5 where{pop}{/$ink_5 -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/$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#27/quotesingle

16#60/grave 16#7C/bar

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

/L2?/languagelevel where{pop languagelevel 2 ge}{false}ifelse def

/@BeginSysCorelDict{systemdict/Corel30Dict known{systemdict/Corel30Dict get

exec}if}bd/@EndSysCorelDict{systemdict/Corel30Dict known{end}if}bd 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 L2?{/@ssa{true setstrokeadjust}bd}{

/@ssa{}bd}ifelse/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/@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_5 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/@sqr{dup 0 rl dup 0 exch rl neg 0 rl @cp}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{}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 pop pop pop}bd/WaldoColor_5 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_5/setcmykcolor ld}{/SetCmyk_5{

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{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_5}bd/setprocesscolor_5{SepMode_5 0 eq{SetCmyk_5}{0

4 $ink_5 sub index exch pop 5 1 roll pop pop pop pop SepsColor true eq{$ink_5 3

gt{1 sub neg SetGry}{0 0 0 4 $ink_5 roll SetCmyk_5}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_5 0 eq{pop @tc_5 setprocesscolor_5}{CurrentInkName_5 eq{4 index}{0}

ifelse 6 1 roll 5 rp 1 sub neg SetGry}ifelse}bd}ifelse/@scc_5{dup type

/booleantype eq{setoverprint}{1 eq setoverprint}ifelse dup _ eq{pop

setprocesscolor_5 pop}{findcmykcustomcolor exch setcustomcolor}ifelse SepMode_5

0 eq{true}{GetGry 1 eq currentoverprint and not}ifelse}bd/colorimage where{pop

/ColorImage{colorimage}def}{/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_5/$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_5 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 pop pop pop pop}{pop pop}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 pop pop}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 pop pop}for}bd/$fm 0 def/wfill{1

$fm eq{fill}{eofill}ifelse}bd/wclip{1 $fm eq{clip}{eoclip}ifelse}bd/@pf{@gs

$ctm setmatrix $pm concat @stb wclip 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_5{wfill}if}{$t $c $m $y $k

$n $o @scc_5{SepMode_5 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/@Pf{@sv

SepMode_5 0 eq $Psc 0 ne or $ink_5 3 eq or{0 J 0 j[]0 d $t $c $m $y $k $n $o

@scc_5 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 wfill}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_5{wfill}{@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_5{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