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