Simple line plot and multiple windows demo

 #pragma package "../"
 #include <math.h>
 #include "chplplot.h"
 
 static PLFLT x[101], y[101];
 static PLFLT xscale, yscale, xoff, yoff, xs[6], ys[6];
 static PLGraphicsIn *gin;
 
 static int locate_mode;
 static int test_xor;
 static int fontset = 1;
 static char *f_name = NULL;
 
 
 char *notes[] = {"Make sure you get it right!", NULL};
 
 
 void plot1(int);
 void plot2(void);
 void plot3(void);
 
 
 int
 main(int argc, char *argv[])
 {
     gin = new PLGraphicsIn();
     PLINT digmax, cur_strm, new_strm;
     char ver[80];
 
 
     plssub(2, 2);
 
 
     plParseOpts(&argc, argv, PL_PARSE_FULL);
 
 
     plgver(ver);
     fprintf(stderr, "PLplot library version: %s\n", ver);
 
 
     plinit();
 
     if (fontset)
 	plfontld(1);
     else
 	plfontld(0);
 
 
     xscale = 6.;
     yscale = 1.;
     xoff = 0.;
     yoff = 0.;
 
 
     plot1(0);
 
 
     xscale = 1.;
     yscale = 0.0014;
     yoff = 0.0185;
 
 
     digmax = 5;
     plsyax(digmax, 0);
 
     plot1(1);
 
     plot2();
 
     plot3();
 
 
     if (f_name) {
       printf("The current plot was saved in color Postscript under the name
 ++++`%s'.\n", f_name);
       plgstrm(&cur_strm);      plmkstrm(&new_strm); 
     
       plsfnam(f_name);      plsdev("psc");
       plcpstrm(cur_strm, 0);      plreplot();	      plend1();
       plsstrm(cur_strm);    }
 
 
     if (locate_mode) {
 	for (;;) {
 	  if (! plGetCursor(gin)) break;
 	  if ((int)gin->keysym_get() == (int)PLK_Escape) break;
 
 	    pltext();
 	    if (gin->keysym_get() < 0xFF && isprint(gin->keysym_get())) 
 		printf("subwin = %d, wx = %f,  wy = %f, dx = %f,  dy = %f,  c = '%c'\n",
 		       gin->subwindow_get(), gin->wX_get(), gin->wY_get(), gin->dX_get(),
 ++++gin->dY_get(), gin->keysym_get());
 	    else
 		printf("subwin = %d, wx = %f,  wy = %f, dx = %f,  dy = %f,  c = 0x%02x\n",
 		       gin->subwindow_get(), gin->wX_get(), gin->wY_get(), gin->dX_get(),
 ++++gin->dY_get(), gin->keysym_get());
 
 	    plgra();
 	}
     }
 
 
     plend();
     exit(0);
 }
 
  
 void
 plot1(int do_test)
 {
   int i;
   PLINT st;
     PLFLT xmin, xmax, ymin, ymax;
 
     for (i = 0; i < 60; i++) {
 	x[i] = xoff + xscale * (i + 1) / 60.0;
 	y[i] = yoff + yscale * pow(x[i], 2.);
     }
 
     xmin = x[0];
     xmax = x[59];
     ymin = y[0];
     ymax = y[59];
 
     for (i = 0; i < 6; i++) {
 	xs[i] = x[i * 10 + 3];
 	ys[i] = y[i * 10 + 3];
     }
 
     plcol0(1);
     plenv(xmin, xmax, ymin, ymax, 0, 0);
     plcol0(2);
     pllab("(x)", "(y)", "#frPLplot Example 1 - y=x#u2");
 
 
     plcol0(4);
     plpoin(6, xs, ys, 9);
 
 
     plcol0(3);
     plline(60, x, y);
 
 
     if (do_test && test_xor) {
 #ifdef HAVE_USLEEP
 	plxormod(1, &st);	if (st) {
 	  for (i=0; i<60; i++) {
 	    plpoin(1, x+i, y+i,9);		    usleep(50000);			    plflush();				   
 ++++plpoin(1, x+i, y+i,9);		  }
 	  plxormod(0, &st);				}
 #else
     printf("The -xor command line option can only be exercised if your "
            "system\nhas usleep(), which does not seem to happen.\n"); 
 #endif
     }
 }
  
 
 void
 plot2(void)
 {
     int i;
 
     plcol0(1);
     plenv(-2.0, 10.0, -0.4, 1.2, 0, 1);
     plcol0(2);
     pllab("(x)", "sin(x)/x", "#frPLplot Example 1 - Sinc Function");
 
 
     for (i = 0; i < 100; i++) {
 	x[i] = (i - 19.0) / 6.0;
 	y[i] = 1.0;
 	if (x[i] != 0.0)
 	    y[i] = sin(x[i]) / x[i];
     }
 
 
     plcol0(3);
     plwid(2);
     plline(100, x, y);
     plwid(1);
 }
 
 
 void
 plot3(void)
 {
     PLINT space0 = 0, mark0 = 0, space1 = 1500, mark1 = 1500;
     int i;
 
     pladv(0);
 
     plvsta();
     plwind(0.0, 360.0, -1.2, 1.2);
 
 
     plcol0(1);
     plbox("bcnst", 60.0, 2, "bcnstv", 0.2, 2);
 
     plstyl(1, &mark1, &space1);
     plcol0(2);
     plbox("g", 30.0, 0, "g", 0.2, 0);
     plstyl(0, &mark0, &space0);
 
     plcol0(3);
     pllab("Angle (degrees)", "sine", "#frPLplot Example 1 - Sine function");
 
     for (i = 0; i < 101; i++) {
 	x[i] = 3.6 * i;
 	y[i] = sin(x[i] * M_PI / 180.0);
     }
 
     plcol0(4);
     plline(101, x, y);
 }