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     ! 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.