7 static double prevh = HT;
8 static double prevw = WID; /* golden mean, sort of */
9 int i, at, battr, with;
10 double ddval, fillval, xwith, ywith;
11 double h, w, x0, y0, x1, y1;
16 w = getfval("boxwid");
17 at = battr = with = 0;
18 ddval = fillval = xwith = ywith = 0;
19 for (i = 0; i < nattr; i++) {
33 with = ap->a_val.i; /* corner */
49 battr |= ap->a_type==DOT ? DOTBIT : DASHBIT;
50 if (ap->a_sub == DEFAULT)
51 ddval = getfval("dashwid");
57 if (ap->a_sub == DEFAULT)
58 fillval = getfval("fillval");
60 fillval = ap->a_val.f;
63 savetext(ap->a_sub, ap->a_val.p);
69 case NORTH: ywith = -h / 2; break;
70 case SOUTH: ywith = h / 2; break;
71 case EAST: xwith = -w / 2; break;
72 case WEST: xwith = w / 2; break;
73 case NE: xwith = -w / 2; ywith = -h / 2; break;
74 case SE: xwith = -w / 2; ywith = h / 2; break;
75 case NW: xwith = w / 2; ywith = -h / 2; break;
76 case SW: xwith = w / 2; ywith = h / 2; break;
84 else if (isleft(hvmode))
86 else if (isup(hvmode))
102 p->o_fillval = fillval;
103 dprintf("B %g %g %g %g at %g %g, h=%g, w=%g\n", x0, y0, x1, y1, curx, cury, h, w);
106 else if (isleft(hvmode))
108 else if (isup(hvmode))