home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nebula
/
nebula.bin
/
SourceCode
/
MiniExamples
/
PerformanceTuning
/
VisibleView-03
/
SomePS.psw
< prev
next >
Wrap
Text File
|
1991-10-18
|
735b
|
97 lines
defineps somedefs()
%defs
/tripath {
0 0 moveto
100 0 lineto
50 100 lineto
closepath
} def
/cirpath {
100 50 moveto
50 50 50 0 360 arc
} def
/recstroke {
0 0 100 100 rectstroke
} def
/recfill {
0 0 100 100 rectfill
} def
/rec {
.333 setgray
recfill
0 setgray
recstroke
} def
/cir {
.5 setgray
cirpath
fill
0 setgray
cirpath
stroke
} def
/tri {
.666 setgray
tripath
fill
0 setgray
tripath
stroke
} def
/mass {
rec
cir
tri
} def
endps
defineps somePS()
%body
gsave
200 50 translate
30 rotate
mass
grestore
gsave
150 50 translate
45 rotate
rec
grestore
gsave
50 150 translate
tri
grestore
gsave
100 100 translate
cir
grestore
gsave
25 25 translate
mass
grestore
gsave
125 275 translate
-60 rotate
mass
grestore
endps