sys/src/cmd/grap/label.c

   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 }