21-Oct-86 22:04:41-CDT,3646;000000000001 Return-Path: Received: from Sushi.Stanford.EDU by A20.CC.UTEXAS.EDU with TCP; Tue 21 Oct 86 22:04:11-CDT Return-Path: Received: from CS.COLUMBIA.EDU by Sushi.Stanford.EDU with TCP; Mon 20 Oct 86 18:12:40-PDT Date: Mon 20 Oct 86 20:47:28-EDT From: Chip Maguire Subject: Envelop and mailing labels To: info-postscript@SUSHI.STANFORD.EDU Message-ID: <12248424898.46.MAGUIRE@CS.COLUMBIA.EDU> ReSent-Date: Tue 21 Oct 86 19:22:23-PDT ReSent-From: Info-PostScript-Request ReSent-To: INFO-POSTSCRIPT: ; ReSent-Message-ID: <12248704320.22.INFO-POSTSCRIPT-REQUEST@Sushi.Stanford.EDU> Well all you wouldbe letter writers out there - there is now no excuse for not getting those letters written (such as: ``Well I printed your letter on the laser printer but could not find a typewriter to address the envelope.''). Finally the Postscript you have been waiting for: E.PS and L.PS E.PS is a sample bit of Postscript which you can modify to print the sender and the address onto standard business envelopes. L.PS is a sample bit of Postscript which you can modify to print on the blue (glue on) mailing labels - the only thing you have to write is the class of postage you wish to use. [For a small price to the truely lazy - a version which puts an "X" into the various boxes can be made available.] These two programs are without a doubt less than optimal, however, they seem to do a need dirty job - which somebody has to do. Comments, improvements, much better versions solicited. Both of the above files are provided below: %! % % Simple Postrcript program to address business envelopes % written 86.10.20 by G.Q. Maguire Jr. % % Insert the envelope right side up, left hand end first into the laserwriter % /inch {72 mul} def /Times-Roman findfont 14 scalefont setfont statusdict /manualfeed true put % Put the corner at the lower lefthand corner of the envelope 4.5 inch 11 inch translate -90 rotate % 0.5 inch 2.75 inch moveto % % the name of the person sending this letter % (G. Q. Maguire Jr.) show % % position to the top lefthand corner of the address % which is 2 inches up from the bottom of the envelope /lineskip -15 def /showline { gsave show grestore 0 lineskip rmoveto } def 3.5 inch 2 inch translate 0 0 moveto % % Here is where you fill in the address % (G. Q. Maguire Jr.) showline (Department of Computer Science) showline (450 Computer Science Building) showline (Columbia University) showline (New York, NY 10027) showline showpage %! % % Simple Postrcript program to address mailing labels % written 86.10.20 by G.Q. Maguire Jr. % % Insert the label right side up, left hand end first into the laserwriter % /inch {72 mul} def /Times-Roman findfont 12 scalefont setfont statusdict /manualfeed true put % Put the corner at the lower lefthand corner of the envelope 5 inch 11 inch translate -90 rotate % 2 inch 1.875 inch moveto % % the name of the person sending this letter % (G. Q. Maguire Jr.) show % % position to the top lefthand corner of the address % which is 1.5 inches up from the bottom of the envelope /lineskip -13 def /showline { gsave show grestore 0 lineskip rmoveto } def 1.75 inch 1.5 inch translate 0 0 moveto % % Here is where you fill in the address % (G. Q. Maguire Jr.) showline (Department of Computer Science) showline (450 Computer Science Building) showline (Columbia University) showline (New York, NY 10027) showline showpage -------