src/meta/cgraph.c

#ifndef lint
static const char       RCSid[] = "$Id: cgraph.c,v 1.1 2003/02/22 02:07:26 greg Exp $";
#endif
/*
 *  cgraph.c - routines for sending graphs to tty's.
 *
 *     Greg Ward
 *     7/7/86
 */


#include  <stdio.h>

#include  "rterror.h"
#include  "meta.h"
#include  "mgvars.h"


#define  FHUGE  1e10

#define  MAXSIZE  10000         /* Maximum size in characters of output */

extern char  *progname;                 /* argv[0] */

static char  outcarr[MAXSIZE];          /* character output array */

static double  xmin = XMAX, xmax = XMIN,        /* extrema */
                ymin = YMAX, ymax = YMIN;

static int  dwidth, dlength;            /* device width and length */

static int  nplottable;         /* number of plottable points */

static void climits(void);
static void cstretch(int  c, double  x, double  y);


extern void
cgraph(         /* do a character graph to stdout */
        int width,
        int length
)
{
        if (width * length > MAXSIZE) {
                fprintf(stderr, "%s: page too big\n", progname);
                quit(1);
        }
        dwidth = width;
        dlength = length;
        climits();                      /* get min & max values */
        cplot();                        /* do character plot */
}


static void
climits(void)                   /* get min & max values */
{
        int  i;

        xmin = gparam[XMIN].flags & DEFINED ?
                        varvalue(gparam[XMIN].name) :
                        FHUGE ;
        xmax = gparam[XMAX].flags & DEFINED ?
                        varvalue(gparam[XMAX].name) :
                        -FHUGE ;
        ymin = gparam[YMIN].flags & DEFINED ?
                        varvalue(gparam[YMIN].name) :
                        FHUGE ;
        ymax = gparam[YMAX].flags & DEFINED ?
                        varvalue(gparam[YMAX].name) :
                        -FHUGE ;

        nplottable = 0;
        for (i = 0; i < MAXCUR; i++)
                mgcurve(i, cstretch);

        if (nplottable == 0) {
                fprintf(stderr, "%s: no plottable data\n", progname);
                quit(1);
        }
        printf("XMIN= %f  XMAX= %f  YMIN= %f  YMAX= %f\n",
                        xmin, xmax, ymin, ymax);
}


void
cstretch(                       /* stretch our boundaries */
        int  c,
        double  x,
        double  y
)
{
        if (gparam[XMIN].flags & DEFINED &&
                        x < xmin)
                return;
        if (gparam[XMAX].flags & DEFINED &&
                        x > xmax)
                return;
        if (gparam[YMIN].flags & DEFINED &&
                        y < ymin)
                return;
        if (gparam[YMAX].flags & DEFINED &&
                        y > ymax)
                return;

        if (x < xmin)
                xmin = x;
        if (x > xmax)
                xmax = x;
        if (y < ymin)
                ymin = y;
        if (y > ymax)
                ymax = y;
                
        nplottable++;
}


extern void
cplot(void)                             /* do character  plot */
{
        int  i, j;
        register char  *op;

        for (op = outcarr+dlength*dwidth; op > outcarr; )
                *--op = ' ';

        for (i = 0; i < MAXCUR; i++)
                mgcurve(i, cpoint);

        for (i = 0; i < dlength; i++) {
                for (j = 0; j < dwidth; j++)
                        putchar(*op++);
                putchar('\n');
        }
}


extern void
cpoint(                 /* store a point */
        int  c,
        double  x,
        double  y
)
{
        register int  ndx;

        if (x < xmin || x > xmax || y < ymin || y > ymax)
                return;

        ndx = (dlength-1)*(1.0 - (y - ymin)/(ymax - ymin)) + 0.5;
        ndx = dwidth*ndx + (dwidth-1)*(x-xmin)/(xmax-xmin) + 0.5;

        if (outcarr[ndx] == ' ')
                outcarr[ndx] = c+'A';
        else if (outcarr[ndx] > '1' && outcarr[ndx] < '9')
                outcarr[ndx]++;
        else if (outcarr[ndx] == '9')
                outcarr[ndx] = '*';
        else if (outcarr[ndx] != '*')
                outcarr[ndx] = '2';
}
Revision:	1.2
Committed:	Sat Nov 15 02:13:36 2003 UTC (21 years, 11 months ago) by schorsch
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad5R4, rad5R2, rad5R3, rad5R0, rad5R1, rad4R2, rad3R7P2, rad3R7P1, rad6R0, rad4R1, rad4R0, rad3R6, rad3R6P1, rad3R8, rad3R9, rad4R2P1, rad4R2P2, HEAD
Changes since 1.1:	+28 -13 lines
Log Message:	Continued ANSIfication, and reduced other compile warnings.
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	schorsch	1.2	static const char RCSid[] = "$Id: cgraph.c,v 1.1 2003/02/22 02:07:26 greg Exp $";
3	greg	1.1	#endif
4			/*
5			* cgraph.c - routines for sending graphs to tty's.
6			*
7			* Greg Ward
8			* 7/7/86
9			*/
10
11
12			#include <stdio.h>
13
14	schorsch	1.2	#include "rterror.h"
15			#include "meta.h"
16	greg	1.1	#include "mgvars.h"
17
18
19			#define FHUGE 1e10
20
21			#define MAXSIZE 10000 /* Maximum size in characters of output */
22
23			extern char progname; / argv[0] */
24
25			static char outcarr[MAXSIZE]; /* character output array */
26
27			static double xmin = XMAX, xmax = XMIN, /* extrema */
28			ymin = YMAX, ymax = YMIN;
29
30			static int dwidth, dlength; /* device width and length */
31
32			static int nplottable; /* number of plottable points */
33
34	schorsch	1.2	static void climits(void);
35			static void cstretch(int c, double x, double y);
36	greg	1.1
37	schorsch	1.2
38			extern void
39			cgraph( /* do a character graph to stdout */
40			int width,
41			int length
42			)
43	greg	1.1	{
44			if (width * length > MAXSIZE) {
45			fprintf(stderr, "%s: page too big\n", progname);
46			quit(1);
47			}
48			dwidth = width;
49			dlength = length;
50			climits(); /* get min & max values */
51			cplot(); /* do character plot */
52			}
53
54
55	schorsch	1.2	static void
56			climits(void) /* get min & max values */
57	greg	1.1	{
58	schorsch	1.2	int i;
59	greg	1.1
60			xmin = gparam[XMIN].flags & DEFINED ?
61			varvalue(gparam[XMIN].name) :
62			FHUGE ;
63			xmax = gparam[XMAX].flags & DEFINED ?
64			varvalue(gparam[XMAX].name) :
65			-FHUGE ;
66			ymin = gparam[YMIN].flags & DEFINED ?
67			varvalue(gparam[YMIN].name) :
68			FHUGE ;
69			ymax = gparam[YMAX].flags & DEFINED ?
70			varvalue(gparam[YMAX].name) :
71			-FHUGE ;
72
73			nplottable = 0;
74			for (i = 0; i < MAXCUR; i++)
75			mgcurve(i, cstretch);
76
77			if (nplottable == 0) {
78			fprintf(stderr, "%s: no plottable data\n", progname);
79			quit(1);
80			}
81			printf("XMIN= %f XMAX= %f YMIN= %f YMAX= %f\n",
82			xmin, xmax, ymin, ymax);
83			}
84
85
86	schorsch	1.2	void
87			cstretch( /* stretch our boundaries */
88			int c,
89			double x,
90			double y
91			)
92	greg	1.1	{
93			if (gparam[XMIN].flags & DEFINED &&
94			x < xmin)
95			return;
96			if (gparam[XMAX].flags & DEFINED &&
97			x > xmax)
98			return;
99			if (gparam[YMIN].flags & DEFINED &&
100			y < ymin)
101			return;
102			if (gparam[YMAX].flags & DEFINED &&
103			y > ymax)
104			return;
105
106			if (x < xmin)
107			xmin = x;
108			if (x > xmax)
109			xmax = x;
110			if (y < ymin)
111			ymin = y;
112			if (y > ymax)
113			ymax = y;
114
115			nplottable++;
116			}
117
118
119	schorsch	1.2	extern void
120			cplot(void) /* do character plot */
121	greg	1.1	{
122			int i, j;
123			register char *op;
124
125			for (op = outcarr+dlength*dwidth; op > outcarr; )
126			*--op = ' ';
127
128			for (i = 0; i < MAXCUR; i++)
129			mgcurve(i, cpoint);
130
131			for (i = 0; i < dlength; i++) {
132			for (j = 0; j < dwidth; j++)
133			putchar(*op++);
134			putchar('\n');
135			}
136			}
137
138
139	schorsch	1.2	extern void
140			cpoint( /* store a point */
141			int c,
142			double x,
143			double y
144			)
145	greg	1.1	{
146			register int ndx;
147
148			if (x < xmin \|\| x > xmax \|\| y < ymin \|\| y > ymax)
149			return;
150
151			ndx = (dlength-1)*(1.0 - (y - ymin)/(ymax - ymin)) + 0.5;
152			ndx = dwidthndx + (dwidth-1)(x-xmin)/(xmax-xmin) + 0.5;
153
154			if (outcarr[ndx] == ' ')
155			outcarr[ndx] = c+'A';
156			else if (outcarr[ndx] > '1' && outcarr[ndx] < '9')
157			outcarr[ndx]++;
158			else if (outcarr[ndx] == '9')
159			outcarr[ndx] = '*';
160			else if (outcarr[ndx] != '*')
161			outcarr[ndx] = '2';
162			}