123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263 |
- . \" DS - display. If .DS C, center; L, left-adjust; I, indent.
- .de DS
- .KS
- .nf
- .\\$1D \\$2 \\$1
- .ft 1
- .ps \\n(PS
- .if \\n(VS>40 .vs \\n(VSu
- .if \\n(VS<=39 .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
- .sp \\n(DVu
- ..
- . \" BD - block display: save everything, then center it.
- .de BD
- .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
- .sp \\n(DVu
- .fi
- ..
- . \" DF - finish a block display to be recentered.
- .de DF
- .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
- ..
|