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