new copyright; att/bsd/shared
[unix-history] / usr / src / old / ms / eqn.ms
CommitLineData
2791ff57
KB
1.\" %sccs.include.proprietary.roff%
2.\"
3.\" @(#)eqn.ms 5.1 (Berkeley) %G%
4.\"
aa02d386
MK
5.bd S B 3
6. \" EQ - equation, breakout and display
7.de EQ
8.nr UR \\n(.u
9.rm EE
10.nr LE 1 \" default centered
11.ds EL \f1\\$1\fP
12.if \a\\$1\aC\a .ds EL \f1\\$2\fP
13.if \a\\$1\aL\a \{\
14. ds EL \f1\\$2\fP
15. nr LE 0
16.\}
17.if \a\\$1\aI\a \{\
18. ds EL \f1\\$2\fP
19. nr LE 0
20. ds EE \\h'|10n'
21. if !\a\\$3\a\a .ds EE \\h'\\$3'
22.\}
23.if \\n(YE>0 .nf
24.di EZ
25..
26. \" EN - end of a displayed equation
27.de EN
28.if !\a\\*(10\a\a .br
29.di
30.rm EZ
31.nr ZN \\n(dn
32.if \\n(ZN>0 .if \\n(YE=0 .LP
33.if \\n(ZN=0 .if !\a\\*(EL\a\a .nr ZN 1
34.if \a\\n(.z\a\a .if \\n(ZN>0 .if !\\n(nl=\\n(PE .sp \\n(DDu
35.if !\a\\n(.z\a\a .if \\n(ZN>0 .if !\\n(.d=\\n(PE .sp \\n(DDu
36.pc
37.if \\n(BD>0 .nr LE 0 \" can't mean centering in this case.
38.if \\n(MK>0 .if \\n(LE=1 .ds EE \\h'|10n'
39.if \\n(MK>0 .nr LE 0 \" don't center if mark/lineup
40.lt \\n(.lu
41.if \\n(EP=0 .if \\n(ZN>0 \{\
42. if \\n(LE>0 .tl \a\a\\*(10\a\\*(EL\a
43. if \\n(LE=0 .if \\n(BD=0 .tl \a\\*(EE\\*(10\a\a\\*(EL\a
44. if \\n(LE=0 .if \\n(BD>0 .if \\n(BD<\\w\a\\*(10\a .nr BD \\w\a\\*(10\a
45. if \\n(LE=0 .if \\n(BD>0 \!\\*(10\\t\\*(EL
46.\}
47.if \\n(EP>0 .if \\n(ZN>0 \{\
48. if \\n(LE>0 .tl \a\\*(EL\a\\*(10\a\a
49. if \\n(LE=0 .if \\n(BD=0 .tl \a\\*(EL\\*(EE\\*(10\a\a\a
50. if \\n(LE=0 .if \\n(BD>0 .if \\n(BD<\\w\a\\*(10\a .nr BD \\w\a\\*(10\a
51. if \\n(LE=0 .if \\n(BD>0 \!\\h'-\\\\n(.iu'\\*(EL\\h'|0'\\*(10
52.\}
53.lt \\n(LLu
54.pc %
55.if \\n(YE>0 .if \\n(UR>0 .fi
56.rm 10 11 12 13 14 15 16 17 18 19 20 21 22 23 EL
57.rr 10 11 12 13 14 15 16 17 18 19 20 21 22 23
58.if \\n(ZN>0 .if t .sp \\n(DDu
59.if \a\\n(.z\a\a .nr PE \\n(nl
60.if !\a\\n(.z\a\a .nr PE \\n(.d
61..