home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / postscri / 5611 < prev    next >
Encoding:
Text File  |  1992-11-19  |  1.5 KB  |  38 lines
  1. Newsgroups: comp.lang.postscript
  2. Path: sparky!uunet!timbuk.cray.com!walter.cray.com!goldman
  3. From: goldman@cray.com (Matthew D. Goldman)
  4. Subject: oops... corrected source follows.
  5. Message-ID: <1992Nov19.113529.22460@walter.cray.com>
  6. Lines: 28
  7. Nntp-Posting-Host: orac.cray.com
  8. Date: 19 Nov 92 11:35:28 CST
  9.  
  10. Sorry about that.  Try this.
  11.  
  12. %!
  13. /SectorTitle {          % string x y r > -
  14.         gsave                           % save graphics state
  15.                 /R exch def             % Pull info off stack.
  16.                 /Y exch def             %   remember first in and
  17.                 /X exch def             %   last out queue.
  18.                 0 setgray               % color to black
  19.                 /Times-Roman findfont   % select font
  20.                 32 scalefont            % set pointsize
  21.                 setfont                 % use this as the default font
  22.                 X Y moveto              % select x and y
  23.                 R rotate                % orient text
  24.                 currentpoint translate  % not quite sure why this is necessary
  25.                 show                    % put the letter on the page
  26.         grestore                        % put graphics state back
  27. } def
  28.  
  29. (Test Info - 590 36 90) 590 36 90 SectorTitle
  30. (Test Info - 75 600 270) 75 600 270 SectorTitle
  31.  
  32. showpage
  33. -- 
  34. Matthew Goldman              E-mail: goldman@orac.cray.com
  35. Fax: (612) 683-3099                   Work: (612) 683-3061
  36.       "Say George, I don't mean to interrupt, but 
  37.        there's a glowing red dot on your forehead."
  38.