Return to diacrit.c CVS log

Up to [CSRG BSD Unix] / 41BSD / cmd / eqn

Annotation of 41BSD/cmd/eqn/diacrit.c, revision 1.1.1.1

1.1       root        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: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.