Return to Rays.eps CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / PostScript

Sample Programs from NeXSTEP 3.3

%!PS-Adobe-2.0 EPSF-2.0
%%Title: Rectangle.eps
%%Creator: Adobe Systems Inc
%%CreationDate: Tue Aug 14 10:37:05 1990
%%Pages: 0 1
%%BoundingBox: 4 1 465 135 
%%DocumentFonts: Times-BoldItalic
%%EndComments
% Modified from a program on pg 103 of  Adobe's 
% PostScript Language and Cookbook ("The Blue Book")

/Times-BoldItalic findfont 180 scalefont setfont

/rays 
{0 1 179 
 {gsave rotate 0 0 moveto 500 0 lineto stroke grestore}
 for
} def

15 10 translate
1 setlinewidth 0 setgray

newpath 0 0 moveto (NeXT) true charpath 
gsave 2 setlinewidth stroke grestore	% outline the word 
clip newpath 150 -10 translate rays	% draw rays clipped to the outline

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