blob: 2b41990d4a807869e93f612b0b77412b477826c6 [file] [log] [blame]
#include "mplot.h"
#define pSMALL 0.5
struct penvir E[9] = {
{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, DBlack, DWhite},
{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, DBlack, DWhite},
{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, DBlack, DWhite},
{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, DBlack, DWhite},
{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, DBlack, DWhite},
{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, DBlack, DWhite},
{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, DBlack, DWhite},
{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, DBlack, DWhite}
};
struct penvir *e0 = E, *e1 = &E[1], *esave;
int
bcolor(char *s){
while (*s != 0) {
switch (*s) {
case '0': case '1': case '2': case '3': case '4':
case '5': case '6': case '7': case '8': case '9':
return strtoul(s, 0, 0);
case 'k': case 'z': /* zero was old name for kblack */
return(DBlack);
case 'r':
return(DRed);
case 'g':
return(DGreen);
case 'b':
return(DBlue);
case 'm':
return(DMagenta);
case 'y':
return(DYellow);
case 'c':
return(DCyan);
case 'w':
return(DWhite);
case 'R':
return(atoi(s + 1));
case 'G':
e1->pgap = atof(s + 1);
return(-1);
case 'A':
e1->pslant = (180. - atof(s + 1)) / RADIAN;
return(-1);
}
while (*++s != 0)
if (*s == '/') {
s++;
break;
}
}
return DBlack;
}
void sscpy(struct penvir *a, struct penvir *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->pmode = a->pmode;
b->foregr = a->foregr;
b->backgr = a->backgr;
}
void idle(void){}
void ptype(char *s){USED(s);}