1*14486Ssam #ifndef lint 2*14486Ssam static char sccsid[] = "@(#)integral.c 4.3 08/11/83"; 3*14486Ssam #endif 411006Sshannon 511006Sshannon # include "e.h" 611006Sshannon # include "e.def" 711006Sshannon 811006Sshannon integral(p, p1, p2) { 911023Sshannon #ifndef NEQN 1011006Sshannon if (p1 != 0) 1111006Sshannon printf(".ds %d \\h'-0.4m'\\v'0.4m'\\*(%d\\v'-0.4m'\n", p1, p1); 1211006Sshannon if (p2 != 0) 1311006Sshannon printf(".ds %d \\v'-0.3m'\\*(%d\\v'0.3m'\n", p2, p2); 1411023Sshannon #endif 1511006Sshannon if (p1 != 0 && p2 != 0) 1611006Sshannon shift2(p, p1, p2); 1711006Sshannon else if (p1 != 0) 1811006Sshannon bshiftb(p, SUB, p1); 1911006Sshannon else if (p2 != 0) 2011006Sshannon bshiftb(p, SUP, p2); 2111006Sshannon if(dbg)printf(".\tintegral: S%d; h=%d b=%d\n", 2211006Sshannon p, eht[p], ebase[p]); 2311006Sshannon lfont[p] = ROM; 2411006Sshannon } 2511006Sshannon 2611006Sshannon setintegral() { 2711006Sshannon char *f; 2811006Sshannon 2911006Sshannon yyval = oalloc(); 3011006Sshannon f = "\\(is"; 3111023Sshannon #ifndef NEQN 3211006Sshannon printf(".ds %d \\s%d\\v'.1m'\\s+4%s\\s-4\\v'-.1m'\\s%d\n", 3311006Sshannon yyval, ps, f, ps); 3411006Sshannon eht[yyval] = VERT( (((ps+4)*12)/10)*6 ); 3511006Sshannon ebase[yyval] = VERT( (ps*6*3)/10 ); 3611023Sshannon #else NEQN 3711023Sshannon printf(".ds %d %s\n", yyval, f); 3811023Sshannon eht[yyval] = VERT(2); 3911023Sshannon ebase[yyval] = 0; 4011023Sshannon #endif NEQN 4111006Sshannon lfont[yyval] = rfont[yyval] = ROM; 4211006Sshannon } 43