BSD 4_4 release

[unix-history] / usr / src / lib / libplot / t300 / subr.c

/*-
* Copyright (c) 1983, 1993
*      The Regents of the University of California.  All rights reserved.
*
* This module is believed to contain source code proprietary to AT&T.
* Use and redistribution is subject to the Berkeley Software License
* Agreement and your Software Agreement with AT&T (Western Electric).
*/

#ifndef lint
static char sccsid[] = "@(#)subr.c      8.1 (Berkeley) 6/4/93";
#endif /* not lint */

#include <stdio.h>
#include "con.h"
abval(q)
{
       return (q>=0 ? q : -q);
}

xconv (xp)
{
       /* x position input is -2047 to +2047, output must be 0 to PAGSIZ*HORZRES */
       xp += 2048;
       /* the computation is newx = xp*(PAGSIZ*HORZRES)/4096 */
       return (xoffset + xp /xscale);
}

yconv (yp)
{
       /* see description of xconv */
       yp += 2048;
       return (yp / yscale);
}

inplot()
{
       stty(OUTF, &PTTY);
       spew (ACK);
}

outplot()
{
       spew(ESC);
       spew(ACK);
       fflush(stdout);
       stty(OUTF, &ITTY);
}

spew(ch)
{
       if(ch == UP)putc(ESC,stdout);
       putc(ch, stdout);
}

tobotleft ()
{
       move(-2048,-2048);
}
reset()
{
       outplot();
       exit();
}

double
dist2 (x1, y1, x2, y2)
{
       float t,v;
       t = x2-x1;
       v = y1-y2;
       return (t*t+v*v);
}

swap (pa, pb)
int *pa, *pb;
{
       int t;
       t = *pa;
       *pa = *pb;
       *pb = t;
}
movep (xg, yg)
{
       int i,ch;
       if((xg == xnow) && (yg == ynow))return;
       /* if we need to go to left margin, just CR */
       if (xg < xnow/2)
       {
               spew(CR);
               xnow = 0;
       }
       i = (xg-xnow)/HORZRES;
       if(xnow < xg)ch = RIGHT;
       else ch = LEFT;
       xnow += i*HORZRES;
       i = abval(i);
       while(i--)spew(ch);
       i = abval(xg-xnow);
       inplot();
       while(i--) spew(ch);
       outplot();
       i=(yg-ynow)/VERTRES;
       if(ynow < yg)ch = UP;
       else ch = DOWN;
       ynow += i*VERTRES;
       i = abval(i);
       while(i--)spew(ch);
       i=abval(yg-ynow);
       inplot();
       while(i--)spew(ch);
       outplot();
       xnow = xg; ynow = yg;
}

xsc(xi){
       int xa;
       xa = (xi - obotx) * scalex + botx;
       return(xa);
}
ysc(yi){
       int ya;
       ya = (yi - oboty) *scaley +boty;
       return(ya);
}