/packedarray { array astore readonly } bind def /setpacking /pop load def /currentpacking false def end 0 } if pop % activate packing now userdict

/packedarray { array astore readonly } bind def /setpacking /pop load def /currentpacking false def end 0 } if pop % activate packing now userdict /defaultpacking currentpacking put true setpacking % initialize, terminate % note : no binding loop needed here by design /initialize { Adobe_level2_AI5 begin } bind def /terminate { currentdict Adobe_level2_AI5 eq { end } if } bind def % mark for later stack clean-up mark % custom color business /setcustomcolor where not { /findcmykcustomcolor { 5 packedarray } bind def /setcustomcolor { exch aload pop pop 4 { 4 index mul 4 1 roll } repeat 5 -1 roll pop setcmykcolor } % don"t bind "setcmykcolor in this procedure def } if % % new version checks for non-numeric version strings (5.0.1 fix bh 10/25/93) /gt38? /gt38? Mark {version cvr cvx exec} stopped {cleartomark true} {38 gt exch pop} ifelse def userdict /deviceDPI 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt put % test for Level 2 availability userdict /level2? Syste