5 extern double Intht
, Intbase
, Int1h
, Int1v
, Int2h
, Int2v
;
7 void integral(int p
, int p1
, int p2
)
10 printf(".ds %d \\h'%gm'\\v'%gm'\\*(%d\\v'%gm'\n", p1
, -Int1h
, Int1v
, p1
, -Int1v
);
12 printf(".ds %d \\v'%gm'\\h'%gm'\\*(%d\\v'%gm'\n", p2
, -Int2v
, Int2h
, p2
, Int2v
);
13 if (p1
!= 0 && p2
!= 0)
19 dprintf(".\tintegral: S%d; h=%g b=%g\n", p
, eht
[p
], ebase
[p
]);
23 void setintegral(void)
26 printf(".ds %d %s\n", yyval
, lookup(deftbl
, "int_def")->cval
);
27 eht
[yyval
] = EM(Intht
, ps
+Intps
);
28 ebase
[yyval
] = EM(Intbase
, ps
);
29 lfont
[yyval
] = rfont
[yyval
] = ROM
;