Return to subr.c CVS log

Up to [CSRG BSD Unix] / 43BSD / usr.lib / libplot / t300

Annotation of 43BSD/usr.lib/libplot/t300/subr.c, revision 1.1

1.1     ! root        1: #ifndef lint
        !             2: static char sccsid[] = "@(#)subr.c     4.1 (Berkeley) 6/27/83";
        !             3: #endif
        !             4: 
        !             5: #include <stdio.h>
        !             6: #include "con.h"
        !             7: abval(q)
        !             8: {
        !             9:        return (q>=0 ? q : -q);
        !            10: }
        !            11: 
        !            12: xconv (xp)
        !            13: {
        !            14:        /* x position input is -2047 to +2047, output must be 0 to PAGSIZ*HORZRES */
        !            15:        xp += 2048;
        !            16:        /* the computation is newx = xp*(PAGSIZ*HORZRES)/4096 */
        !            17:        return (xoffset + xp /xscale);
        !            18: }
        !            19: 
        !            20: yconv (yp)
        !            21: {
        !            22:        /* see description of xconv */
        !            23:        yp += 2048;
        !            24:        return (yp / yscale);
        !            25: }
        !            26: 
        !            27: inplot()
        !            28: {
        !            29:        stty(OUTF, &PTTY);
        !            30:        spew (ACK);
        !            31: }
        !            32: 
        !            33: outplot()
        !            34: {
        !            35:        spew(ESC);
        !            36:        spew(ACK);
        !            37:        fflush(stdout);
        !            38:        stty(OUTF, &ITTY);
        !            39: }
        !            40: 
        !            41: spew(ch)
        !            42: {
        !            43:        if(ch == UP)putc(ESC,stdout);
        !            44:        putc(ch, stdout);
        !            45: }
        !            46: 
        !            47: tobotleft ()
        !            48: {
        !            49:        move(-2048,-2048);
        !            50: }
        !            51: reset()
        !            52: {
        !            53:        outplot();
        !            54:        exit();
        !            55: }
        !            56: 
        !            57: float
        !            58: dist2 (x1, y1, x2, y2)
        !            59: {
        !            60:        float t,v;
        !            61:        t = x2-x1;
        !            62:        v = y1-y2;
        !            63:        return (t*t+v*v);
        !            64: }
        !            65: 
        !            66: swap (pa, pb)
        !            67: int *pa, *pb;
        !            68: {
        !            69:        int t;
        !            70:        t = *pa;
        !            71:        *pa = *pb;
        !            72:        *pb = t;
        !            73: }
        !            74: movep (xg, yg)
        !            75: {
        !            76:        int i,ch;
        !            77:        if((xg == xnow) && (yg == ynow))return;
        !            78:        /* if we need to go to left margin, just CR */
        !            79:        if (xg < xnow/2)
        !            80:        {
        !            81:                spew(CR);
        !            82:                xnow = 0;
        !            83:        }
        !            84:        i = (xg-xnow)/HORZRES;
        !            85:        if(xnow < xg)ch = RIGHT;
        !            86:        else ch = LEFT;
        !            87:        xnow += i*HORZRES;
        !            88:        i = abval(i);
        !            89:        while(i--)spew(ch);
        !            90:        i = abval(xg-xnow);
        !            91:        inplot();
        !            92:        while(i--) spew(ch);
        !            93:        outplot();
        !            94:        i=(yg-ynow)/VERTRES;
        !            95:        if(ynow < yg)ch = UP;
        !            96:        else ch = DOWN;
        !            97:        ynow += i*VERTRES;
        !            98:        i = abval(i);
        !            99:        while(i--)spew(ch);
        !           100:        i=abval(yg-ynow);
        !           101:        inplot();
        !           102:        while(i--)spew(ch);
        !           103:        outplot();
        !           104:        xnow = xg; ynow = yg;
        !           105: }
        !           106: 
        !           107: xsc(xi){
        !           108:        int xa;
        !           109:        xa = (xi - obotx) * scalex + botx;
        !           110:        return(xa);
        !           111: }
        !           112: ysc(yi){
        !           113:        int ya;
        !           114:        ya = (yi - oboty) *scaley +boty;
        !           115:        return(ya);
        !           116: }

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