Return to bounce.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / demo

Annotation of researchv9/jtools/src/demo/bounce.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * b.c - new bouncing line
        !             3:  */
        !             4: 
        !             5: #include <jerq.h>
        !             6: #define N 25
        !             7: Point foo[] = {
        !             8:        312, 799,
        !             9:        650, 650,
        !            10:        7, -11
        !            11:        -5, 3,
        !            12:        13, 7,
        !            13:        3, 11,
        !            14: };
        !            15: 
        !            16: main(argc, argv)
        !            17: char *argv[];
        !            18: {
        !            19:        register i = 0, j;
        !            20:        Point from[N], to[N];
        !            21:        Point dfrom, dto;
        !            22:        request(KBD);
        !            23:        initdisplay(argc, argv);
        !            24:        rectf(&display, Drect, F_XOR);
        !            25:        for(j=0; j<N; j++){
        !            26:                from[j] = Drect.origin;
        !            27:                to[j] = Drect.origin;
        !            28:        }
        !            29: /*     from[0] = foo[0];
        !            30:        from[1] = foo[0];
        !            31:        to[0] = foo[1];
        !            32:        to[1] = foo[1];*/
        !            33:        dfrom = foo[2];
        !            34:        dto = foo[3];
        !            35:        for (; kbdchar()==-1; wait(CPU)){
        !            36:                j = i;
        !            37:                if (++i >= N)
        !            38:                        i = 0;
        !            39:                segment(&display, from[i], to[i], F_XOR);
        !            40:                from[i] = from[j];
        !            41:                bump(&from[i], &dfrom);
        !            42:                to[i] = to[j];
        !            43:                bump(&to[i], &dto);
        !            44:                segment(&display, from[i], to[i], F_XOR);
        !            45:        }
        !            46:        exit();
        !            47: }
        !            48: 
        !            49: bump(p,dp)
        !            50: register Point *p, *dp;
        !            51: {
        !            52:        if ((p->x += dp->x) > Drect.corner.x || p->x < Drect.origin.x) {
        !            53:                dp->x = -dp->x;
        !            54:                p->x += dp->x << 1;
        !            55:        }
        !            56:        if ((p->y += dp->y) > Drect.corner.y || p->y < Drect.origin.y) {
        !            57:                dp->y = -dp->y;
        !            58:                p->y += dp->y << 1;
        !            59:        }
        !            60: }

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