1 #ifndef lint
2 static char sccsid[] = "@(#)label.c 1.1 (CWI) 85/07/19";
3 #endif lint
4 #include <stdio.h>
5 #include "grap.h"
6 #include "y.tab.h"
7
8 int pointsize = 10; /* assumed pointsize to start */
9 int ps_set = 0; /* someone has set pointsize explicitly */
10
11 double textht = 1.0/6.0; /* 6 lines/inch */
12 double textwid = 1; /* width of text box for vertical */
13
14 double lab_up = 0.0; /* extra motion for label */
15 double lab_rt = 0.0; /* extra motion for label */
16
labelmove(dir,amt)17 labelmove(dir, amt) /* record direction & motion of position corr */
18 int dir;
19 double amt;
20 {
21 switch (dir) {
22 case UP: lab_up += amt; break;
23 case DOWN: lab_up -= amt; break;
24 case LEFT: lab_rt -= amt; break;
25 case RIGHT: lab_rt += amt; break;
26 }
27 }
28
label(label_side,stringlist)29 label(label_side, stringlist) /* stick label on label_side */
30 int label_side;
31 Attr *stringlist;
32 {
33 int i, m;
34 Attr *ap, *nap;
35
36 fprintf(tfd, "\ttextht = %g\n", textht);
37 if (label_side == LEFT || label_side == RIGHT) {
38 textwid = 0;
39 for (ap = stringlist; ap != NULL; ap = ap->next)
40 if ((m = strlen(ap->sval)) > textwid)
41 textwid = m;
42 textwid /= 15; /* estimate width at 15 chars/inch */
43 fprintf(tfd, "\ttextwid = %g\n", textwid);
44 }
45 fprintf(tfd, "Label:\t%s", slprint(stringlist));
46 freeattr(stringlist);
47 switch (label_side) {
48 case BOT:
49 case 0:
50 fprintf(tfd, " with .n at Frame.s - (0,2 * textht)");
51 break;
52 case LEFT:
53 fprintf(tfd, " wid textwid with .e at Frame.w - (0.2,0)");
54 break;
55 case RIGHT:
56 fprintf(tfd, " wid textwid with .w at Frame.e + (0.2,0)");
57 break;
58 case TOP:
59 fprintf(tfd, " with .s at Frame.n + (0,2 * textht)");
60 break;
61 }
62 lab_adjust();
63 fprintf(tfd, "\n");
64 label_side = BOT;
65 }
66
lab_adjust()67 lab_adjust() /* add a string to adjust labels, ticks, etc. */
68 {
69 if (lab_up != 0.0 || lab_rt != 0.0)
70 fprintf(tfd, " + (%g,%g)", lab_rt, lab_up);
71 }
72
sizeit(ap)73 char *sizeit(ap) /* add \s..\s to ap->sval */
74 Attr *ap;
75 {
76 int n;
77 static char buf[1000];
78
79 if (!ap->op) { /* no explicit size command */
80 if (ps_set) {
81 sprintf(buf, "\\s%d%s\\s0", pointsize, ap->sval);
82 return buf;
83 } else
84 return ap->sval;
85 } else if (!ps_set) { /* explicit size but no global size */
86 n = (int) ap->fval;
87 switch (ap->op) {
88 case ' ': /* absolute size */
89 sprintf(buf, "\\s%d%s\\s0", n, ap->sval);
90 break;
91 case '+': /* better be only one digit! */
92 sprintf(buf, "\\s+%d%s\\s-%d", n, ap->sval, n);
93 break;
94 case '-':
95 sprintf(buf, "\\s-%d%s\\s+%d", n, ap->sval, n);
96 break;
97 case '*':
98 case '/':
99 return ap->sval; /* ignore for now */
100 }
101 return buf;
102 } else {
103 /* explicit size and a global background size */
104 n = (int) ap->fval;
105 switch (ap->op) {
106 case ' ': /* absolute size */
107 sprintf(buf, "\\s%d%s\\s0", n, ap->sval);
108 break;
109 case '+':
110 sprintf(buf, "\\s%d%s\\s0", pointsize+n, ap->sval);
111 break;
112 case '-':
113 sprintf(buf, "\\s%d%s\\s0", pointsize-n, ap->sval);
114 break;
115 case '*':
116 case '/':
117 return ap->sval; /* ignore for now */
118 }
119 return buf;
120 }
121 }
122