Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: e1c85798a5
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 64 lines (51 sloc) 1.544 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
%!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
Something went wrong with that request. Please try again.