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