increase DK_NDRIVE to 8
[unix-history] / usr / src / share / me / eqn.me
CommitLineData
84f25a89 1.nr _0 \n(c.
70e37822 2.\" @(#)eqn.me 2.2 (Berkeley) %G%
6ac5b741 3.\" %beginstrip%
70e37822
KB
4.\"
5.\" Copyright (c) 1988 Regents of the University of California.
6.\" All rights reserved.
7.\"
8.\" Redistribution and use in source and binary forms are permitted
9.\" provided that this notice is preserved and that due credit is given
10.\" to the University of California at Berkeley. The name of the University
11.\" may not be used to endorse or promote products derived from this
12.\" software without specific prior written permission. This software
13.\" is provided ``as is'' without express or implied warranty.
14.\"
84f25a89
EA
15.de EQ \" *** equation start
16.ec
17.if !\\n(?e \
18\{\
19. if "\\n(.z"|e" .tm Line \\n(c. -- Nested .EQ request
20. @D 1 "\\$1" "\\$2"
21. @C 2
22. di |e
23.\}
24.ls 1
25.in 0
26.nf
27..
28.de EN \" *** equation end
29.br
30.ie "\\$1"C" \
31\{\
32. nr ?e 1
33. sp \\n(esu
34.\}
35.el \
36\{\
37. nr ?e 0
38. di
39. if \\n(dn \
40. @q \" actual equation output
41. rm |e
42. rm 10
43. rm 11
44. rm 12
45. rm 13
46. rm 14
47. rm 15
48. rm 16
49. rm 17
50. rm 18
51. rm 19
52. rm 20
53. rm 21
54. rm 22
55. rm 23
56. ev
57.\}
58..
59.de @q \" --- equation output
60.nr _Q \\n(dnu
61.ev
62.sp \\n(esu \" output rest of preceeding text
63.@C 2 \" .ev 2 may be jumbled from header
64.ie \\n(_d=1 \
65. in (\\n(.lu+\\n($iu-\\n(dlu)/2u
66.el .ie \\n(_d=2 \
67. in \\n($iu
68.el .ie \\n(_d=3 \
69. in \\n(biu+\\n($iu
70.el .if \\n(_d=4 \
71. in 0
72.if !"\\n(.z"" \!.ne \\n(_Qu
73.ne \\n(_Qu+\n(.Vu \" keep it on one page
74.mk _q
75.if \n@>1 .tm --@e: _Q=\\n(_Q _q=\\n(_q nl=\\n(nl |p=\\*(|p
76.if !"\\*(|p"" \
77\{\
78. rs
79. sp (\\n(_Qu-\\n(.vu)/2u
80. tl """\\*(|p"
81. rt \\n(_qu
82.\}
83.|e
84.sp |\\n(_qu+\\n(_Qu
85.sp \\n(esu+\\n(.Lv-1v
86.rr _q
87.rr _Q
88..
89.nr c. \n(_0