Return to integral.c CVS log

Up to [Research Unix] / researchv8dc / cmd / eqn

researchv8 Dan Cross

#include "e.h"
#include "e.def"

integral(p, p1, p2)
{
	if (p1 != 0)
		printf(".ds %d \\h'-0.4m'\\v'0.2m'\\*(%d\\v'-0.2m'\n", p1, p1);
	if (p2 != 0)
		printf(".ds %d \\v'-0.1m'\\^\\*(%d\\v'0.1m'\n", p2, p2);
	if (p1 != 0 && p2 != 0)
		shift2(p, p1, p2);
	else if (p1 != 0)
		bshiftb(p, SUB, p1);
	else if (p2 != 0)
		bshiftb(p, SUP, p2);
	dprintf(".\tintegral: S%d; h=%g b=%g\n", p, eht[p], ebase[p]);
	lfont[p] = ROM;
}

setintegral()
{
	yyval = salloc();
	printf(".ds %d \\v'.1m'\\s+4\\(is\\s-4\\v'-.1m'\n", yyval);
	eht[yyval] = EM(1.15, ps+4);
	ebase[yyval] = EM(0.3, ps);
	eps[yyval] = ps;
	lfont[yyval] = rfont[yyval] = ROM;
}

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