plotdatad.c

speech signal process tools

/*--------------------------------------------------------------+
| ENTROPIC PROCESSING, INC.					|
|								|
| This material contains proprietary software of Entropic	|
| Processing, Inc.  Any reproduction, distribution, or		|
| publication without the the prior written permission of	|
| Entropic Processing, Inc.  is strictly prohibited.  Any	|
| public distribution of copies of this work authorized in	|
| writing by Entropic Processing, Inc.  must bear the notice 	|
|								|
|          "Copyright 1986 Entropic Processing, Inc."           |
|								|
+---------------------------------------------------------------+
|								|
| plot_data -- plot data from an array of doubles		|
|								|
| Joseph T. Buck, EPI						|
| Adapted from a program by Shankar Narayan                     |
| John Shore - modified to take parameter for interval between  |
|              points to be plotted (to permit speedup)         |
|	       use interval=1 to plot every point
+--------------------------------------------------------------*/
#ifdef SCCS
	static char *sccs_id = "@(#)plotdatad.c	1.1 9/23/86 EPI";
#endif
int penbounds[] = { 500, 5500, 3000, 500 };

plot_datad (data, lnt, xmin, xmax, ymin, ymax, nskip, interval)
double *data;	/*array of points - a subset of these will be plotted*/
int lnt;    	/*number of points to plot in data[]*/
int interval;	/*interval between points in data[] to be plotted*/
int nskip;	/*number of points that were skipped in original data
		  (when data[] was generated*/
double ymin, ymax, xmin, xmax;
{
    int     i, ix, iy;
    char    com = 'm';
    float   xscl = penbounds[1] - penbounds[0],
	    yscl = penbounds[3] - penbounds[2];
    for (i = 0; i < lnt; i++) {
	ix = penbounds[0] + (nskip + i*interval - xmin) * xscl / (xmax - xmin);
	iy = penbounds[2] + (data[i*interval] - ymin) * yscl / (ymax - ymin);
	printf ("%c %d %d\n", com, iy, ix);
	if (i == 0) com = 'd';
    }
}