6 double frame_ht; /* default frame height */
7 double frame_wid; /* and width */
9 int nsides = 0; /* how many sides given on this frame */
11 "\tline from Frame.nw to Frame.ne",
12 "\tline from Frame.sw to Frame.se",
13 "\tline from Frame.sw to Frame.nw",
14 "\tline from Frame.se to Frame.ne"
16 char *newsides[4] = { 0, 0, 0, 0 }; /* filled in later */
18 void frame(void) /* pump out frame definition, reset for next */
22 fprintf(tfd, "\tframeht = %g\n", frame_ht);
23 fprintf(tfd, "\tframewid = %g\n", frame_wid);
24 fprintf(tfd, "Frame:\tbox ht frameht wid framewid with .sw at 0,0 ");
28 fprintf(tfd, "invis\n");
29 for (i = 0; i < 4; i++) {
31 fprintf(tfd, "%s\n", newsides[i]);
35 fprintf(tfd, "%s\n", sides[i]);
41 void frameht(double f) /* set height of frame */
46 void framewid(double f) /* set width of frame */
51 void frameside(int type, Attr *desc) /* create and remember sides */
60 case 0: /* no side specified; kludge up all */
63 frameside(LEFT, desc);
64 frameside(RIGHT, desc);
66 case TOP: n = 0; break;
67 case BOT: n = 1; break;
68 case LEFT: n = 2; break;
69 case RIGHT: n = 3; break;
71 sprintf(buf, "%s %s", sides[n], desc_str(desc));
72 newsides[n] = tostring(buf);