ref: e610ffaf1b7847e82c18a1b9c687cdd7676f86c2
dir: /sys/src/cmd/plot/libplot/subr.c/
#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; bcolor(char *s){ int c; 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': c=0; while('0'<=*s && *s<='9') c=c*10+*s++-'0'; if(c < 0) return DBlack; return cmap2rgba(c); 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);}