blob: 1d120d3d6f0f15427e1ba0f1e8d891b2841c83fa (
plain) (
blame)
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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
\input graphicx
\nopagenumbers
\font\breit=cmr10 scaled \magstep3
\font\klein=cmr9
\font\winzig=cmr5
\def\slinie{\hrulefill\hskip 3em}
\def\leer{}
\overfullrule=0pt
\def\p{\hskip 0.5cm} % typical horizontal room
\parindent=1cm
%\offinterlineskip
\long\def\page{
%% Unit symbols, add spaces in front if you prefer
\def\unitmeter{m}
\def\unitft{ft}
\def\unitkg{kg}
\def\unitlb{lb}
\def\unitbar{bar}
\def\unitpsi{psi}
\def\unitcentigrade{${}^\circ$C}
\def\unitfahrenheit{${}^\circ$F}
\def\unitliter{$\ell$}
\def\unitcuft{cuft}
\def\unitmeterpermin{m/min}
\def\unitftpermin{ft/min}
%
$$\vbox{\hrule % upper cutting line
\vskip 2.0cm % upper whitespace
\vrule % left cutting line
$\vbox to 15cm{ % height of box
\vss\hbox to 3mm{\hrulefill}\vss}$ % middle line
\hskip 4.0cm % left white space
\vrule\vbox to 15cm{ % again height of box
\hrule depth 2pt % upper box boundary
\hbox to 10cm{ % width of box
\strut\p\date\slinie\vrule$\vcenter to 1.5cm{\vfil\hbox to
1.5cm{\hss\breit\strut\number\hss}\vfil\hrule}\vrule$}
%
\hbox{\p{\breit\strut\place} \country\hrulefill}
\medskip
\hbox{\p{\breit\strut\spot}\hrulefill}
\medskip
\hbox{\p\strut Entrance:\entrance\slinie}
\bigskip
\hbox to 10cm{\hss\breit\strut \time \p@\p\hbox to 1.5cm{\hss\depth}\hss}
\bigskip
\hbox to 10cm{\klein\p $\Delta p$: \hbox to 1cm{\hrulefill\gasuse}\hss
SAC: \hbox to 1.5cm{\hrulefill\sac}\hss
Type: \hbox to 1.2cm{\hrulefill\type}\hss Viz.:
\hbox to 0.8cm{\hrulefill\viz}\p}
\ifx\cylagasname\leer\else
\hbox to 10cm{\p\klein
\cyladescription\ \cylagasname: \cylastartpress\ -- \cylaendpress
\hss}
\fi
\ifx\cylbgasname\leer\else
\hbox to 10cm{\p\klein
\cylbdescription\ \cylbgasname: \cylbstartpress\ -- \cylbendpress
\hss}
\fi
\ifx\cylcgasname\leer\else
\hbox to 10cm{\p\klein
\cylcdescription\ \cylcgasname: \cylcstartpress\ -- \cylcendpress
\hss}
\fi
\bigskip
\hbox{\p\hsize = 9cm
\vbox{\noindent
\comment
}\p\hss}
\leaders\vbox to 0.55cm{\vss\hbox to 10cm{\p\hrulefill\p}}\vfill
\hbox to 10cm{\hss\plot\hss}
\vskip 0.5cm
\hbox to 10cm{\p{\breit Buddy:} \buddy\hrulefill\p}
\vskip 1ex % room above end of box
\hrule depth 2pt % lower boundary
}\vrule % right boundary
\hskip 1.0cm\vrule % right white space
\par
\hbox{\hskip 6cm
\winzig Subsurface dive log http://subsurface-divelog.org}
\vskip 2.0cm % lower white space
\hrule}$$}
|
