| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061 |
- . \"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
- ..
|
