V10/libplot/lib4014/subr.c

#include <stdio.h>
#include <math.h>
#include "tek.h"
#define pHEIGHT 3120.
#define pWIDTH  3120.
#define pSMALL    0.2
struct penvir E[9] = {
{ 0, 0,
0., 0., 1., 1., pWIDTH, pHEIGHT, 0., 0.,
pSMALL, 1., 31, 0., '`', '`'},
{ 0, 0,
0., 0., 1., 1., pWIDTH, pHEIGHT, 0., 0.,
pSMALL, 1., 31, 0., '`', '`'},
{ 0, 0,
0., 0., 1., 1., pWIDTH, pHEIGHT, 0., 0.,
pSMALL, 1., 31, 0., '`', '`'},
{ 0, 0,
0., 0., 1., 1., pWIDTH, pHEIGHT, 0., 0.,
pSMALL, 1., 31, 0., '`', '`'},
{ 0, 0,
0., 0., 1., 1., pWIDTH, pHEIGHT, 0., 0.,
pSMALL, 1., 31, 0., '`', '`'},
{ 0, 0,
0., 0., 1., 1., pWIDTH, pHEIGHT, 0., 0.,
pSMALL, 1., 31, 0., '`', '`'},
{ 0, 0,
0., 0., 1., 1., pWIDTH, pHEIGHT, 0., 0.,
pSMALL, 1., 31, 0., '`', '`'},
{ 0, 0,
0., 0., 1., 1., pWIDTH, pHEIGHT, 0., 0.,
pSMALL, 1., 31, 0., '`', '`'},
{ 0, 0,
0., 0., 1., 1., pWIDTH, pHEIGHT, 0., 0.,
pSMALL, 1., 31, 0., '`', '`'},
};
struct penvir *e0 = E, *e1 = &E[1];
struct penvir *esave;
int internal = 0;
char	bcolor(s)
char	*s;
{
	register char a;
	a = 0;
	while (*s != NULL) {
		switch (*s) {
		case 'l':
			if (!(strncmp(s, "long", 4)))
				a = 'd';
			break;
		case 'd':
			if (!(strncmp(s, "dotd", 4)))
				a = 'b';
			else if (!(strncmp(s, "dott", 4)))
				a = 'a';
			else a ='c';	/*dash default-short*/
			break;
		case 's':
			if (!(strncmp(s, "solid", 5)))
				a ='`';
			else if (!(strncmp(s, "short", 5)))
				a = 'c';
			break;
		case 'G':
			e1->pgap = atoi(s + 1);
			break;
		case 'A':
			e1->pslant = (180. - atof(s + 1)) / RADIAN;
			break;
		}
		while (*++s != NULL)
			if (*s == '/'){
				s++;
				break;
			}
	}
	return(a);
}
sscpy(a, b)
struct penvir *a, *b;
{ /* copy 'a' onto 'b' */
	b->left = a->left;
	b->bottom = a->bottom;
	b->xmin = a->xmin;
	b->ymin = a->ymin;
	b->scalex = a->scalex;
	b->scaley = a->scaley;
	b->sidex = a->sidex;
	b->sidey = a->sidey;
	b->copyx = a->copyx;
	b->copyy = a->copyy;
	b->quantum = a->quantum;
	b->grade = a->grade;
	b->ppink = a->ppink;
	b->pbrush = a->pbrush;
}
idle(){}
#define TRUNC(A) A>0.? A+0.5: A-0.5
normx(x)
double	x;
{
	double	xx;
	int	k;
	xx = SCX(x);
	k = TRUNC(xx);
	return(k);
}

normy(y)
double	y;
{
	double	yy;
	int	k;
	yy = SCY(y);
	k = TRUNC(yy);
	return(k);
}
ptype(){}