1. %%BeginProcSet: ArcInfo_8.1_separate 0 0 % % Utility functions % /bdf { bind def } def /txim { /t { sc 0 0 moveto _kern exch 0 exch ashow pop } def /imgmsk_a { as_set imgmsk } def /imgmsk_b { bn_set imgmsk } def } bdf /notxim { /t { pop pop } def /imgmsk_a { as_set imgmskeat } def /imgmsk_b { bn_set imgmskeat } def } bdf /g { /_b exch def /sc { _b setgray } def /F { sc eofill } def /im { sc _im } def _opon } bdf /G { /_B exch def /SC { _B setgray } def /S { SC .strok } def /IM { SC _im } def } bdf /ksepr { txim dup 0 lt { pop /F { newpath } def /im { eatim } def _opof notxim } { 1 exch sub /_b exch def /sc { _b setgray } def /F { sc eofill } def /im { sc _im } def _opon } ifelse } bdf /Ksepr { dup 0 lt { pop /S { newpath } def /IM { eatim } def } { 1 exch sub /_B exch def /S { _B setgray .strok } def /IM { _B setgray _im } def } ifelse } bdf /cl2sep { /tbf ibf def /ibf buf2 0 ibf length 3 div cvi getinterval def /cnt 0 def ibf length { ibf cnt 3 div cvi 3 { tbf cnt get /cnt cnt 1 add def } repeat 3 { 255 exch sub 3 1 roll } repeat 3 copy 1 index eq 3 1 roll eq and { pop pop 0 0 0 4 -1 roll } { 0 } ifelse 4 { 255 exch sub 4 1 roll } repeat imgsep put } repeat } bdf /imgmskeat { /ll 1 def in 6 2 roll 4 { pop } repeat mul 8 div cvi { rd_buf ibf length sub dup 0 le { pop exit } if } loop } bdf /gryimgeat { /ll 1 def in 6 2 roll 4 { pop } repeat mul cvi { rd_buf ibf length sub dup 0 le { pop exit } if } loop } bdf /mnoimgeat { /ll 1 def in 6 2 roll 4 { pop } repeat exch 7 add 8 div cvi mul cvi { rd_buf ibf length sub dup 0 le { pop exit } if } loop } bdf /clrimgeat { /ll 3 def in 6 2 roll 4 { pop } repeat mul ll mul cvi { rd_buf ibf length sub dup 0 le { pop exit } if } loop } bdf /passset1 { /k { ucrem popit ksepr } def /K { ucrem popit Ksepr } def /x { txim dup -1 eq { 7 { pop } repeat /sc { 1 setgray } def /F { sc eofill } def /im { sc _im } def _opon notxim } { 6 { pop } repeat /F { newpath } def /im { eatim } def _opof notxim } ifelse } def /X { dup -1 eq { 7 { pop } repeat /S { 1 setgray .strok } def /IM { 1 setgray _im } def } { 6 { pop } repeat /S { newpath } def /IM { eatim } def } ifelse } def /gryimg { gryimgeat } def /mnoimg { mnoimgeat } def /clrimg { /imgsep { popit } def /ll 3 def in imgtrn 8 imgmtx { rd_buf cl2sep ibf } image } bdf /clrimg_a { as_set clrimg } def /clrimg_b { bn_set clrimg } def } bdf /ucrem { dup 0 eq { 4 copy pop 1 index dup 0 lt not 5 1 roll eq 3 1 roll eq and and { pop pop pop 0 0 0 4 -1 roll } if } if } bdf % % Separation functions % /CynPass { /popit { pop pop pop } def passset1 } bdf /MagPass { /popit { pop pop exch pop } def passset1 } bdf /YelPass { /popit { pop exch pop exch pop } def passset1 } bdf /BlkPass { /k { ucrem 3 { exch pop } repeat ksepr } def /K { ucrem 3 { exch pop } repeat Ksepr } def /x { txim dup -1 eq { 7 { pop } repeat /sc { 1 setgray } def /F { sc eofill } def /im { sc _im } def _opon notxim } { 6 { pop } repeat /F { newpath } def /im { eatim } def _opof notxim } ifelse } def /X { dup -1 eq { 7 { pop } repeat /S { 1 setgray .strok } def /IM { 1 setgray _im } def } { 6 { pop } repeat /S { newpath } def /IM { eatim } def } ifelse } def /clrimg { /imgsep { 3 { exch pop } repeat } def /ll 3 def in imgtrn 8 imgmtx { rd_buf cl2sep ibf } image } bdf /clrimg_a { as_set clrimg } def /clrimg_b { bn_set clrimg } def } bdf /CustPass { /_CC exch def /_Msk false def /k { 4 { pop } repeat /sc { 1 setgray } def /im { sc _im } def _opon _Msk true eq { /F { sc eofill } def } { /F { newpath } def} ifelse } def /K { 4 { pop } repeat /IM { 1 setgray _im } def _Msk true eq { /S { 1 setgray .strok } def } { /S { newpath } def } ifelse } def /x { txim dup -1 eq { pop exch _CC eq { 1 exch sub /_b exch def /sc { _b setgray } def /F { sc eofill } def /im { sc _im } def _opon 4 { pop } repeat } { 5 { pop } repeat /sc { 1 setgray } def /F { sc eofill } def /im { sc _im } def _opon } ifelse /_Msk true def } { exch _CC eq { 1 exch sub /_b exch def /sc { _b setgray } def /F { sc eofill } def /im { sc _im } def _opon 4 { pop } repeat } { /F { newpath } def /im { eatim } def _opof notxim 5 { pop } repeat } ifelse /_Msk false def } ifelse } def /X { dup -1 eq { pop exch _CC eq { 1 exch sub /_B exch def /S { _B setgray .strok } def /IM { _B setgray _im } def 4 { pop } repeat } { 5 { pop } repeat /S { 1 setgray .strok } def /IM { 1 setgray _im } def } ifelse /_Msk true def } { exch _CC eq { 1 exch sub /_B exch def /S { _B setgray .strok } def /IM { _B setgray _im } def 4 { pop } repeat } { /S { newpath } def /IM { eatim } def 5 { pop } repeat } ifelse /_Msk false def } ifelse } def /g { dup -1 eq { pop _CC eq { /_b exch def /sc { _b setgray } def /F { sc eofill } def /im { sc _im } def _opon } { pop /sc { 1 setgray } def /F { sc eofill } def /im { sc _im } def _opon } ifelse } { _CC eq { /_b exch def /sc { _b setgray } def /F { sc eofill } def /im { sc _im } def _opon } { pop /F { newpath } def /im { eatim } def _opof } ifelse } ifelse } def /G { dup -1 eq { pop _CC eq { /_B exch def /SC { _B setgray } def /S { SC .strok } def /IM { SC _im } def } { pop /SC { 1 setgray } def /S { SC .strok } def /IM { SC _im } def } ifelse } { _CC eq { /_B exch def /SC { _B setgray } def /S { SC .strok } def /IM { SC _im } def } { pop /S { newpath } def /IM { eatim } def } ifelse } ifelse } def /gryimg { gryimgeat } def /mnoimg { mnoimgeat } def /clrimg { clrimgeat } def /clrimg_a { as_set clrimg } def /clrimg_b { bn_set clrimg } def } bdf %%EndProcSet