Return to sperm.eps CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / AppKit / BackspaceViews / Sperm

Sample Programs from NeXSTEP 3.3

%!PS-Adobe-2.0 EPSF-2.0
%%Title: Rectangle.eps
%%Creator: sam
%%CreationDate: Tue Aug 14 10:37:05 1990
%%Pages: 0 1
%%BoundingBox: 0 0 177 115
%%DocumentFonts: Times-Bold
%%EndComments

gsave
-5 -5 translate
.5 .4 scale

gsave
30 10 translate
1.2 1.2 scale
0 0 .2 setrgbcolor
newpath
97 5 moveto
174 100 rlineto
-174 87 rlineto
0 -187 rlineto
closepath
eofill

.133 .133 .4 setrgbcolor
newpath
60 10 moveto
174 100 rlineto
-174 87 rlineto
0 -187 rlineto
closepath
eofill
grestore

0 12 translate
0.6 0.6 scale

/Times-Bold findfont 16 scalefont setfont

gsave
20 0 translate
180 145 translate

/greatGuys {
gsave
28 rotate
-100 130 moveto
/Times-Bold findfont 64 scalefont setfont
(by Drew Olbrich)  show
 grestore
} def

.9 0 0 setrgbcolor greatGuys -7 4  translate
1 1 .5 setrgbcolor greatGuys

grestore

/Times-Roman findfont 120 scalefont setfont

160 90 translate

28 rotate

/Times-Italic findfont 150 scalefont setfont
/printIt {0 0 moveto (Sperm!) show} def

0 0.005 .18 {1 1 sethsbcolor printIt -2 1 translate} for
0 0 .2 setrgbcolor printIt

1 setlinewidth 0 setgray

showpage
grestore

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