src/meta/cgraph.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
/*
 *  cgraph.c - routines for sending graphs to tty's.
 *
 *     Greg Ward
 *     7/7/86
 */


#include  <stdio.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 */


cgraph(width, length)           /* do a character graph to stdout */
int  width, 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 */
}


climits()                       /* get min & max values */
{
        int  i, cstretch();

        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);
}


cstretch(c, x, y)                       /* stretch our boundaries */
int  c;
double  x, 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++;
}


cplot()                         /* do character  plot */
{
        int  cpoint();
        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');
        }
}


cpoint(c, x, y)                 /* store a point */
int  c;
double  x, 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.1
Committed:	Sat Feb 22 02:07:26 2003 UTC (22 years, 8 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R5
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2			static const char RCSid[] = "$Id$";
3			#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			#include "mgvars.h"
15
16
17			#define FHUGE 1e10
18
19			#define MAXSIZE 10000 /* Maximum size in characters of output */
20
21			extern char progname; / argv[0] */
22
23			static char outcarr[MAXSIZE]; /* character output array */
24
25			static double xmin = XMAX, xmax = XMIN, /* extrema */
26			ymin = YMAX, ymax = YMIN;
27
28			static int dwidth, dlength; /* device width and length */
29
30			static int nplottable; /* number of plottable points */
31
32
33			cgraph(width, length) /* do a character graph to stdout */
34			int width, length;
35			{
36			if (width * length > MAXSIZE) {
37			fprintf(stderr, "%s: page too big\n", progname);
38			quit(1);
39			}
40			dwidth = width;
41			dlength = length;
42			climits(); /* get min & max values */
43			cplot(); /* do character plot */
44			}
45
46
47			climits() /* get min & max values */
48			{
49			int i, cstretch();
50
51			xmin = gparam[XMIN].flags & DEFINED ?
52			varvalue(gparam[XMIN].name) :
53			FHUGE ;
54			xmax = gparam[XMAX].flags & DEFINED ?
55			varvalue(gparam[XMAX].name) :
56			-FHUGE ;
57			ymin = gparam[YMIN].flags & DEFINED ?
58			varvalue(gparam[YMIN].name) :
59			FHUGE ;
60			ymax = gparam[YMAX].flags & DEFINED ?
61			varvalue(gparam[YMAX].name) :
62			-FHUGE ;
63
64			nplottable = 0;
65			for (i = 0; i < MAXCUR; i++)
66			mgcurve(i, cstretch);
67
68			if (nplottable == 0) {
69			fprintf(stderr, "%s: no plottable data\n", progname);
70			quit(1);
71			}
72			printf("XMIN= %f XMAX= %f YMIN= %f YMAX= %f\n",
73			xmin, xmax, ymin, ymax);
74			}
75
76
77			cstretch(c, x, y) /* stretch our boundaries */
78			int c;
79			double x, y;
80			{
81			if (gparam[XMIN].flags & DEFINED &&
82			x < xmin)
83			return;
84			if (gparam[XMAX].flags & DEFINED &&
85			x > xmax)
86			return;
87			if (gparam[YMIN].flags & DEFINED &&
88			y < ymin)
89			return;
90			if (gparam[YMAX].flags & DEFINED &&
91			y > ymax)
92			return;
93
94			if (x < xmin)
95			xmin = x;
96			if (x > xmax)
97			xmax = x;
98			if (y < ymin)
99			ymin = y;
100			if (y > ymax)
101			ymax = y;
102
103			nplottable++;
104			}
105
106
107			cplot() /* do character plot */
108			{
109			int cpoint();
110			int i, j;
111			register char *op;
112
113			for (op = outcarr+dlength*dwidth; op > outcarr; )
114			*--op = ' ';
115
116			for (i = 0; i < MAXCUR; i++)
117			mgcurve(i, cpoint);
118
119			for (i = 0; i < dlength; i++) {
120			for (j = 0; j < dwidth; j++)
121			putchar(*op++);
122			putchar('\n');
123			}
124			}
125
126
127			cpoint(c, x, y) /* store a point */
128			int c;
129			double x, y;
130			{
131			register int ndx;
132
133			if (x < xmin \|\| x > xmax \|\| y < ymin \|\| y > ymax)
134			return;
135
136			ndx = (dlength-1)*(1.0 - (y - ymin)/(ymax - ymin)) + 0.5;
137			ndx = dwidthndx + (dwidth-1)(x-xmin)/(xmax-xmin) + 0.5;
138
139			if (outcarr[ndx] == ' ')
140			outcarr[ndx] = c+'A';
141			else if (outcarr[ndx] > '1' && outcarr[ndx] < '9')
142			outcarr[ndx]++;
143			else if (outcarr[ndx] == '9')
144			outcarr[ndx] = '*';
145			else if (outcarr[ndx] != '*')
146			outcarr[ndx] = '2';
147			}