home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / postscri / 5608 < prev    next >
Encoding:
Text File  |  1992-11-19  |  2.2 KB  |  56 lines
  1. Newsgroups: comp.lang.postscript
  2. Path: sparky!uunet!ornl!rsg1.er.usgs.gov!darwin.sura.net!spool.mu.edu!umn.edu!mmm.serc.3m.com!mmc.mmmg.com!timbuk.cray.com!walter.cray.com!orac.cray.com!goldman
  3. From: goldman@orac.cray.com (Matthew D. Goldman)
  4. Subject: Re: Conference name placards
  5. Message-ID: <1992Nov19.110259.21996@walter.cray.com>
  6. Keywords: placards
  7. Lines: 43
  8. Nntp-Posting-Host: orac.cray.com
  9. Organization: Cray Research, Inc.
  10. References: <BxxIt6.3KI@news.cso.uiuc.edu>
  11. Date: 19 Nov 92 11:02:58 CST
  12.  
  13. In article <BxxIt6.3KI@news.cso.uiuc.edu> mkiteam@osiris.cso.uiuc.edu (Ed Japel) writes:
  14. >Hi!  I have been trying to write a postscript program to print
  15. >a persons name on one long edge of a paper, and again along
  16. >the opposite edge, rotated so that when the paper is folded in the middle (lengthwise, the name will be readable from either side.  This should
  17. >not be as difficult as I am trying to make it, I have a bad case
  18. >of brain-block.   Thanks for any help!
  19. > 
  20. >Michael Moe
  21. >mkiteam@osiris.cso.uiuc.edu
  22. >
  23.  
  24. %!
  25. /SectorTitle {          % string x y r > -
  26.         gsave                           % save graphics state
  27.                 /R exch def             % Pull info off stack.
  28.                 /Y exch def             %   remember first in and
  29.                 /X exch def             %   last out queue.
  30.                 0 setgray               % color to black
  31.                 /Times-Roman findfont   % select font
  32.                 32 scalefont            % set pointsize
  33.                 setfont                 % use this as the default font
  34.                /X /Y moveto            % select x and y
  35.                 /R rotate               % orient text
  36.                 currentpoint translate  % orient new zero location.
  37.                 show                    % put the letter on the page
  38.         grestore                        % put graphics state back
  39. } def
  40.  
  41. (Test Info - 590 36 90) 590 36 90 SectorTitle
  42. (Test Info - 75 600 270) 75 600 270 SectorTitle
  43.  
  44. showpage
  45.  
  46. That should do it.
  47.  
  48. Matt
  49.  
  50.  
  51. -- 
  52. Matthew Goldman              E-mail: goldman@orac.cray.com
  53. Fax: (612) 683-3099                   Work: (612) 683-3061
  54.       "Say George, I don't mean to interrupt, but 
  55.        there's a glowing red dot on your forehead."
  56.