ftp.nice.ch/pub/next/unix/developer/plplot.3.0.s.tar.gz#/plplot/examples/example07.c

This is example07.c in view mode; [Download] [Up]

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

   plfontld(1);
   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");
     pleop();
   }
   plend();
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Marcel Waldvogel and Netfuture.ch.