Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

% This is a simple program to rotate the axis.
% For printing envelopes, sometimes the envelopes get jammed.  
% Also, the return address sometimes comes out light/uneven.
% Rolling the envelope to break the edges seems to help.
%
  statusdict begin                        % set manual feed on so paper/
    /manualfeed true def                  % envelope is feed from side.
    /manualfeedtimeout 300 def
  statusdict end
%
% rotate and relocate the axis. origin is at 0,0:
%      ________
%     |        |
%     |        |              ____________
%     |        |             |            |
%     |        |   ______\   |            |
%     |        |         /   |            |
%     |________|             |____________|
%    0,0                    0,0
%
  270 rotate                              % rotate axis
  -780 0 translate                        % relocate origin
% fyi, approx., on an 8 1/2 high x 11 in. wide sheet:
%          top margin     612
%          right margin   780
%          bottom margin    0
%          left margin      0
%      on a legal size envelope:
%          top margin     612
%          right margin   675
%          bottom margin  310
%          left margin      0
%
%
% Here's an example of how to use this to print an envelope.
% It takes some experimenting  to position the address.
%
%
% print the return address in the upper left hand corner.
%
/Times-Roman findfont 10 scalefont setfont   % select a font.
  0 585 moveto
(Ms. Mary Smith) show
  0 575 moveto
(1 Main Street) show
  0 565 moveto
(Hometown, USA) show
%
%
% print the address (somewhere near) the middle.
%
/Times-Roman findfont 12 scalefont setfont
300 450 moveto
(Mr. John Doe) show
300 438 moveto
(123 Public Place) show
300 426 moveto
(Anytown, USA) show
%
% show the page, remember the envelope is manually fed.
%
showpage
%
%
% end

------