home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / eqn / diacrit.c next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  1.7 KB  |  57 lines
  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. }
  57.