Commit | Line | Data |
---|---|---|
1480e72b BS |
1 | /* integral.c 4.1 83/02/11 */ |
2 | ||
3 | # include "e.h" | |
4 | # include "e.def" | |
5 | ||
6 | integral(p, p1, p2) { | |
7 | if (p1 != 0) | |
8 | printf(".ds %d \\h'-0.4m'\\v'0.4m'\\*(%d\\v'-0.4m'\n", p1, p1); | |
9 | if (p2 != 0) | |
10 | printf(".ds %d \\v'-0.3m'\\*(%d\\v'0.3m'\n", p2, p2); | |
11 | if (p1 != 0 && p2 != 0) | |
12 | shift2(p, p1, p2); | |
13 | else if (p1 != 0) | |
14 | bshiftb(p, SUB, p1); | |
15 | else if (p2 != 0) | |
16 | bshiftb(p, SUP, p2); | |
17 | if(dbg)printf(".\tintegral: S%d; h=%d b=%d\n", | |
18 | p, eht[p], ebase[p]); | |
19 | lfont[p] = ROM; | |
20 | } | |
21 | ||
22 | setintegral() { | |
23 | char *f; | |
24 | ||
25 | yyval = oalloc(); | |
26 | f = "\\(is"; | |
27 | printf(".ds %d \\s%d\\v'.1m'\\s+4%s\\s-4\\v'-.1m'\\s%d\n", | |
28 | yyval, ps, f, ps); | |
29 | eht[yyval] = VERT( (((ps+4)*12)/10)*6 ); | |
30 | ebase[yyval] = VERT( (ps*6*3)/10 ); | |
31 | lfont[yyval] = rfont[yyval] = ROM; | |
32 | } |