Return to dummies.c CVS log

Up to [Research Unix] / researchv10no / libplot / libpen

Annotation of researchv10no/libplot/libpen/dummies.c, revision 1.1.1.1

1.1       root        1: #include "pen.h"
                      2: erase(){}
                      3: closepl(){
                      4:        move(e0->p1x,e0->p1y);
                      5:        color((char *)0);
                      6:        ckerr(1);
                      7: }
                      8: grade(){}
                      9: ppause(){}
                     10: cfill(s)
                     11: char *s;
                     12: {
                     13:        register char **p;
                     14:        register char *sp, *bp;
                     15:        while(*s != NULL){
                     16:                if(*s >= '0' && *s <= '8'){
                     17:                        e1->brush = atoi(s);
                     18:                }
                     19:                else if(*s == 'A'){
                     20:                        e1->pslant = (180. - atof(++s))/RADIANS;
                     21:                }
                     22:                else if(*s == 'G'){
                     23:                        e1->pgap = atoi(++s);
                     24:                }
                     25:                else {
                     26:                        if(*s == 'T')sp = s+1;
                     27:                        else sp = s;
                     28:                        if(*s == 'b')sp+=2;
                     29:                        for(p=pens;p<&pens[4];p++){
                     30:                                bp = *p;
                     31:                                if(*bp == 'b')bp+=2;
                     32:                                if(*bp == *sp){
                     33:                                        e1->brush = p-pens;
                     34:                                        e1->brush++;
                     35:                                        if(*s == 'T')e1->brush += 4;
                     36:                                }
                     37:                        }
                     38:                }
                     39:                while(*++s != NULL)
                     40:                        if(*s == '/'){
                     41:                                s++;
                     42:                                break;
                     43:                        }
                     44:        }
                     45: }
                     46: idle(){}
                     47: ptype(){}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.