Return to jlineto.c CVS log

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

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

1.1     ! root        1: #include <jerq.h>
        !             2: #include <line.h>
        !             3: static x0, y0;
        !             4: 
        !             5: jmoveto(xy)
        !             6:        Point xy;
        !             7: {
        !             8:        PtCurrent=xy;
        !             9: }
        !            10: jlineto(xy, f)
        !            11:        Point xy;
        !            12: {
        !            13:        jsegment(PtCurrent, xy, f);
        !            14:        PtCurrent=xy;
        !            15: }
        !            16: jmove(xy)
        !            17:        Point xy;
        !            18: {
        !            19:        PtCurrent.x+=xy.x;
        !            20:        PtCurrent.y+=xy.y;
        !            21: }
        !            22: jline(xy, f)
        !            23:        Point xy;
        !            24: {
        !            25:        Point next;
        !            26:        next=add(PtCurrent, xy);
        !            27:        jsegment(PtCurrent, next, f);
        !            28:        PtCurrent=next;
        !            29: }
        !            30: 
        !            31: jsegment(p, q, f)
        !            32:        Point p, q;
        !            33: {
        !            34:        segment(&display, p, q, f);
        !            35:        PtCurrent=q;
        !            36: }
        !            37: 
        !            38: segment(b, p, q, f)
        !            39:        Bitmap *b;
        !            40:        Point p, q;
        !            41: {
        !            42:        if(p.x==q.x && p.y==q.y)
        !            43:                return;
        !            44:        q=Jsetline(p, q);
        !            45:        Jclipline(b, b->rect, p, q, f);
        !            46: }
        !            47: floor(x,y)
        !            48:        register long x;
        !            49:        register y;
        !            50: {
        !            51:        if (y<=0) {
        !            52:                if (y==0) return((short) x);
        !            53:                y= -y; x= -x;
        !            54:        }
        !            55:        if (x<0) x -= y-1;
        !            56:        return((short) (x/y));
        !            57: }
        !            58: 
        !            59: ceil(x,y)
        !            60:        register long x;
        !            61:        register y;
        !            62: {
        !            63:        if (y<=0) {
        !            64:                if (y==0) return((short) x);
        !            65:                y= -y; x= -x;
        !            66:        }
        !            67:        if (x>0) x += y-1;
        !            68:        return((short) (x/y));
        !            69: }
        !            70: Jminor(x)
        !            71:        register x;
        !            72: {
        !            73:        register y;
        !            74:        y=floor(2*(long)(x-x0)*Jdminor+Jdmajor, 2*Jdmajor)+y0;
        !            75:        return Jslopeneg? -y : y;
        !            76: }
        !            77: Jmajor(y)
        !            78:        register y;
        !            79: {
        !            80:        register x;
        !            81:        x=ceil(2*(long)((Jslopeneg? -y : y)-y0)*Jdmajor-Jdminor, 2*Jdminor)+x0;
        !            82:        if(Jdminor)
        !            83:                while(Jminor(x-1)==y)
        !            84:                        x--;
        !            85:        return x;
        !            86: }
        !            87: Point
        !            88: Jsetline(p, q)
        !            89:        Point p, q;
        !            90: {
        !            91:        register dx, dy, t;
        !            92:        Point endpt;
        !            93:        short swapped=0;
        !            94:        Jxmajor=1;
        !            95:        Jslopeneg=0;
        !            96:        dx=q.x-p.x;
        !            97:        dy=q.y-p.y;
        !            98:        if(abs(dy) > abs(dx)){  /* Steep */
        !            99:                Jxmajor=0;
        !           100: #define XYswap(p)      t=p.x; p.x=p.y; p.y=t
        !           101:                XYswap(p);
        !           102:                XYswap(q);
        !           103: #define Swap(x, y)     t=x; x=y; y=t
        !           104:                Swap(dx, dy);
        !           105:        }
        !           106:        if(dx<0){
        !           107:                swapped++;
        !           108:                Swap(p.x, q.x); Swap(p.y, q.y);
        !           109:                dx= -dx; dy= -dy;
        !           110:        }
        !           111:        if(dy<0){
        !           112:                Jslopeneg++;
        !           113:                dy= -dy; p.y= -p.y; q.y= -q.y;
        !           114:        }
        !           115:        Jdminor=dy;
        !           116:        Jdmajor=dx;
        !           117:        x0=p.x;
        !           118:        y0=p.y;
        !           119:        endpt.x=swapped? p.x+1 : q.x-1;
        !           120:        endpt.y=Jminor(endpt.x);
        !           121:        if(!Jxmajor){
        !           122:                XYswap(endpt);
        !           123:        }
        !           124:        return(endpt);
        !           125: }
        !           126: Jsetdda(x)
        !           127:        register x;
        !           128: {
        !           129:        register y;
        !           130:        y=Jminor(x);
        !           131:        if(Jslopeneg)
        !           132:                y= -y;
        !           133:        return (short)((2*(x-x0)+2)*(long)Jdminor
        !           134:                -(2*(y-y0)+1)*(long)Jdmajor);
        !           135: }

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