label.c (3043B)
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 16 void labelwid(double amt) 17 { 18 lab_wid = amt + .00001; 19 } 20 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 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 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 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 }