home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Black Box 4
/
BlackBox.cdr
/
science
/
mpp.arj
/
INITPS.GL
< prev
next >
Wrap
Text File
|
1991-06-21
|
4KB
|
223 lines
%! PostScript
clear
initgraphics
/inch { 72 mul } def
/LWidth .001 def
/SymWidth .006 def
/LeftCF 0 def
/RightCF 1 def
/LowerCF 0 def
/UpperCF 1 def
/LTick .02 def
/STick .012 def
/Scaleby 3.5 def
/Transby 2 def
/PageLen 11 def
/LabelSize 10 72 div def
/TextSize 12 72 div def
/NumSize 8 72 div Scaleby div def
/LabelFont /Helvetica findfont def
/TextFont /Helvetica findfont def
/NumFont /Helvetica findfont def
/rectangle % Left Right Lower Upper
{ /Upper exch def
/Lower exch def
/Right exch def
/Left exch def
Left Lower moveto
Right Lower lineto
Right Upper lineto
Left Upper lineto
closepath }
def
/centertext % horiz left right string
{ /Str exch def
/R exch def
/L exch def
/H exch def
Str stringwidth pop
2 div
R L sub 2 div
exch sub
L add
H moveto
Str show }
def
/uptick % X length
{ exch LowerCF moveto
0 exch rlineto
stroke}
def
/downtick % X length
{ exch UpperCF moveto
0 exch neg rlineto
stroke}
def
/lefttick % X length
{ exch LeftCF exch moveto
0 rlineto
stroke}
def
/righttick % X length
{ exch RightCF exch moveto
neg 0 rlineto
stroke}
def
/xticks % offset spacing length
{ /L exch def
/Sp exch def
/Ofs exch def
Ofs Sp RightCF {dup L uptick L downtick} for }
def
/yticks % offset spacing length
{ /L exch def
/Sp exch def
/Ofs exch def
Ofs Sp RightCF {dup L lefttick L righttick} for }
def
/downlabel % xpos ypos size offset string
{ /Str exch def
/Ofs exch def
/Size exch def
/Y exch def
/X exch def
/Y Y Ofs sub def
Str stringwidth pop
2 div
X exch sub
Y moveto
Str show }
def
/uplabel % xpos ypos size offset string
{ /Str exch def
/Ofs exch def
/Size exch def
/Y exch def
/X exch def
/Y Y Ofs add def
Str stringwidth pop
2 div
X exch sub
Y moveto
Str show }
def
/leftlabel % xpos ypos size offset string
{ /Str exch def
/Ofs exch def
/Size exch def
/Y exch def
/X exch def
/Y Y Size 3 div sub def
Str stringwidth pop
X Ofs sub exch sub
Y moveto
Str show }
def
/rightlabel % xpos ypos size offset string
{ /Str exch def
/Ofs exch def
/Size exch def
/Y exch def
/X exch def
/Y Y Size 3 div sub def
X Ofs add Y moveto
Str show }
def
/drawdiamond
{ SymWidth 0 rmoveto
SymWidth neg SymWidth neg rlineto
SymWidth neg SymWidth rlineto
SymWidth SymWidth rlineto
closepath
SymWidth neg 0 rmoveto }
def
/drawbox
{ /DSym SymWidth 2 mul def
SymWidth SymWidth rmoveto
0 DSym neg rlineto
DSym neg 0 rlineto
0 DSym rlineto
closepath
SymWidth neg SymWidth neg rmoveto }
def
/drawtriangle
{ /DSym SymWidth 2 mul def
0 SymWidth rmoveto
SymWidth DSym neg rlineto
DSym neg 0 rlineto
closepath
0 SymWidth neg rmoveto }
def
/drawdot
{ /DSym LWidth 2 mul def
LWidth LWidth rmoveto
0 DSym neg rlineto
DSym neg 0 rlineto
0 DSym rlineto
closepath
LWidth neg LWidth neg rmoveto }
def
/drawplus
{ /DSym SymWidth 2 mul def
SymWidth neg 0 rmoveto
DSym 0 rlineto
SymWidth neg SymWidth rmoveto
0 DSym neg rlineto
0 SymWidth rmoveto }
def
/drawx
{ /DSym SymWidth 2 mul def
SymWidth neg SymWidth neg rmoveto
DSym DSym rlineto
DSym neg 0 rmoveto
DSym DSym neg rlineto
SymWidth neg SymWidth rmoveto }
def
/drawy
{ /DSym SymWidth 2 mul def
0 SymWidth neg rlineto
SymWidth DSym rmoveto
SymWidth neg SymWidth neg rlineto
SymWidth neg SymWidth rlineto
SymWidth SymWidth neg rmoveto }
def
/drawstar
{ /DSym SymWidth 2 mul def
SymWidth neg SymWidth neg rmoveto
DSym DSym rlineto
DSym neg 0 rmoveto
DSym DSym neg rlineto
SymWidth neg 0 rmoveto
0 DSym rlineto
0 SymWidth neg rmoveto }
def
LWidth setlinewidth