1 #ifndef lint 2 static char sccsid[] = "@(#)pile.c 2.2 (CWI) 87/04/01"; 3 #endif lint 4 #include "e.h" 5 #include "y.tab.h" 6 7 pile(oct) 8 int oct; 9 { 10 int i, nlist, nlist2, mid; 11 float bi, hi, h, b, gap, sb; 12 extern float Pilegap, Pilebase; 13 int type, p1, p2; 14 15 yyval = salloc(); 16 type = lp[oct]; 17 p1 = oct + 3; /* first entry */ 18 p2 = p1 + lp[oct+1]; /* 1 after last */ 19 gap = lp[oct+2]; 20 if (gap != DEFGAP) 21 gap = EM(gap/100.0, ps); 22 else if (type == COL) 23 gap = 0; 24 else 25 gap = EM(Pilegap, ps); /* 0.4 m between LCOL, etc. */ 26 nlist = p2 - p1; 27 nlist2 = (nlist+1)/2; 28 mid = p1 + nlist2 - 1; 29 h = 0; 30 for (i = p1; i < p2; i++) 31 h += eht[lp[i]]; 32 eht[yyval] = h + (nlist-1)*gap; 33 b = 0; 34 for (i = p2-1; i > mid; i--) 35 b += eht[lp[i]] + gap; 36 ebase[yyval] = (nlist%2) ? b + ebase[lp[mid]] 37 : b - EM(Pilebase, ps) - gap; 38 if (dbg) { 39 printf(".\tS%d <- %d pile of:", yyval, type); 40 for (i = p1; i < p2; i++) 41 printf(" S%d", lp[i]); 42 printf("; h=%g b=%g\n", eht[yyval], ebase[yyval]); 43 } 44 nrwid(lp[p1], ps, lp[p1]); 45 printf(".nr %d \\n(%d\n", yyval, lp[p1]); 46 for (i = p1+1; i < p2; i++) { 47 nrwid(lp[i], ps, lp[i]); 48 printf(".if \\n(%d>\\n(%d .nr %d \\n(%d\n", 49 lp[i], yyval, yyval, lp[i]); 50 } 51 printf(".ds %d \\v'%gm'\\h'%du*\\n(%du'\\\n", yyval, REL(ebase[yyval],ps), 52 type==RCOL ? 1 : 0, yyval); 53 sb = 0; /* sum of box hts */ 54 for (i = p2-1; i >= p1; i--) { 55 bi = sb + ebase[lp[i]]; 56 switch (type) { 57 case LCOL: 58 printf("\\v'%gm'\\*(%d\\h'-\\n(%du'\\v'%gm'\\\n", 59 REL(-bi,ps), lp[i], lp[i], REL(bi,ps)); 60 break; 61 case RCOL: 62 printf("\\v'%gm'\\h'-\\n(%du'\\*(%d\\v'%gm'\\\n", 63 REL(-bi,ps), lp[i], lp[i], REL(bi,ps)); 64 break; 65 case CCOL: 66 case COL: 67 printf("\\v'%gm'\\h'\\n(%du-\\n(%du/2u'\\*(%d", 68 REL(-bi,ps), yyval, lp[i], lp[i]); 69 printf("\\h'-\\n(%du-\\n(%du/2u'\\v'%gm'\\\n", 70 yyval, lp[i], REL(bi,ps)); 71 break; 72 } 73 sb += eht[lp[i]] + gap; 74 } 75 printf("\\v'%gm'\\h'%du*\\n(%du'\n", REL(-ebase[yyval],ps), 76 type!=RCOL ? 1 : 0, yyval); 77 for (i = p1; i < p2; i++) 78 sfree(lp[i]); 79 lfont[yyval] = rfont[yyval] = 0; 80 } 81