1 / 1

image

tale
Download Presentation

image

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_image 0 0 % % Utility functions % /bdf { bind def } def /in { /cfnc 1 string def /val ll string def /buf1 381 string def /buf2 508 string def } bdf /imgtrn { 6 -2 roll translate 4 -2 roll scale } bdf /imgmtx { [ 3 index 0 0 5 index neg 0 0 ] } bdf /as_set { /rdstrg /readhexstring load def } bdf /bn_set { /rdstrg /readstring load def } bdf /rdfunc { currentfile cfnc rdstr } bdf /rd_buf { currentfile cfnc rdstrg pop 0 get dup 127 le { /ibf buf1 0 3 index ll mul getinterval def currentfile ibf rdstrg pop pop pop } { 128 sub /ibf buf1 0 3 index ll mul getinterval def ibf 0 currentfile val rdstrg pop 4 -1 roll { 3 copy putinterval exch ll add exch } repeat pop pop pop } ifelse } bdf /cl2bw { /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 .11 mul exch .59 mul add exch .3 mul add .1 add cvi put } repeat } bdf /r2cimg { /tbf ibf def /ibf buf2 0 ibf length 3 idiv 4 mul getinterval def 0 3 tbf length 3 sub { dup 3 idiv 4 mul ibf exch 4 getinterval exch tbf exch 3 getinterval dup 0 get 255 xor exch dup 1 get 255 xor exch 2 get 255 xor dup 2 index eq { dup 3 index eq { pop pop 1 index exch 3 exch put 0 0 0 } { 3 index 3 0 put } ifelse } { 3 index 3 0 put } ifelse 3 index exch 2 exch put 2 index exch 1 exch put 0 exch put } for } bdf % % Image functions % /imgmsk { /sc where { pop sc } if /ll 1 def in imgtrn true imgmtx { rd_buf ibf } imagemask } bdf /gryimg { /ll 1 def in imgtrn 8 imgmtx { rd_buf ibf } image } bdf /mnoimg { /ll 1 def in imgtrn 1 imgmtx { rd_buf ibf } image } bdf /cl_img { /ll 3 def in imgtrn 8 imgmtx { rd_buf r2cimg ibf } false 4 colorimage } bdf /bw_img { /ll 3 def in imgtrn 8 imgmtx { rd_buf cl2bw ibf } image } bdf /imgmsk_a { as_set imgmsk } bdf /gryimg_a { as_set gryimg } bdf /mnoimg_a { as_set mnoimg } bdf /clrimg_a { as_set /colorimage where { pop cl_img } { bw_img } ifelse } bdf /imgmsk_b { bn_set imgmsk } bdf /gryimg_b { bn_set gryimg } bdf /mnoimg_b { bn_set mnoimg } bdf /clrimg_b { bn_set /colorimage where { pop cl_img } { bw_img } ifelse } bdf %%EndProcSet

More Related