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