km@emory.CSNET (Ken Mandelberg) (06/19/86)
Does anyone have an easy way to make a laserwriter pause for special
form? It would need to be easily specified by a user using any one of
the Adobe Transcript components (ptroff, psroff, etc..).
I guess the thing to do is to do is find an easy way to pass
through a postscript command that has the right effect.
Any ideas?
Ken Mandelberg
Emory University
Dept of Math and CS
Atlanta, Ga 30322
{akgua,sb1,gatech,decvax}!emory!km USENET
km@emory CSNET
km.emory@csnet-relay ARPANETreid@DECWRL.DEC.COM (Brian Reid) (07/03/86)
Here are two files. If you print file "A", it will print a piece of paper asking that slide material be put into the laserwriter, and then pause until operator response. If you print file "B", it will print a piece of slide material asking that paper be put into the laserwriter, and then pause until operator response. You should be able to generalize. On my system I call these files "toslides.ps" and "topaper.ps"; if I want to print something on slides, i say this: lpr toslides.ps file-to-print topaper.ps The "operator response" consists of taking the sheet of paper that was printed asking for the change, and feed it through the laserwriter's single-sheet feed slot. It will get the words "thank you" added to it, and then the whole operation will be done. File A: (toslides.ps) %! /Helvetica findfont 50 scalefont setfont -90 rotate -808 0 translate 50 400 moveto (Please switch to transparencies) show 50 350 moveto (then feed this sheet through) show 50 300 moveto (the single-sheet feeder) show showpage /Helvetica-Bold findfont 45 scalefont setfont -90 rotate -808 0 translate 150 200 moveto (Thank you!) show statusdict begin /manualfeed true def /manualfeedtimeout 900 def end showpage File B: (topaper.ps) %! /Helvetica findfont 50 scalefont setfont -90 rotate -808 0 translate 50 400 moveto (Please switch to paper) show 50 350 moveto (then feed this sheet through) show 50 300 moveto (the single-sheet feeder) show showpage /Helvetica-Bold findfont 45 scalefont setfont -90 rotate -808 0 translate 150 200 moveto (Thank you!) show statusdict begin /manualfeed true def /manualfeedtimeout 900 def end showpage