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

   1: # include "e.h"
   2: # include "e.def"
   3: 
   4: integral(p, p1, p2) {
   5:     if (p1 != 0)
   6:         printf(".ds %d \\h'-0.4m'\\v'0.4m'\\*(%d\\v'-0.4m'\n", p1, p1);
   7:     if (p2 != 0)
   8:         printf(".ds %d \\v'-0.3m'\\*(%d\\v'0.3m'\n", p2, p2);
   9:     if (p1 != 0 && p2 != 0)
  10:         shift2(p, p1, p2);
  11:     else if (p1 != 0)
  12:         bshiftb(p, SUB, p1);
  13:     else if (p2 != 0)
  14:         bshiftb(p, SUP, p2);
  15:     if(dbg)printf(".\tintegral: S%d; h=%d b=%d\n",
  16:         p, eht[p], ebase[p]);
  17:     lfont[p] = ROM;
  18: }
  19: 
  20: setintegral() {
  21:     char *f;
  22: 
  23:     yyval = oalloc();
  24:     f = "\\(is";
  25:     printf(".ds %d \\s%d\\v'.1m'\\s+4%s\\s-4\\v'-.1m'\\s%d\n",
  26:         yyval, ps, f, ps);
  27:     eht[yyval] = VERT( (((ps+4)*12)/10)*6 );
  28:     ebase[yyval] = VERT( (ps*6*3)/10 );
  29:     lfont[yyval] = rfont[yyval] = ROM;
  30: }

Defined functions