%!PS-Adobe-2.0%%Creator: dvips 5.47 Copyright 1986-91 Radical Eye Software%%Title: rev.dvi%%Pages: 8 1%%BoundingBox: 0 0 612 792%%EndComments%%BeginProcSet: /u/risto/tex/lprep68.prosystemdict/currentpacking known{currentpacking true setpacking}if/LW{0}def /LW+{LW 2 eq}bind def/ok{systemdict/statusdict known dup{LW 0 gt and}if}bind def/md 250 dict def md begin/av 0 def/T true def/F false def/mtx matrix def/s75 75 string def/s8 8 string def/s1 ( ) def/pxs 1 def/pys 1 def1 0 mtx defaultmatrix dtransform exch atan/pa exch def/nlw .24 def/ppr [-32 -29.52 762 582.48] def/pgs 1 def/por true def/xb 500 array def/so true def/tso true def/fillflag false def/pnm 1 def/fmv true def/sfl false def/ma 0 def/invertflag false def/dbinvertflag false def/xflip false def/yflip false def/noflips true def/scaleby96 false def/fNote true def/fBitStretch true def/fg (Rvd\001\001\000\000\177) def/bdf{bind def}bind def/xdf{exch def}bdf/xl{neg exch neg translate}bdf/fp{pnsh 0 ne pnsv 0 ne and}bdf/nop{}bdf/lnop[/nop load]cvx bdf/vrb[{fp{fg 6 get 0 ne{gsave stroke grestore}{gsave 1 setlinewidth pnsh pnsv scale stroke grestore}ifelse}if newpath}bind/eofill loaddup/newpath load2 indexdup{clip newpath}bind{}binddup2 copy]defcurrentscreen/spf xdf/rot xdf/freq xdf/doop{vrb exch get exec}bdf/psu{/tso xdf /fNote xdf/fBitStretch xdf/scaleby96 xdf/yflip xdf/xflip xdf/invertflag xdf/dbinvertflag invertflag statusdict begin version cvr 47.0 ge product (LaserWriter) eq not and end invertflag and {not}if defxflip yflip or{/noflips false def}if/pgs xdf 2 index .72 mul exch div/pys xdf div .72 mul/pxs xdf ppr astore pop/por xdf sn and/so xdf}bdf/tab{statusdict /11x17 known{statusdict begin /11x17 load end}{statusdict /setpage known{statusdict begin 792 1224 1 setpage end}{statusdict /setpageparams known{statusdict begin 792 1224 0 1 setpageparams end}if}ifelse}ifelse}bdf/txpose{	pxs pys scale 	ppr aload pop por{		noflips{			pop exch neg exch translate pop 1 -1 scale		}if		xflip yflip and{			pop exch neg exch translate 180 rotate 1 -1 scale 			ppr 3 get ppr 1 get neg sub neg ppr 2 get 			ppr 0 get neg sub neg translate		}if 		xflip yflip not and{			pop exch neg exch translate pop 180 rotate 			ppr 3 get ppr 1 get neg sub neg 0 translate		}if 		yflip xflip not and{			ppr 1 get neg ppr 0 get neg translate		}if	}{		noflips{			translate pop pop 270 rotate 1 -1 scale		}if 		xflip yflip and{			translate pop pop 90 rotate 1 -1 scale 			ppr 3 get ppr 1 get neg sub neg ppr 2 get 			ppr 0 get neg sub neg translate		}if		xflip yflip not and{			translate pop pop 90 rotate ppr 3 get ppr 1 get 			neg sub neg 0 translate		}if 		yflip xflip not and{			translate pop pop 270 rotate ppr 2 get ppr 0 get 			neg sub neg 0 exch translate		}if	}ifelse	statusdict begin waittimeout 300 lt{		/waittimeout 300 def	}if end 	scaleby96{		ppr aload pop 4 -1 roll add 2 div 3 1 roll add 2 div 		2 copy translate .96 dup scale neg exch neg exch translate	}if}bdf/fr{4 copy ppr aload pop 3 -1 roll add 3 1 roll exch add 6 2 roll 3 -1 rollsub 3 1 roll exch sub 3 -1 roll exch div 3 1 roll div exch scale pop pop xl}bdf/obl{{0.212557 mul}{pop 0}ifelse}bdf/sfd{ps fg 5 -1 roll get mul 100 div 0 ps 5 -1 roll obl ps neg 0 0 6a astore makefont setfont}bdf/fnt{findfont sfd}bdf/bt{sa 3 1 roll 3 index and put}bdf/sa(\000\000\000\000\000\000\000\000\000\000)def/fs{0 1 bt 1 2 bt 2 4 bt 3 8 bt 4 16 bt 5 32 bt 6 64 bt 7 128 bt sa exch 8 exch put}bdf/mx1 matrix def/mx2 matrix def/mx3 matrix def/bu{currentpoint currentgray currentlinewidth currentlinecap currentlinejoin currentdash exch aload lengthfg 5 sfl{1}{0}ifelse put pnsv pnsh2t aload pop 3a aload pop mx2 aload pop mx1 aload pop mtx currentmatrix aload popmx3 aload pop ps pm restore/ps xdf mx3 astore pop}bdf/bn{/pm save def mx3 setmatrix newpath 0 0 moveto ct dup 39 get 0 exch getinterval cvx execmtx astore setmatrix mx1 astore pop mx2 astore pop 3a astore pop2t astore pop/pnsh xdf/pnsv xdf gw/sfl fg 5 get 0 ne def array astore exch setdash setlinejoin setlinecapsetlinewidth setgray moveto}bdf/fc{save vmstatus exch sub 50000 lt{(%%[|0|]%%)=print flush}if pop restore}bdf/tc{32768 div add 3 1 roll 32768 div add 2t astore pop}bdf/3a [0 0 0] def/2t 2 array def/tp{3a astore pop}bdf/tt{mx2 currentmatrix pop currentpoint 2 copy 2t aload pop qa 2 copy translate 3a aload pop exch dup 0 eq{pop}{1 eq{-1 1}{1 -1}ifelse scale}ifelse rotate pop neg exch neg exch translate moveto}bdf/te{mx2 setmatrix}bdf/th{3 -1 roll div 3 1 roll exch div 2 copy mx1 scale pop scale/sfl true def}bdf/tu{1 1 mx1 itransform scale/sfl false def}bdf/ts{1 1 mx1 transform scale/sfl true def}bdf/fz{/ps xdf}bdf/dv{dup 0 ne{div}{pop}ifelse}bdf/pop4{pop pop pop pop}bdf/it{sfl{mx1 itransform}if}bdf/gm{exch it moveto}bdf/rm{it rmoveto}bdf/lm{currentpoint sfl{mx1 transform}if exch pop sub 0 exch it rmoveto}bdf/fm{statusdict/manualfeed known}bdf/se{statusdict exch/manualfeed exch put}bdf/mf{dup/ma exch def 0 gt{fm se/t1 5 st ok ma 1 gt and{/t2 0 st/t3 0 ststatusdict/manualfeedtimeout 3600 put}if}if}bdf/jn{/statusdict where exch pop{statusdict exch /jobname exch put}if}bdf/pen{pnm mul/pnsh xdf pnm mul/pnsv xdf pnsh setlinewidth}bdf/min{2 copy gt{exch}if pop}bdf/max{2 copy lt{exch}if pop}bdf/dh{fg 6 1 put array astore dup {1 pxs div mul exch}forall astore exch pop exch pop exch setdash}bdf/ih[currentdash]def/rh{fg 6 0 put ih aload pop setdash}bdf/dl{gsave nlw pys div setlinewidth 0 setgray}bdf/dlin{exch currentpoint currentlinewidth 2 div duptranslate newpath moveto lineto currentpoint stroke grestore moveto}bdf/lin{fg 6 get 0 ne{exch lineto currentpoint 0 doop moveto}{exch currentpoint/pnlv xdf/pnlh xdf gsave newpath/@1 xdf/@2 xdf fp{pnlh @2 lt{pnlv @1 ge{pnlh pnlv moveto @2 @1 lineto pnsh 0 rlineto0 pnsv rlineto pnlh pnsh add pnlv pnsv add lineto pnsh neg 0 rlineto}{pnlh pnlv moveto pnsh 0 rlineto @2 pnsh add @1 lineto 0 pnsv rlinetopnsh neg 0 rlineto pnlh pnlv pnsv add lineto}ifelse}{pnlv @1 gt{@2 @1 moveto pnsh 0 rlineto pnlh pnsh add pnlv lineto 0 pnsv rlinetopnsh neg 0 rlineto @2 @1 pnsv add lineto}{pnlh pnlv moveto pnsh 0 rlineto0 pnsv rlineto @2 pnsh add @1 pnsv add lineto pnsh neg 0 rlineto0 pnsv neg rlineto}ifelse}ifelseclosepath fill}if @2 @1 grestore moveto}ifelse}bdf/gw{/pnm fg 3 get fg 4 get div def}bdf/lw{fg exch 4 exch put fg exch 3 exch put gw pnsv pnsh pen}bdf/barc{/@1 xdf/@2 xdf/@3 xdf/@4 xdf/@5 xdf/@6 xdf/@7 xdf/@8 xdf gsave@5 @7 add 2 div @6 @8 add 2 div translate newpath 0 0 moveto@5 @7 sub @6 @8 sub mtx currentmatrix pop scale @1{newpath}if0 0 0.5 @4 @3 arc @4 @3 sub abs 360 ge{closepath}ifmtx setmatrix @2 doop grestore}bdf/ar{dup 0 eq barc}bdf/ov{0 exch 360 exch true barc}bdf/rc{/@t xdf currentpoint 6 2 roll newpath 4 copy 4 2 roll exch moveto6 -1 roll lineto lineto lineto closepath @t doop moveto}bdf/mup{dup pnsh 2 div le exch pnsv 2 div le or}bdf/rr{/@1 xdf 2. div/@2 xdf 2. div/@3 xdf/@4 xdf/@5 xdf/@6 xdf/@7 xdf@7 @5 eq @6 @4 eq @2 mup or or{@7 @6 @5 @4 @1 rc}{@4 @6 sub 2. div dup @2 lt{/@2 xdf}{pop}ifelse@5 @7 sub 2. div dup @2 lt{/@2 xdf}{pop}ifelse@1 0 eq{/@2 @2 pnsh 2 div 2 copy gt{sub def}{0 pop4}ifelse}ifcurrentpoint newpath@4 @6 add 2. div @7 moveto@4 @7 @4 @5 @2 arcto pop4@4 @5 @6 @5 @2 arcto pop4@6 @5 @6 @7 @2 arcto pop4@6 @7 @4 @7 @2 arcto pop4closepath @1 doop moveto}ifelse}bdf/pr{gsave newpath/pl{exch moveto/pl{exch lineto}def}def}bdf/pl{exch lineto}bdf/ep{dup 0 eq{{moveto}{exch lin}{}{(%%[|1|]%%)= flush}pathforallpop grestore}{doop grestore}ifelse currentpoint newpath moveto}bdf/gr{64. div setgray}bdf/pat{s8 copy pop 9.375 pa por not{90 add}if{1 add 4 mul cvi s8 exch get exch 1 add 4 mul cvi 7 sub bitshift 1 and}setscreen gr}bdf/sg{freq rot/spf load setscreen gr}bdf/dc{transform round .5 sub exch round .5 sub exch itransform}bdf/sn{userdict/smooth4 known}bdf/x8{3 bitshift}bdf/x4{2 bitshift}bdf/d4{-2 bitshift}bdf/d8{-3 bitshift}bdf/rb{15 add -4 bitshift 1 bitshift}bdf/db{/@7 save def/@1 xdf/@2 xdf/@3 xdf/@4 xdf/@5 xdf/@6 @5 @3 4 add mul defdc translate scale/xdbit 1 1 idtransform abs/ydbit exch def abs def{0 0 1 ydbit add 1 10 rc clip}if@1 0 eq @1 4 eq or{1 setgray ydbit 0 1 ydbit add 1 2 rc}if@1 3 eq @1 7 eq or{1}{0}ifelse setgray/@9 @1 0 eq @1 1 eq @1 3 eq or or dbinvertflag xor def/@13 @6 def@2 fBitStretch or{/@10 @4 x4 def/@11 @3 x4 def/@12 @10 rb def/@13 @12 @11 mul def/@15 1 1 dtransform abs/calcY 1 index def round cvi/@14 exch defabs/calcX 1 index def round cvi scaleby96 not{1 add}if def/@16 @15 rb def/@17 @16 @14 mul def}ifsn @13 60000 lt and @2 fBitStretch or and{mtx currentmatrix dup 1 get exch 2 get 0. eq exch 0. eq and @17 60000 lt and fBitStretch and{@16 3 bitshift @14 @9 [calcX 0 0 calcY 0 0]{@17 string @13 stringcurrentfile @6 string readhexstring pop 1 index @4 @3 @5 @12 @2 smooth4@10 @11 @12 dup string 5 index @15 @14 @16 dup string stretch}imagemask}{@12 x8 @11 @9 [@10 0 0 @11 0 0]{@13 stringcurrentfile @6 string readhexstring pop 1 index @4 @3 @5 @12 @2 smooth4}imagemask}ifelse}{@5 3 bitshift @3 4 add @9 [@4 0 0 @3 0 2]{currentfile @6 string readhexstring pop}imagemask}ifelse@7 restore}bdf/multibit{/mbdeep exch def/mbY exch def/mbX exch defsave mbX mbY mbdeep[mbX 0 0 mbY 0 0]{currentfile picstr readhexstring pop}imagerestore}bdf