Return to jerq.c CVS log

Up to [Research Unix] / researchv9 / jerq / src / lib / jj

Annotation of researchv9/jerq/src/lib/jj/jerq.c, revision 1.1

1.1     ! root        1: #include <jerq.h>
        !             2: #include <jerqio.h>
        !             3: 
        !             4: Texture ones={
        !             5:        0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF,
        !             6:        0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF,
        !             7: };
        !             8: 
        !             9: Point pt1, pt2;
        !            10: Point pt[256];
        !            11: int npts;
        !            12: 
        !            13: main(){
        !            14:        do; while(input());
        !            15:        scan();
        !            16:        output();
        !            17: }
        !            18: input(){
        !            19:        Point t;
        !            20:        static int lineno=0;
        !            21:        if(getline()==0)
        !            22:                return 0;
        !            23:        lineno++;
        !            24:        if(npts==0){
        !            25:                pt[npts++]=pt1;
        !            26:                pt[npts++]=pt2;
        !            27:                return 1;
        !            28:        }
        !            29:        if(eqpt(pt1, pt[npts-1])){
        !            30:                pt[npts++]=pt2;
        !            31:                return 1;
        !            32:        }
        !            33:        if(eqpt(pt2, pt[npts-1])){
        !            34:                pt[npts++]=pt1;
        !            35:                return 1;
        !            36:        }
        !            37:        if(npts!=2){
        !            38:                printf("panic 1: line %d\n", lineno);
        !            39:                exit();
        !            40:        }
        !            41:        t=pt[npts-2];
        !            42:        pt[npts-2]=pt[npts-1];
        !            43:        pt[npts-1]=t;
        !            44:        if(eqpt(pt1, pt[npts-1])){
        !            45:                pt[npts++]=pt2;
        !            46:                return 1;
        !            47:        }
        !            48:        if(eqpt(pt2, pt[npts-1])){
        !            49:                pt[npts++]=pt1;
        !            50:                return 1;
        !            51:        }
        !            52:        printf("panic 2: line %d\n", lineno);
        !            53:        exit();
        !            54:        return 0;
        !            55: }
        !            56: char *
        !            57: rin(p, ip)
        !            58:        register char *p;
        !            59:        register int *ip;
        !            60: {
        !            61:        register n=0, m=0, scale=1, sign=1;
        !            62:        while(*p==' ')
        !            63:                p++;
        !            64:        if(*p=='-')
        !            65:                p++, sign=-1;
        !            66:        while('0'<=*p && *p<='9')
        !            67:                n=10*n+*p++-'0';
        !            68:        n*=100;
        !            69:        if(*p=='.'){
        !            70:                p++;
        !            71:                while('0'<=*p && *p<='9'){
        !            72:                        m=10*m+*p++-'0';
        !            73:                        scale*=10;
        !            74:                }
        !            75:                n+=100*m/scale;
        !            76:        }
        !            77:        *ip=sign*n;
        !            78: printf("read %d.%d\n", sign*n/100, n%100);
        !            79:        return p;
        !            80: }
        !            81: getline(){
        !            82:        char buf[128];
        !            83:        int x;
        !            84:        register char *p;
        !            85:        if(fgets(buf, sizeof buf, stdin)==0)
        !            86:                return 0;
        !            87:        p=buf;
        !            88:        while(*p!=' ')
        !            89:                p++;
        !            90:        p=rin(p, &x);
        !            91:        pt1.x=x;
        !            92:        p=rin(p, &x);
        !            93:        pt1.y=x;
        !            94:        p=rin(p, &x);
        !            95:        pt2.x=x;
        !            96:        p=rin(p, &x);
        !            97:        pt2.y=x;
        !            98:        return 1;
        !            99: }
        !           100: scan(){
        !           101:        register i;
        !           102:        for(i=0; i<npts; i++){
        !           103: printf("pt %d %d %d\n", i, pt[i].x, pt[i].y);
        !           104:                pt[i].x/=50, pt[i].y/=50;
        !           105:                pt[i].x+=Drect.origin.x;
        !           106:                pt[i].y+=(Drect.origin.y+Drect.corner.y)/2;
        !           107:        }
        !           108:        for(i=1; i<npts; i++)
        !           109:                segment(&display, pt[i-1], pt[i], F_OR);
        !           110:        polyture(&display, pt, npts, &ones, F_OR);
        !           111: }
        !           112: output(){
        !           113:        request(KBD);
        !           114:        do wait(KBD); while(kbdchar()!='q');
        !           115:        exit();
        !           116: }
        !           117: pause(){
        !           118:        request(KBD);
        !           119:        rectf(&display, Drect, F_XOR); sleep(20); rectf(&display, Drect, F_XOR);
        !           120:        do wait(KBD); while(kbdchar()!='q');
        !           121: }

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