1 #include "mplot.h" 2 #define pSMALL 0.5 3 struct penvir E[9] = { 4 { 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE}, 5 { 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE}, 6 { 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE}, 7 { 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE}, 8 { 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE}, 9 { 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE}, 10 { 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE}, 11 { 0., 1024., 0., 0., 1., -1.,1024., -1024., 0., 0., pSMALL, 1., 1, 0.,1, ZERO, WHITE} 12 }; 13 struct penvir *e0 = E, *e1 = &E[1], *esave; 14 bcolor(char *s){ 15 int c; 16 while (*s != NULL) { 17 switch (*s) { 18 case '0': case '1': case '2': case '3': case '4': 19 case '5': case '6': case '7': case '8': case '9': 20 c=0; 21 while('0'<=*s && *s<='9') 22 c=c*10+*s++-'0'; 23 return c<0?0:c; 24 case 'z': 25 return(ZERO); 26 case 'r': 27 return(RED); 28 case 'g': 29 return(GREEN); 30 case 'b': 31 return(BLUE); 32 case 'm': 33 return(MAGENTA); 34 case 'y': 35 return(YELLOW); 36 case 'c': 37 return(CYAN); 38 case 'w': 39 return(WHITE); 40 case 'R': 41 return(atoi(s + 1)); 42 case 'G': 43 e1->pgap = atof(s + 1); 44 return(-1); 45 case 'A': 46 e1->pslant = (180. - atof(s + 1)) / RADIAN; 47 return(-1); 48 } 49 while (*++s != NULL) 50 if (*s == '/') { 51 s++; 52 break; 53 } 54 } 55 return(-1); 56 } 57 void sscpy(struct penvir *a, struct penvir *b){ /* copy 'a' onto 'b' */ 58 b->left = a->left; 59 b->bottom = a->bottom; 60 b->xmin = a->xmin; 61 b->ymin = a->ymin; 62 b->scalex = a->scalex; 63 b->scaley = a->scaley; 64 b->sidex = a->sidex; 65 b->sidey = a->sidey; 66 b->copyx = a->copyx; 67 b->copyy = a->copyy; 68 b->quantum = a->quantum; 69 b->grade = a->grade; 70 b->pmode = a->pmode; 71 b->foregr = a->foregr; 72 b->backgr = a->backgr; 73 } 74 void idle(void){} 75 76 void ptype(char *s){USED(s);} 77