Return to Rays.eps CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / PostScript

Annotation of Examples/PostScript/Rays.eps, revision 1.1.1.1

1.1       root        1: %!PS-Adobe-2.0 EPSF-2.0
                      2: %%Title: Rectangle.eps
                      3: %%Creator: Adobe Systems Inc
                      4: %%CreationDate: Tue Aug 14 10:37:05 1990
                      5: %%Pages: 0 1
                      6: %%BoundingBox: 4 1 465 135 
                      7: %%DocumentFonts: Times-BoldItalic
                      8: %%EndComments
                      9: % Modified from a program on pg 103 of  Adobe's 
                     10: % PostScript Language and Cookbook ("The Blue Book")
                     11: 
                     12: /Times-BoldItalic findfont 180 scalefont setfont
                     13: 
                     14: /rays 
                     15: {0 1 179 
                     16:  {gsave rotate 0 0 moveto 500 0 lineto stroke grestore}
                     17:  for
                     18: } def
                     19: 
                     20: 15 10 translate
                     21: 1 setlinewidth 0 setgray
                     22: 
                     23: newpath 0 0 moveto (NeXT) true charpath 
                     24: gsave 2 setlinewidth stroke grestore   % outline the word 
                     25: clip newpath 150 -10 translate rays    % draw rays clipped to the outline
                     26: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.