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