13e12c5d1SDavid du Colombier #include <stdio.h>
23e12c5d1SDavid du Colombier #include "pic.h"
33e12c5d1SDavid du Colombier #include "y.tab.h"
43e12c5d1SDavid du Colombier
textgen(void)53e12c5d1SDavid du Colombier obj *textgen(void)
63e12c5d1SDavid du Colombier {
7*7dd7cddfSDavid du Colombier int i, sub, nstr, at, with, hset, invis;
83e12c5d1SDavid du Colombier double xwith, ywith, h, w, x0, y0, x1, y1;
93e12c5d1SDavid du Colombier obj *p, *ppos;
103e12c5d1SDavid du Colombier static double prevh = 0;
113e12c5d1SDavid du Colombier static double prevw = 0;
123e12c5d1SDavid du Colombier Attr *ap;
133e12c5d1SDavid du Colombier
14*7dd7cddfSDavid du Colombier at = with = nstr = hset = invis = 0;
153e12c5d1SDavid du Colombier h = getfval("textht");
163e12c5d1SDavid du Colombier w = getfval("textwid");
173e12c5d1SDavid du Colombier for (i = 0; i < nattr; i++) {
183e12c5d1SDavid du Colombier ap = &attr[i];
193e12c5d1SDavid du Colombier switch (ap->a_type) {
203e12c5d1SDavid du Colombier case HEIGHT:
213e12c5d1SDavid du Colombier h = ap->a_val.f;
223e12c5d1SDavid du Colombier hset++;
233e12c5d1SDavid du Colombier break;
243e12c5d1SDavid du Colombier case WIDTH:
253e12c5d1SDavid du Colombier w = ap->a_val.f;
263e12c5d1SDavid du Colombier break;
273e12c5d1SDavid du Colombier case WITH:
283e12c5d1SDavid du Colombier with = ap->a_val.i;
293e12c5d1SDavid du Colombier break;
30*7dd7cddfSDavid du Colombier case INVIS:
31*7dd7cddfSDavid du Colombier invis = INVIS;
32*7dd7cddfSDavid du Colombier break;
333e12c5d1SDavid du Colombier case AT:
343e12c5d1SDavid du Colombier ppos = ap->a_val.o;
353e12c5d1SDavid du Colombier curx = ppos->o_x;
363e12c5d1SDavid du Colombier cury = ppos->o_y;
373e12c5d1SDavid du Colombier at++;
383e12c5d1SDavid du Colombier break;
393e12c5d1SDavid du Colombier case TEXTATTR:
403e12c5d1SDavid du Colombier sub = ap->a_sub;
413e12c5d1SDavid du Colombier if (ap->a_val.p == NULL) /* an isolated modifier */
423e12c5d1SDavid du Colombier text[ntext-1].t_type = sub;
433e12c5d1SDavid du Colombier else {
443e12c5d1SDavid du Colombier savetext(sub, ap->a_val.p);
453e12c5d1SDavid du Colombier nstr++;
463e12c5d1SDavid du Colombier }
473e12c5d1SDavid du Colombier break;
483e12c5d1SDavid du Colombier }
493e12c5d1SDavid du Colombier }
503e12c5d1SDavid du Colombier if (hset == 0) /* no explicit ht cmd */
513e12c5d1SDavid du Colombier h *= nstr;
523e12c5d1SDavid du Colombier if (with) {
533e12c5d1SDavid du Colombier xwith = ywith = 0.0;
543e12c5d1SDavid du Colombier switch (with) {
553e12c5d1SDavid du Colombier case NORTH: ywith = -h / 2; break;
563e12c5d1SDavid du Colombier case SOUTH: ywith = h / 2; break;
573e12c5d1SDavid du Colombier case EAST: xwith = -w / 2; break;
583e12c5d1SDavid du Colombier case WEST: xwith = w / 2; break;
593e12c5d1SDavid du Colombier case NE: xwith = -w / 2; ywith = -h / 2; break;
603e12c5d1SDavid du Colombier case SE: xwith = -w / 2; ywith = h / 2; break;
613e12c5d1SDavid du Colombier case NW: xwith = w / 2; ywith = -h / 2; break;
623e12c5d1SDavid du Colombier case SW: xwith = w / 2; ywith = h / 2; break;
633e12c5d1SDavid du Colombier }
643e12c5d1SDavid du Colombier curx += xwith;
653e12c5d1SDavid du Colombier cury += ywith;
663e12c5d1SDavid du Colombier }
673e12c5d1SDavid du Colombier if (!at) {
683e12c5d1SDavid du Colombier if (isright(hvmode))
693e12c5d1SDavid du Colombier curx += w / 2;
703e12c5d1SDavid du Colombier else if (isleft(hvmode))
713e12c5d1SDavid du Colombier curx -= w / 2;
723e12c5d1SDavid du Colombier else if (isup(hvmode))
733e12c5d1SDavid du Colombier cury += h / 2;
743e12c5d1SDavid du Colombier else
753e12c5d1SDavid du Colombier cury -= h / 2;
763e12c5d1SDavid du Colombier }
773e12c5d1SDavid du Colombier x0 = curx - w / 2;
783e12c5d1SDavid du Colombier y0 = cury - h / 2;
793e12c5d1SDavid du Colombier x1 = curx + w / 2;
803e12c5d1SDavid du Colombier y1 = cury + h / 2;
813e12c5d1SDavid du Colombier extreme(x0, y0);
823e12c5d1SDavid du Colombier extreme(x1, y1);
833e12c5d1SDavid du Colombier dprintf("Text h %g w %g at %g,%g\n", h, w, curx, cury);
843e12c5d1SDavid du Colombier p = makenode(TEXT, 2);
85*7dd7cddfSDavid du Colombier p->o_attr = invis;
863e12c5d1SDavid du Colombier p->o_val[0] = w;
873e12c5d1SDavid du Colombier p->o_val[1] = h;
883e12c5d1SDavid du Colombier if (isright(hvmode))
893e12c5d1SDavid du Colombier curx = x1;
903e12c5d1SDavid du Colombier else if (isleft(hvmode))
913e12c5d1SDavid du Colombier curx = x0;
923e12c5d1SDavid du Colombier else if (isup(hvmode))
933e12c5d1SDavid du Colombier cury = y1;
943e12c5d1SDavid du Colombier else
953e12c5d1SDavid du Colombier cury = y0;
963e12c5d1SDavid du Colombier prevh = h;
973e12c5d1SDavid du Colombier prevw = w;
983e12c5d1SDavid du Colombier return(p);
993e12c5d1SDavid du Colombier }
1003e12c5d1SDavid du Colombier
troffgen(char * s)1013e12c5d1SDavid du Colombier obj *troffgen(char *s) /* save away a string of troff commands */
1023e12c5d1SDavid du Colombier {
1033e12c5d1SDavid du Colombier savetext(CENTER, s); /* use the existing text mechanism */
1043e12c5d1SDavid du Colombier return makenode(TROFF, 0);
1053e12c5d1SDavid du Colombier }
1063e12c5d1SDavid du Colombier
savetext(int t,char * s)1073e12c5d1SDavid du Colombier void savetext(int t, char *s) /* record text elements for current object */
1083e12c5d1SDavid du Colombier {
1093e12c5d1SDavid du Colombier if (ntext >= ntextlist)
1103e12c5d1SDavid du Colombier text = (Text *) grow((char *) text, "text", ntextlist += 200, sizeof(Text));
1113e12c5d1SDavid du Colombier text[ntext].t_type = t;
1123e12c5d1SDavid du Colombier text[ntext].t_val = s;
1133e12c5d1SDavid du Colombier dprintf("saving %d text %s at %d\n", t, s, ntext);
1143e12c5d1SDavid du Colombier ntext++;
1153e12c5d1SDavid du Colombier }
116