} def


grestore


imagemask


{ currentfile bitsstr readstring pop }


[wbits 0 0 hbits 0 0]


wbits hbits true


wbits 0.25 mul hbits 0.25 mul scale


/bitsstr wbits 8 idiv string def


translate


/wbits exch def


/hbits exch def


gsave


/binarylaserbits { %Copyright (C) 1987 Silicon Beach Software, Inc.





[1 0 0 -1 0 totalh] concat


0 setgray


#Height# /totalh exch def


5 dict begin