Permalink
Fetching contributors…
Cannot retrieve contributors at this time
64 lines (51 sloc) 1.51 KB
%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox: 40 135 260 312
%%Creator: Gisle Aas (Copyright 1998)
0.5 dup scale
%require "common.ps"
%require "arrow.ps"
/S { % x y str
dup stringwidth pop 2 div % x y str dx
4 2 roll % str dx x y
moveto % str dx
gsave
% draw a nice box around the text
0 -2 rmoveto
dup 3 add
dup 0 rlineto
0 20 rlineto
dup 2 mul neg 0 rlineto
0 -20 rlineto
closepath
gsave 0.95 setgray fill grestore
0.5 setlinewidth stroke
pop
grestore
neg 0 rmoveto % str
show
} def
/A {
20 add % adjust to-y
3 2 roll 3 sub 3 1 roll % adjust from-y
1.5 7 9 arrow fill
} def
%---------------------------------
/Helvetica 18 SF
300 600 (SvNULL) S
% extra arrow from SvRV to SvPV
gsave 0.5 setgray 226 558 272 558 1.5 7 9 arrow fill grestore
200 550 (SvRV) S 300 600 200 550 A
300 550 (SvPV) S 300 600 300 550 A
375 550 (SvIV) S 300 600 375 550 A
450 550 (SvNV) S 300 600 450 550 A
300 500 (SvPVIV) S 300 550 300 500 A 374 550 305 500 A
300 450 (SvPVNV) S 300 500 300 450 A 450 550 305 450 A
300 400 (SvPVMG) S 300 450 300 400 A
125 330 (SvPVBM) S 300 400 125 330 A
225 330 (SvPVLV) S 300 400 225 330 A
300 330 (AV) S 300 400 300 330 A
350 330 (HV) S 300 400 350 330 A
400 330 (CV) S 300 400 400 330 A
450 330 (GV) S 300 400 450 330 A
500 330 (IO) S 300 400 500 330 A
400 280 (SvPVFM) S 400 330 400 280 A