laser-lovers@uw-beaver (07/27/85)
From: Brian Reid <reid@Glacier> %! % PostScript program to demonstrate how to put down a raster image in the % device coordinate system, so as to guarantee that each bit of the raster % image maps exactly into one bit of the laser marking engine. It works % by cramming identity matrixes into all of the relevant transformations. /zstr 300 8 div 1 add cvi string def % define a 300-bit string buffer /Imtx matrix def % make an identity matrix 175 350 translate 0 0 moveto % go to a random place on the page /Courier findfont 15 scalefont setfont % put down a label (A 300-by-300 raster image: ) show currentpoint transform % see where we are in device coords Imtx setmatrix % turn off all transformation % (i.e. switch to device coordinate % system) translate % move origin to transformed currpt /imageproc { zstr } def % define a null imageproc % (it just puts 300 bits of zero on % the stack when it is called) 300 300 % print a 1-inch square false % make 0 bits be black Imtx % don't transform anything imageproc % our null imaging proc imagemask % generate the image showpage