/* Displays the plotter symbols for PLPOIN */

#include <stdio.h>

main()
{
      char text[3];
      int i, j, k;
      float x, y;

/* Full sized page for display */

      plstar(1,1);
      pladv(0);

/* Set up viewport and window */

      plvpor(0.1,1.0,0.1,0.9);
      plwind(0.0,1.0,0.0,1.3);

/* Draw the grid using plbox */

      plbox("bcgt",0.1,0,"bcgt",0.1,0);

/* Write the digits below the frame */

      for (i=0; i<=9; i++) {
        sprintf(text,"%d",i);
        plmtex("b",1.5,0.1*i+0.05,0.5,text);
      }
    
      k=0;
      for (i=0; i<=12; i++)  {

/* Write the digits to the left of the frame */

        sprintf(text,"%d",10*i);
        plmtex("lv",1.0,1.0-(2*i+1)/26.0,1.0,text);
        for (j=0; j<=9; j++) {
          x=0.1*j+0.05;
          y=1.25-0.1*i;

/* Display the symbols (plpoin expects that x and y are arrays so */
/* pass pointers) */

          if (k < 128) plpoin(1,&x,&y,k);
          k=k+1;
        }
      }

      plmtex("t",1.5,0.5,0.5,"PLPLOT Example 6 - PLPOIN symbols");
      plend();
}