Return to rectclip.c CVS log

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

Annotation of researchv9/jerq/src/lib/j/rectclip.c, revision 1.1.1.1

1.1       root        1: #include <jerq.h>
                      2: rectclip(rp, b)                /* first by reference, second by value */
                      3:        register Rectangle *rp;
                      4:        Rectangle b;
                      5: {
                      6:        register Rectangle *bp= &b;
                      7:        /*
                      8:         * Expand rectXrect() in line for speed
                      9:         */
                     10: #define c corner
                     11: #define o origin
                     12:        if((rp->o.x<bp->c.x && bp->o.x<rp->c.x &&
                     13:            rp->o.y<bp->c.y && bp->o.y<rp->c.y)==0)
                     14:                return 0;
                     15:        /* They must overlap */
                     16:        if(rp->origin.x<bp->origin.x)
                     17:                rp->origin.x=bp->origin.x;
                     18:        if(rp->origin.y<bp->origin.y)
                     19:                rp->origin.y=bp->origin.y;
                     20:        if(rp->corner.x>bp->corner.x)
                     21:                rp->corner.x=bp->corner.x;
                     22:        if(rp->corner.y>bp->corner.y)
                     23:                rp->corner.y=bp->corner.y;
                     24:        return 1;
                     25: }

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