. \"DS - display. If .DS C, center; L, left-adjust; I, indent. | |
.de DS | |
.KS | |
.nf | |
.\\$1D \\$2 \\$1 | |
.ft 1 | |
.if !\\n(IF \{\ | |
. ps \\n(PS | |
. ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n 70n 75n 80n | |
. ie \\n(VS>=41 .vs \\n(VSu | |
. el .vs \\n(VSp\} | |
.. | |
.de D | |
.ID \\$1 | |
.. | |
.de CD | |
.XD | |
.ce 1000 | |
.. | |
.de ID | |
.XD | |
.if t .in +0.5i | |
.if n .in +8 | |
.if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in \\n(OIu | |
.if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in +\\$1n | |
.. | |
.de LD | |
.XD | |
.. | |
.de XD | |
.nf | |
.nr OI \\n(.i | |
.sp \\n(DVu | |
.. | |
.de BD \" block display: save everything, then center it. | |
.XD | |
.nr BD 1 | |
.nf | |
.in \\n(OIu | |
.di DD | |
.. | |
. \"DE - display end | |
.de DE | |
.ce 0 | |
.if \\n(BD>0 .DF | |
.nr BD 0 | |
.in \\n(OIu | |
.KE | |
.sp \\n(DVu | |
.fi | |
.. | |
.de DF \" finish a block display to be recentered. | |
.di | |
.if \\n(dl>\\n(BD .nr BD \\n(dl | |
.if \\n(BD<\\n(.l .in (\\n(.lu-\\n(BDu)/2u | |
.nr EI \\n(.l-\\n(.i | |
.ta \\n(EIuR | |
.nf | |
.DD | |
.in \\n(OIu | |
.. |