Return to space.eps CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / AppKit / Backspace

Sample Programs from NeXSTEP 3.3

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

% 0 setgray 0 0 177 115 rectfill
gsave
.87 .68 scale
 [1 0 0 -1 0 0] concat
1 setgray
/Times-Roman findfont 60 scalefont [1 0 0 -1.25 0 0] makefont
42
exch
defineuserobject
42 execuserobject setfont
0 setgray
53 -19 translate
1 1 scale

/showWord { (Space) show } def
/rotateThenOneWord
{
	0 0 moveto
	22.5 rotate
	showWord
} def

/bunchORotatedWords
{
	0 0 moveto
	-112.5 rotate
	0 1 4 { pop rotateThenOneWord } for
} def


/pos 7 def
/theGray 1 def

/shadow
{
	gsave
	newpath
	theGray theGray  theGray 2 div .5 add setrgbcolor
	pos pos neg translate
	bunchORotatedWords
	grestore
	/pos pos 1 sub def
	/theGray theGray 1 7 div sub def
} def

0 1 6 { pop shadow } for

gsave
newpath
0 0 moveto
-112.5 rotate

/topColor .5 def

/topWord
{
	topColor topColor 1 setrgbcolor
	rotateThenOneWord
	/topColor topColor 1 8 div add def
} def

0 1 3 { pop topWord } for

1 .9 .0  setrgbcolor
rotateThenOneWord
1 0 0  setrgbcolor
-2 -2  moveto
showWord
grestore

/Helvetica-Bold findfont 38 scalefont [1 0 0 -1 0 0] makefont
43 exch defineuserobject
43 execuserobject setfont
/greatGuys {
gsave
-10 0 moveto
-90 rotate
(by Sam)  show
 grestore
} def

.3 0 0  setrgbcolor
greatGuys
1 .7 .7  setrgbcolor
-3 -2  translate
greatGuys

grestore
%%Trailer
%%DocumentFonts: Times-Roman

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