Return to pen.c CVS log

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

Annotation of researchv10no/libplot/libpen/pen.c, revision 1.1

1.1     ! root        1: #include "pen.h"
        !             2: pen(s)
        !             3: char *s;
        !             4: {
        !             5:        register int i;
        !             6:        i = -1;
        !             7:        while(*s != NULL){
        !             8:                switch(*s){
        !             9:                case 'l':
        !            10:                        if(!strncmp(s, "long", 4))
        !            11:                                i=3;
        !            12:                        break;
        !            13:                case 'd':
        !            14:                        if(!strncmp(s,"dotd",4))
        !            15:                                i=4;
        !            16:                        else if(!strncmp(s,"dott",4))
        !            17:                                i=1;
        !            18:                        else if(!strncmp(s,"dash",4))
        !            19:                                i=5;
        !            20:                        else if(!strncmp(s,"dd",2))
        !            21:                                i=6;
        !            22:                        break;
        !            23:                case 's':
        !            24:                        if(!strncmp(s,"solid",5))
        !            25:                                i=0;
        !            26:                        else if(!strncmp(s,"short",5))
        !            27:                                i = 2;
        !            28:                        break;
        !            29:                case 'G':
        !            30:                        e1->pgap = atof(s+1);
        !            31:                        break;
        !            32:                case 'A':
        !            33:                        e1->pslant = atof(s+1)/RADIANS;
        !            34:                        break;
        !            35:                }
        !            36:                while(*s++ != NULL)
        !            37:                        if(*s == '/'){
        !            38:                                s++;
        !            39:                                break;
        !            40:                        }
        !            41:        }
        !            42:        if(i == 0)fprintf(pltout,"LT; ");
        !            43:        else if(i > 0)
        !            44:                fprintf(pltout,"LT%d; ",i);
        !            45:        if(i >= 0)
        !            46:                e1->pentype = i;
        !            47:        ckerr(0);
        !            48: }

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