drawbox.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."           |
|								|
+---------------------------------------------------------------+
|								|
| draw_box -- draw labeled box in a form suitable for plotas	|
|								|
| Shankar Narayan, EPI						|
| Adapted by Joseph T. Buck. 					|
|								|
+--------------------------------------------------------------*/
#ifdef SCCS
	static char *sccs_id = "@(#)drawbox.c	1.1 9/9/86 EPI";
#endif
draw_box (xmin, xmax, xstep, xdp, ymin, ymax, ystep, ydp)
double   xmin, xmax, xstep, ymin, ymax, ystep;
{
    char    xfmt[10], yfmt[10];
    double  tmp;
    int     ix, iy;

    (void) sprintf (xfmt, "%%5.%df\n", xdp);
    (void) sprintf (yfmt, "%%5.%df\n", ydp);
    printf ("\nc 1\n");

    printf ("m 500 500\n");
    printf ("d 500 5500\nd 3000 5500\nd 3000 500\nd  500 500\n");

    printf ("c 2\n");

 /* Draw vertical grid */

    for (tmp = xmin; tmp <= xmax; tmp = tmp + xstep) {
	ix = 500 + 5000 * (tmp - xmin) / (xmax - xmin);
	printf ("m 500 %4d\n", ix);
	printf ("d 3000 %4d\n", ix);
	printf ("m 3260 %4d\nt 5 1\n", ix - 150);
	printf (xfmt, tmp);
    }

 /* Draw ticks */
    for (tmp = xmin + xstep / 2; tmp <= xmax; tmp = tmp + xstep) {
	ix = 500 + 5000 * (tmp - xmin) / (xmax - xmin);
	printf ("m 475 %4d\n", ix);
	printf ("d 525 %4d\n", ix);
	printf ("m 2975 %4d\n", ix);
	printf ("d 3025 %4d\n", ix);
    }

 /* Draw horizontal grid */
    for (tmp = ymin; tmp <= ymax; tmp = tmp + ystep) {
	iy = 3000 - 2500 * (tmp - ymin) / (ymax - ymin);
	printf ("m %4d 5500\n", iy);
	printf ("d %4d 500\n", iy);
	printf ("m %4d 0\nt 5 1\n", iy + 100);
	printf (yfmt, tmp);
    }
}