divelog.ps

%!PS-Adobe-3.0
%%Creator: diveplot by cramer@freestone.net
%%Orientation: Portrait
%%Pages: 1
%%PageOrder: Ascend
%%Title: diveplot
%%EndComments
%%BeginFeature:  *Duplex DuplexNoTumble
  <</Duplex true /Tumble false>> setpagedevice
%%BeginProlog
/mm {72 mul 25.4 div} def
%%EndProlog

/subscript {
  /Helvetica findfont 2 mm scalefont setfont
  0 mm -0.7 mm rmoveto
  show
} def

/checkbox {
newpath
0.5 setlinewidth 
-0.5 mm -0.5 mm moveto
2.5 mm -0.5 mm lineto
2.5 mm 2.5 mm lineto
-0.5 mm 2.5 mm lineto
closepath
stroke
} def

/pagepart {

/Helvetica findfont
5 mm scalefont
setfont

newpath
5 mm 141 mm moveto
(DiveLog) show

/Helvetica findfont
3 mm scalefont
setfont

34 mm 141 mm moveto
(Dive No.) show
63 mm 141 mm moveto
(Datum) show

newpath
0.5 mm setlinewidth
5 mm 139.5 mm moveto
92 mm 139.5 mm lineto
stroke

0.5 setlinewidth

newpath
5 mm 132 mm moveto (Sea/Lake) show
49 mm 132 mm moveto (Place) show
19 mm 131.5 mm moveto
48 mm 131.5 mm lineto
57 mm 131.5 mm moveto
92 mm 131.5 mm lineto
stroke

newpath
5 mm 124 mm moveto (Height) show
15 mm 123.5 mm moveto
37 mm 123.5 mm lineto
38 mm 124 mm moveto (Koordinates) show
55 mm 123.5 mm moveto
92 mm 123.5 mm lineto
stroke

/Helvetica findfont
2.3 mm scalefont
setfont

5.5 mm 119 mm moveto
(Start) show
5.5 mm 116 mm moveto
(time) show

newpath
5 mm 122 mm moveto
5 mm 115 mm lineto
29 mm 115 mm lineto
29 mm 122 mm lineto
closepath
stroke

31.5 mm 119 mm moveto
(Dive) show
31.5 mm 116 mm moveto
(time) show

newpath
31 mm 122 mm moveto
31 mm 115 mm lineto
55 mm 115 mm lineto
55 mm 122 mm lineto
closepath
stroke

57.5 mm 119 mm moveto
(Surface) show
57.5 mm 116 mm moveto
(interval) show

newpath
57 mm 122 mm moveto
57 mm 115 mm lineto
92 mm 115 mm lineto
92 mm 122 mm lineto
closepath
stroke


5.5 mm 110 mm moveto
(Start) show
5.5 mm 107 mm moveto
(pressure) show

newpath
5 mm 113 mm moveto
5 mm 106 mm lineto
29 mm 106 mm lineto
29 mm 113 mm lineto
closepath
stroke

31.5 mm 110 mm moveto
(End) show
31.5 mm 107 mm moveto
(pressure) show

newpath
31 mm 113 mm moveto
31 mm 106 mm lineto
55 mm 106 mm lineto
55 mm 113 mm lineto
closepath
stroke

57.5 mm 110 mm moveto
(Max.) show
57.5 mm 107 mm moveto
(depth) show

newpath
57 mm 113 mm moveto
57 mm 106 mm lineto
92 mm 106 mm lineto
92 mm 113 mm lineto
closepath
stroke

/Helvetica findfont
3 mm scalefont
setfont

10 mm 101 mm moveto
(Temperature) show

/Helvetica findfont
2.3 mm scalefont
setfont

5.5 mm 96 mm moveto
(Air) show
5.5 mm 91 mm moveto
(Water max.) show
5.5 mm 86 mm moveto
(Water min.) show

% Temperature Boxes
newpath
5 mm 104 mm moveto
33 mm 104 mm lineto
33 mm 85 mm lineto
5 mm 85 mm lineto
closepath
5 mm 100 mm moveto
33 mm 100 mm lineto
5 mm 95 mm moveto
33 mm 95 mm lineto
5 mm 90 mm moveto
33 mm 90 mm lineto
stroke


% Visibility Boxes
newpath
35 mm 104 mm moveto
80 mm 104 mm lineto
35 mm 101 mm moveto
80 mm 101 mm lineto
35 mm 95 mm moveto
80 mm 95 mm lineto
stroke

36.5 mm 102 mm moveto (0-5m) show
45.2 mm 102 mm moveto (5-10m) show
53.5 mm 102 mm moveto (10-20m) show
62.5 mm 102 mm moveto (20-30m) show
71.6 mm 102 mm moveto (30-40m) show

newpath
35 mm 104 mm moveto 35 mm 95 mm lineto
44 mm 104 mm moveto 44 mm 95 mm lineto
53 mm 104 mm moveto 53 mm 95 mm lineto
62 mm 104 mm moveto 62 mm 95 mm lineto
71 mm 104 mm moveto 71 mm 95 mm lineto
80 mm 104 mm moveto 80 mm 95 mm lineto
stroke

newpath
5 mm 7 mm moveto
5 mm 83 mm lineto
92 mm 83 mm lineto
92 mm 7 mm lineto
closepath
stroke

81 mm 102 mm moveto (-4 very bad) show
81 mm 99 mm moveto (0 ok) show
81 mm 96 mm moveto (+4 glass clear) show

% Nitrox Box
newpath
35 mm 93 mm moveto 80 mm 93 mm lineto
80 mm 85 mm lineto
35 mm 85 mm lineto
closepath
stroke

/Helvetica findfont
3 mm scalefont
setfont

36 mm 88 mm moveto (Air) show
gsave   
42 mm 88 mm translate
checkbox
grestore
47 mm 88 mm moveto (Nitrox) show
gsave   
57 mm 88 mm translate
checkbox
grestore

72 mm 88 mm moveto (% O) show
(2) subscript

newpath
46 mm 93 mm moveto 46 mm 85 mm lineto
stroke

% Description grid
0.25 setlinewidth
0.5 setgray
newpath
8 mm 3 mm 89 mm { 7 mm moveto 0 76 mm rlineto } for
10 mm 3 mm 80 mm { 5 mm exch moveto 87 mm 0 rlineto } for
stroke

0 setgray

5.5 mm 80 mm moveto
(Description) show

/Helvetica findfont
1.8 mm scalefont
setfont


% Units
/Helvetica findfont
3.5 mm scalefont
setfont

23 mm 107 mm moveto
(Bar) show

49 mm 107 mm moveto
(Bar) show

87 mm 107 mm moveto
(m) show

28.5 mm 96 mm moveto
(\312C) show

28.5 mm 91 mm moveto
(\312C) show

28.5 mm 86 mm moveto
(\312C) show

/Symbol findfont
1.6 mm scalefont
setfont

% Copyright
5 mm 5 mm moveto
(\343) show

/Helvetica findfont
1.6 mm scalefont
setfont

( 2001-2015 Matthias Cramer, cramer@freestone.net) show

} def

% print 4 sheets on two pages

gsave
8 mm 148 mm translate
pagepart
grestore

gsave
8 mm 0 mm translate  
pagepart
grestore

gsave
113 mm 148 mm translate
pagepart
grestore

gsave
113 mm 0 mm translate 
pagepart
grestore
showpage

gsave
0 mm 148 mm translate 
pagepart
grestore

gsave
0 mm 0 mm translate  
pagepart
grestore

gsave
105 mm 148 mm translate
pagepart
grestore

gsave
105 mm 0 mm translate
pagepart
grestore
showpage