#include "mplot.h"#define pSMALL 0.5struct penvir E[9] = {{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE},{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE},{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE},{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE},{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE},{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE},{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE},{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE}};struct penvir *e0 = E, *e1 = &E[1], *esave;bcolor(char *s){ int c; while (*s != NULL) { switch (*s) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': c=0; while('0'<=*s && *s<='9') c=c*10+*s++-'0'; return c<0?0:c; case 'z': return(ZERO); case 'r': return(RED); case 'g': return(GREEN); case 'b': return(BLUE); case 'm': return(MAGENTA); case 'y': return(YELLOW); case 'c': return(CYAN); case 'w': return(WHITE); 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 != NULL) if (*s == '/') { s++; break; } } return(-1);}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);}
#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, ZERO, WHITE},
{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE},
{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE},
{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE},
{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE},
{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE},
{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE},
{ 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE}
};
struct penvir *e0 = E, *e1 = &E[1], *esave;
bcolor(char *s){
int c;
while (*s != NULL) {
switch (*s) {
case '0': case '1': case '2': case '3': case '4':
case '5': case '6': case '7': case '8': case '9':
c=0;
while('0'<=*s && *s<='9')
c=c*10+*s++-'0';
return c<0?0:c;
case 'z':
return(ZERO);
case 'r':
return(RED);
case 'g':
return(GREEN);
case 'b':
return(BLUE);
case 'm':
return(MAGENTA);
case 'y':
return(YELLOW);
case 'c':
return(CYAN);
case 'w':
return(WHITE);
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 != NULL)
if (*s == '/') {
s++;
break;
}
}
return(-1);
}
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);}