Return to arith.oc CVS log

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

Annotation of researchv9/jerq/src/lib/j/drek/arith.oc, revision 1.1.1.1

1.1       root        1: #include <jerq.h>
                      2: 
                      3: Point
                      4: add(a, b)
                      5:        Point a, b;
                      6: {
                      7:        register Point *ap= &a, *bp= &b;
                      8:        ap->x+=bp->x;
                      9:        ap->y+=bp->y;
                     10:        return(*ap);
                     11: }
                     12: 
                     13: Point
                     14: sub(a, b)
                     15:        Point a, b;
                     16: {
                     17:        register Point *ap= &a, *bp= &b;
                     18:        ap->x-=bp->x;
                     19:        ap->y-=bp->y;
                     20:        return(*ap);
                     21: }
                     22: 
                     23: Rectangle
                     24: inset(r,n)
                     25:        Rectangle r;
                     26: {
                     27:        r.origin = add(r.origin,Pt(n,n));
                     28:        r.corner = sub(r.corner,Pt(n,n));
                     29:        return(r);
                     30: }
                     31: 
                     32: Point
                     33: div(a, b)
                     34:        Point a;
                     35:        register b;
                     36: {
                     37:        register Point *ap= &a;
                     38:        ap->x/=b;
                     39:        ap->y/=b;
                     40:        return(*ap);
                     41: }
                     42: 
                     43: Point
                     44: mul(a, b)
                     45:        Point a;
                     46:        register b;
                     47: {
                     48:        register Point *ap= &a;
                     49:        ap->x*=b;
                     50:        ap->y*=b;
                     51:        return(*ap);
                     52: }
                     53: 
                     54: Rectangle
                     55: rsubp(r, p)
                     56:        Rectangle r;
                     57:        Point p;
                     58: {
                     59:        register Rectangle *rp= &r;
                     60:        register Point *pp= &p;
                     61:        rp->origin.x-=pp->x;
                     62:        rp->origin.y-=pp->y;
                     63:        rp->corner.x-=pp->x;
                     64:        rp->corner.y-=pp->y;
                     65:        return(*rp);
                     66: }
                     67: Rectangle
                     68: raddp(r, p)
                     69:        Rectangle r;
                     70:        Point p;
                     71: {
                     72:        register Rectangle *rp= &r;
                     73:        register Point *pp= &p;
                     74:        rp->origin.x+=pp->x;
                     75:        rp->origin.y+=pp->y;
                     76:        rp->corner.x+=pp->x;
                     77:        rp->corner.y+=pp->y;
                     78:        return(*rp);
                     79: }
                     80: 
                     81: eqpt(p, q)
                     82:        Point p, q;
                     83: {
                     84:        return(p.x==q.x && p.y==q.y);
                     85: }
                     86: 
                     87: eqrect(r, s)
                     88:        Rectangle r, s;
                     89: {
                     90: #define o origin
                     91: #define c corner
                     92:        return(r.o.x==s.o.x && r.o.y==s.o.y && r.c.x==s.c.x && r.c.y==s.c.y);
                     93: }

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