tmac.jsdisp (828B)
1 . \" DS - display. If .DS C, center; L, left-adjust; I, indent. 2 .de DS 3 .KS 4 .nf 5 .\\$1D \\$2 \\$1 6 .ft 1 7 .ps \\n(PS 8 .if \\n(VS>40 .vs \\n(VSu 9 .if \\n(VS<=39 .vs \\n(VSp 10 .. 11 .de D 12 .ID \\$1 13 .. 14 .de CD 15 .XD 16 .ce 1000 17 .. 18 .de ID 19 .XD 20 .if t .in +0.5i 21 .if n .in +8 22 .if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in \\n(OIu 23 .if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in +\\$1n 24 .. 25 .de LD 26 .XD 27 .. 28 .de XD 29 .nf 30 .nr OI \\n(.i 31 .SP \\n(DVu 32 .sp \\n(DVu 33 .. 34 . \" BD - block display: save everything, then center it. 35 .de BD 36 .XD 37 .nr BD 1 38 .nf 39 .in \\n(OIu 40 .di DD 41 .. 42 . \"DE - display end 43 .de DE 44 .ce 0 45 .if \\n(BD>0 .DF 46 .nr BD 0 47 .in \\n(OIu 48 .KE 49 .SP \\n(DVu 50 .sp \\n(DVu 51 .fi 52 .. 53 . \" DF - finish a block display to be recentered. 54 .de DF 55 .di 56 .if \\n(dl>\\n(BD .nr BD \\n(dl 57 .if \\n(BD<\\n(.l .in (\\n(.lu-\\n(BDu)/2u 58 .nr EI \\n(.l-\\n(.i 59 .ta \\n(EIuR 60 .nf 61 .DD 62 .in \\n(OIu 63 ..