Return to getrect.c CVS log

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

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

1.1     ! root        1: #include       <jerq.h>
        !             2: Texture boxcurs = {
        !             3:        0x43FF, 0xE001, 0x7001, 0x3801, 0x1D01, 0x0F01, 0x8701, 0x8F01,
        !             4:        0x8001, 0x8001, 0x8001, 0x8001, 0x8001, 0x8001, 0x8001, 0xFFFF,
        !             5: };
        !             6: Rectangle
        !             7: canon(p1, p2)
        !             8:        Point p1, p2;
        !             9: {
        !            10:        Rectangle r;
        !            11:        r.origin.x = min(p1.x, p2.x);
        !            12:        r.origin.y = min(p1.y, p2.y);
        !            13:        r.corner.x = max(p1.x, p2.x);
        !            14:        r.corner.y = max(p1.y, p2.y);
        !            15:        return(r);
        !            16: }
        !            17: Rectangle
        !            18: getrectb(n)
        !            19:        int n;
        !            20: {
        !            21:        Rectangle r;
        !            22:        Texture *t;
        !            23:        Point p1, p2;
        !            24:        t = cursswitch(&boxcurs);
        !            25:        while(button123())nap(1);
        !            26:        while(!button123()) nap(1);
        !            27:        if(!(mouse.buttons&n)){
        !            28:                r.origin.x=r.origin.y=r.corner.x=r.corner.y=0;
        !            29:                while(button123()) nap(1);
        !            30:                goto Return;
        !            31:        }
        !            32:        p1=mouse.xy;
        !            33:        p2=p1;
        !            34:        r=canon(p1, p2);
        !            35:        outline(r);
        !            36:        for(; mouse.buttons&n; nap(2)){
        !            37:                outline(r);
        !            38:                p2=mouse.xy;
        !            39:                r=canon(p1, p2);
        !            40:                outline(r);
        !            41:        }
        !            42:        outline(r);     /* undraw for the last time */
        !            43:     Return:
        !            44:        (void)cursswitch(t);
        !            45:        return r;
        !            46: }
        !            47: Rectangle
        !            48: getrect(n)
        !            49: {
        !            50:        return getrectb(8>>n);
        !            51: }
        !            52: outline(r)
        !            53:        Rectangle r;
        !            54: {
        !            55:        segment(&display,r.origin,Pt(r.corner.x,r.origin.y),F_XOR);
        !            56:        segment(&display,Pt(r.corner.x,r.origin.y),r.corner,F_XOR);
        !            57:        segment(&display,r.corner,Pt(r.origin.x,r.corner.y),F_XOR);
        !            58:        segment(&display,Pt(r.origin.x,r.corner.y),r.origin,F_XOR);
        !            59: }

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