123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123 |
- #include <stdio.h>
- #include <string.h>
- #include "grap.h"
- #include "y.tab.h"
- int pointsize = 10; /* assumed pointsize to start */
- int ps_set = 0; /* someone has set pointsize explicitly */
- double textht = 1.0/6.0; /* 6 lines/inch */
- double textwid = 1; /* width of text box for vertical */
- double lab_up = 0.0; /* extra motion for label */
- double lab_rt = 0.0; /* extra motion for label */
- double lab_wid = 0.0; /* override default width computation */
- void labelwid(double amt)
- {
- lab_wid = amt + .00001;
- }
- void labelmove(int dir, double amt) /* record direction & motion of position corr */
- {
- switch (dir) {
- case UP: lab_up += amt; break;
- case DOWN: lab_up -= amt; break;
- case LEFT: lab_rt -= amt; break;
- case RIGHT: lab_rt += amt; break;
- }
- }
- void label(int label_side, Attr *stringlist) /* stick label on label_side */
- {
- int m;
- Attr *ap;
- fprintf(tfd, "\ttextht = %g\n", textht);
- if (lab_wid != 0.0) {
- fprintf(tfd, "\ttextwid = %g\n", lab_wid);
- lab_wid = 0;
- } else if (label_side == LEFT || label_side == RIGHT) {
- textwid = 0;
- for (ap = stringlist; ap != NULL; ap = ap->next)
- if ((m = strlen(ap->sval)) > textwid)
- textwid = m;
- textwid /= 15; /* estimate width at 15 chars/inch */
- fprintf(tfd, "\ttextwid = %g\n", textwid);
- }
- fprintf(tfd, "Label:\t%s", slprint(stringlist));
- freeattr(stringlist);
- switch (label_side) {
- case BOT:
- case 0:
- fprintf(tfd, " with .n at Frame.s - (0,2 * textht)");
- break;
- case LEFT:
- fprintf(tfd, " wid textwid with .e at Frame.w - (0.2,0)");
- break;
- case RIGHT:
- fprintf(tfd, " wid textwid with .w at Frame.e + (0.2,0)");
- break;
- case TOP:
- fprintf(tfd, " with .s at Frame.n + (0,2 * textht)");
- break;
- }
- lab_adjust();
- fprintf(tfd, "\n");
- label_side = BOT;
- }
- void lab_adjust(void) /* add a string to adjust labels, ticks, etc. */
- {
- if (lab_up != 0.0 || lab_rt != 0.0)
- fprintf(tfd, " + (%g,%g)", lab_rt, lab_up);
- }
- char *sizeit(Attr *ap) /* add \s..\s to ap->sval */
- {
- int n;
- static char buf[1000];
- if (!ap->op) { /* no explicit size command */
- if (ps_set) {
- sprintf(buf, "\\s%d%s\\s0", pointsize, ap->sval);
- return buf;
- } else
- return ap->sval;
- } else if (!ps_set) { /* explicit size but no global size */
- n = (int) ap->fval;
- switch (ap->op) {
- case ' ': /* absolute size */
- sprintf(buf, "\\s%d%s\\s0", n, ap->sval);
- break;
- case '+': /* better be only one digit! */
- sprintf(buf, "\\s+%d%s\\s-%d", n, ap->sval, n);
- break;
- case '-':
- sprintf(buf, "\\s-%d%s\\s+%d", n, ap->sval, n);
- break;
- case '*':
- case '/':
- return ap->sval; /* ignore for now */
- }
- return buf;
- } else {
- /* explicit size and a global background size */
- n = (int) ap->fval;
- switch (ap->op) {
- case ' ': /* absolute size */
- sprintf(buf, "\\s%d%s\\s0", n, ap->sval);
- break;
- case '+':
- sprintf(buf, "\\s%d%s\\s0", pointsize+n, ap->sval);
- break;
- case '-':
- sprintf(buf, "\\s%d%s\\s0", pointsize-n, ap->sval);
- break;
- case '*':
- case '/':
- return ap->sval; /* ignore for now */
- }
- return buf;
- }
- }
|