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