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

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

/* Sets up the device "dev" for plotting, dividing the page into "nx" */
/* by "ny" subpages. */

#include "plplot.h"
#include <math.h>

void plbeg(dev,nx,ny)
int dev, nx, ny;
{
   double scale, def, ht;

   if ((nx <= 0) || (ny <= 0 ))
      plexit("Cannot have negative number of subpages in plstar.");

   scale = 1.0/sqrt((double)ny);
   slev(1);
   /* Use only the PostScript driver on the NeXT. */
#ifdef NeXT
   dev = 1;
#endif
   grbeg(dev);
   ssub(nx,ny,0);

   /* Set up character, symbol and tick sizes for requested number of */
   /* subpages */

   gchr(&def,&ht);
   schr((def*scale),(def*scale));
   gsym(&def,&ht);
   ssym((def*scale),(def*scale));
   gmaj(&def,&ht);
   smaj((def*scale),(def*scale));
   gmin(&def,&ht);
   smin((def*scale),(def*scale));
}

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