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