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