wyse overhaul (final pass) -- clean up and add wyse 99
[unix-history] / usr / src / share / me / eqn.me
CommitLineData
84f25a89 1.nr _0 \n(c.
0a1cd3e4 2.\" Copyright (c) 1988 The Regents of the University of California.
70e37822
KB
3.\" All rights reserved.
4.\"
5.\" Redistribution and use in source and binary forms are permitted
0a1cd3e4
KB
6.\" provided that the above copyright notice and this paragraph are
7.\" duplicated in all such forms and that any documentation,
8.\" advertising materials, and other materials related to such
9.\" distribution and use acknowledge that the software was developed
10.\" by the University of California, Berkeley. The name of the
11.\" University may not be used to endorse or promote products derived
12.\" from this software without specific prior written permission.
13.\" THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
14.\" IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
15.\" WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
16.\"
17.\" @(#)eqn.me 2.4 (Berkeley) %G%
18.\"
a3fd506b 19.\" %beginstrip%
70e37822 20.\"
84f25a89
EA
21.de EQ \" *** equation start
22.ec
23.if !\\n(?e \
24\{\
25. if "\\n(.z"|e" .tm Line \\n(c. -- Nested .EQ request
26. @D 1 "\\$1" "\\$2"
27. @C 2
28. di |e
29.\}
30.ls 1
31.in 0
32.nf
33..
34.de EN \" *** equation end
35.br
36.ie "\\$1"C" \
37\{\
38. nr ?e 1
39. sp \\n(esu
40.\}
41.el \
42\{\
43. nr ?e 0
44. di
45. if \\n(dn \
46. @q \" actual equation output
47. rm |e
48. rm 10
49. rm 11
50. rm 12
51. rm 13
52. rm 14
53. rm 15
54. rm 16
55. rm 17
56. rm 18
57. rm 19
58. rm 20
59. rm 21
60. rm 22
61. rm 23
62. ev
63.\}
64..
65.de @q \" --- equation output
66.nr _Q \\n(dnu
67.ev
68.sp \\n(esu \" output rest of preceeding text
69.@C 2 \" .ev 2 may be jumbled from header
70.ie \\n(_d=1 \
71. in (\\n(.lu+\\n($iu-\\n(dlu)/2u
72.el .ie \\n(_d=2 \
73. in \\n($iu
74.el .ie \\n(_d=3 \
75. in \\n(biu+\\n($iu
76.el .if \\n(_d=4 \
77. in 0
78.if !"\\n(.z"" \!.ne \\n(_Qu
79.ne \\n(_Qu+\n(.Vu \" keep it on one page
80.mk _q
81.if \n@>1 .tm --@e: _Q=\\n(_Q _q=\\n(_q nl=\\n(nl |p=\\*(|p
82.if !"\\*(|p"" \
83\{\
84. rs
85. sp (\\n(_Qu-\\n(.vu)/2u
86. tl """\\*(|p"
87. rt \\n(_qu
88.\}
89.|e
90.sp |\\n(_qu+\\n(_Qu
91.sp \\n(esu+\\n(.Lv-1v
92.rr _q
93.rr _Q
94..
95.nr c. \n(_0