/* Displays the plotter symbols for PLSYM */

#include <stdio.h>

static int  base[17] = { 0, 200, 500, 600, 700, 800, 900,
   2000,2100,2200,2300,2400,2500,2600,2700,2800,2900 };

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

/* Full sized page for display */

      plstar(1,1);
      for (l=0; l<17; l++)  {
        pladv(0);

/* Set up viewport and window */

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

/* 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<=9; i++)  {

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

          sprintf(text,"%d",base[l]+10*i);
          plmtex("lv",1.0,0.95-0.1*i,1.0,text);
          for (j=0; j<=9; j++) {
            x=0.1*j+0.05;
            y=0.95-0.1*i;

/* Display the symbols */

            plsym(1,&x,&y,base[l]+k);
            k=k+1;
          }
        }

        plmtex("t",1.5,0.5,0.5,"PLPLOT Example 7 - PLSYM symbols");
      }
      plend();
}