home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1990 / 16 / logo.pst < prev    next >
Text File  |  1990-06-07  |  763b  |  36 lines
  1.  
  2.  
  3. /Times-BoldItalic findfont         % Select font
  4. 72 scalefont
  5. setfont
  6.  
  7. (PC Magazine) stringwidth pop      % Find the center of the string
  8. 612 exch sub 2 div
  9. 400 translate
  10.  
  11. newpath
  12. 0 0 moveto
  13. 0 .5 1 setrgbcolor
  14. (PC Magazine) show
  15.  
  16. newpath                            % Define the boundaries
  17. 0 0 moveto                         % of the string as the
  18. 1 0 0 setrgbcolor
  19. (PC Magazine) true charpath clip   % clip path
  20.  
  21. .25 setlinewidth                   % Set line width
  22. newpath                            % Draw radial lines in
  23. -15 1 90 {                         % 1 degree increments
  24.      gsave
  25.      rotate
  26.      0 0 moveto
  27.      500 0 lineto
  28.      stroke
  29.      grestore
  30. } for
  31.  
  32. showpage                           % Print the page
  33.  
  34.  
  35.  
  36.