/* Displays the plotter symbols for FXSYM function. */
/* Copyright (©) 1995, The Xperts Group Inc. All Rights Reserved. */
/* Author: Manolis S Pappas. */

#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 */

      fxstar(1,1);
      for (l=0; l<17; l++)  {
        fxadv(0);

/* Set up viewport and window */

        fxvpor(0.1,1.0,0.1,0.9);
        fxwind(0.0,1.0,0.0,1.0);

/* Draw the grid using fxbox */

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

/* Write the digits below the frame */

        for (i=0; i<=9; i++)  {
          sprintf(text,"%d",i);
          fxmtex("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);
          fxmtex("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 */

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

        fxmtex("t",1.5,0.5,0.5,"FXSYM symbol library.");
      }
      fxend();
}