home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 2 / Mac_Expert_2.iso / Applications / T-Script v3.0 / Sample PS Files / TScript rotation sample < prev   
Encoding:
Text File  |  1990-04-04  |  856 b   |  49 lines  |  [TEXT/MRIP]
  1. /Q {7.2 mul} def
  2.  
  3. /rotangle 90 def
  4. /rotoffset 22.5 def
  5. /graylevel .9 def
  6.  
  7. /logosetup
  8.     { (Times-BoldItalic) findfont
  9.        [110 0 0 110 0 0] makefont setfont
  10.      } def
  11.  
  12. /point {0 320 moveto} def        % start point for show
  13.  
  14. /rotationloop
  15.       {gsave
  16.         point
  17.         rotangle rotate            % rotate the whole page by rotangle
  18.         graylevel setgray
  19.          (TScript) show
  20.  
  21.         /rotangle rotangle        % change the rotation angle
  22.                rotoffset sub def          % for the next time through
  23.                         % the loop
  24.  
  25.          /graylevel graylevel        % make it a little darker
  26.                 .15 sub def              % next time
  27.          grestore} def
  28.  
  29. /logorot
  30.          {gsave
  31.             20 Q  30 Q  translate    % move user origin to (20,30)
  32.             logosetup
  33.  
  34.             0.75 0.75 scale        % scale everything a litle smaller
  35.  
  36.             5  {rotationloop} repeat
  37.  
  38.             grestore} def
  39.  
  40. logorot
  41. showpage
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.