1 / 1

separate

cruz-moore
Download Presentation

separate

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  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

More Related