E N D
%%BeginProcSet: ArcInfo_8.1_film_marks 0 0 % % Utility functions % /bdf { bind def } def % % Film mark functions % /regmrk { gsave translate .1 setlinewidth 0 setgray 0 0 8 0 360 arc stroke 0 0 4 0 360 arc eofill -10 0 moveto 10 0 lineto 0 -10 moveto 0 10 lineto stroke 1 setgray -4 0 moveto 4 0 lineto 0 -4 moveto 0 4 lineto stroke grestore } bdf /crpmrk_ll { gsave translate 0 setgray .72 setlinewidth 0 18 moveto 0 0 lineto 18 0 lineto stroke .1 setlinewidth -24 0 moveto -4 0 lineto stroke 0 -24 moveto 0 -4 lineto stroke grestore } bdf /crpmrk_ul { gsave translate 0 setgray .72 setlinewidth 0 -18 moveto 0 0 lineto 18 0 lineto stroke .1 setlinewidth -24 0 moveto -4 0 lineto stroke 0 24 moveto 0 4 lineto stroke grestore } bdf /crpmrk_ur { gsave translate 0 setgray .72 setlinewidth 0 -18 moveto 0 0 lineto -18 0 lineto stroke .1 setlinewidth 24 0 moveto 4 0 lineto stroke 0 24 moveto 0 4 lineto stroke grestore } bdf /crpmrk_lr { gsave translate 0 setgray .72 setlinewidth 0 18 moveto 0 0 lineto -18 0 lineto stroke .1 setlinewidth 24 0 moveto 4 0 lineto stroke 0 -24 moveto 0 -4 lineto stroke grestore } bdf /barmrk { gsave translate /intense 1. def 11 { intense setgray 0 0 moveto 16 0 lineto 16 16 lineto 0 16 lineto 0 0 lineto eofill 0 16 translate /intense intense .1 sub def } repeat grestore } bdf %%EndProcSet