2.9BSD - /usr/src/cmd/eqn/diacrit.c

   1: # include "e.h"
   2: # include "e.def"
   3: 
   4: diacrit(p1, type) int p1, type; {
   5:     int c, t, effps;
   6: 
   7:     c = oalloc();
   8:     t = oalloc();
   9:     effps = EFFPS(ps);
  10:     nrwid(p1, effps, p1);
  11:     printf(".nr 10 %du\n", VERT(max(eht[p1]-ebase[p1]-6*ps,0)));    /* vertical shift if high */
  12:     printf(".if \\n(ct>1 .nr 10 \\n(10+\\s%d.25m\\s0\n", effps);
  13:     printf(".nr %d \\s%d.1m\\s0\n", t, effps);  /* horiz shift if high */
  14:     printf(".if \\n(ct>1 .nr %d \\s%d.15m\\s0\n", t, effps);
  15:     switch(type) {
  16:         case VEC:
  17:             printf(".ds %d \\v'-.4m'\\s%d\\(->\\s0\\v'.4m'\n", c, max(effps-3, 6));
  18:             break;
  19:         case DYAD:
  20:             printf(".ds %d \\v'-.4m'\\s%d\\z\\(<-\\(->\\s0\\v'.4m'\n", c, max(effps-3, 6));
  21:             break;
  22:         case HAT:
  23:             printf(".ds %d ^\n", c);
  24:             break;
  25:         case TILDE:
  26:             printf(".ds %d ~\n", c);
  27:             break;
  28:         case DOT:
  29:             printf(".ds %d \\s%d\\v'-.67m'.\\v'.67m'\\s0\n", c, effps);
  30:             break;
  31:         case DOTDOT:
  32:             printf(".ds %d \\s%d\\v'-.67m'..\\v'.67m\\s0'\n", c, effps);
  33:             break;
  34:         case BAR:
  35:             printf(".ds %d \\s%d\\v'.18m'\\h'.05m'\\l'\\n(%du-.1m\\(rn'\\h'.05m'\\v'-.18m'\\s0\n",
  36:                 c, effps, p1);
  37:             break;
  38:         case UNDER:
  39:             printf(".ds %d \\l'\\n(%du\\(ul'\n", c, p1);
  40:             printf(".nr %d 0\n", t);
  41:             printf(".nr 10 0-%d\n", ebase[p1]);
  42:             break;
  43:         }
  44:     nrwid(c, ps, c);
  45:     if (lfont[p1] != ITAL)
  46:         printf(".nr %d 0\n", t);
  47:     printf(".as %d \\h'-\\n(%du-\\n(%du/2u+\\n(%du'\\v'0-\\n(10u'\\*(%d",
  48:         p1, p1, c, t, c);
  49:     printf("\\v'\\n(10u'\\h'-\\n(%du+\\n(%du/2u-\\n(%du'\n", c, p1, t);
  50:     /* BUG - should go to right end of widest */
  51:     if (type != UNDER)
  52:         eht[p1] += VERT( (6*ps*15) / 100);  /* 0.15m */
  53:     if(dbg)printf(".\tdiacrit: %c over S%d, lf=%c, rf=%c, h=%d,b=%d\n",
  54:         type, p1, lfont[p1], rfont[p1], eht[p1], ebase[p1]);
  55:     ofree(c); ofree(t);
  56: }

Defined functions