1*11023Sshannon /* integral.c 4.2 83/02/12 */ 211006Sshannon 311006Sshannon # include "e.h" 411006Sshannon # include "e.def" 511006Sshannon 611006Sshannon integral(p, p1, p2) { 7*11023Sshannon #ifndef NEQN 811006Sshannon if (p1 != 0) 911006Sshannon printf(".ds %d \\h'-0.4m'\\v'0.4m'\\*(%d\\v'-0.4m'\n", p1, p1); 1011006Sshannon if (p2 != 0) 1111006Sshannon printf(".ds %d \\v'-0.3m'\\*(%d\\v'0.3m'\n", p2, p2); 12*11023Sshannon #endif 1311006Sshannon if (p1 != 0 && p2 != 0) 1411006Sshannon shift2(p, p1, p2); 1511006Sshannon else if (p1 != 0) 1611006Sshannon bshiftb(p, SUB, p1); 1711006Sshannon else if (p2 != 0) 1811006Sshannon bshiftb(p, SUP, p2); 1911006Sshannon if(dbg)printf(".\tintegral: S%d; h=%d b=%d\n", 2011006Sshannon p, eht[p], ebase[p]); 2111006Sshannon lfont[p] = ROM; 2211006Sshannon } 2311006Sshannon 2411006Sshannon setintegral() { 2511006Sshannon char *f; 2611006Sshannon 2711006Sshannon yyval = oalloc(); 2811006Sshannon f = "\\(is"; 29*11023Sshannon #ifndef NEQN 3011006Sshannon printf(".ds %d \\s%d\\v'.1m'\\s+4%s\\s-4\\v'-.1m'\\s%d\n", 3111006Sshannon yyval, ps, f, ps); 3211006Sshannon eht[yyval] = VERT( (((ps+4)*12)/10)*6 ); 3311006Sshannon ebase[yyval] = VERT( (ps*6*3)/10 ); 34*11023Sshannon #else NEQN 35*11023Sshannon printf(".ds %d %s\n", yyval, f); 36*11023Sshannon eht[yyval] = VERT(2); 37*11023Sshannon ebase[yyval] = 0; 38*11023Sshannon #endif NEQN 3911006Sshannon lfont[yyval] = rfont[yyval] = ROM; 4011006Sshannon } 41