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

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

/* Sets fill pattern */

#include "plplot.h"

static struct line {
   int nels;
   int mark[4];
   int space[4];
} line[] = {
   {
      0,                       /* Continuous line */
      0, 0, 0, 0,
      0, 0, 0, 0
   },
   {
      1,
      1000, 0, 0, 0,
      1000, 0, 0, 0
   },
   {
      1,
      2000, 0, 0, 0,
      2000, 0, 0, 0
   },
   {
      1,
      2000, 0, 0, 0,
      1000, 0, 0, 0
   },
   {
      2,
      2500, 1000, 0, 0,
      1000, 1000, 0, 0
   },
   {
      2,
      2000, 1000, 0, 0,
      2000, 1000, 0, 0
   },
   {
      3,
      1000, 1500, 2000, 0,
      1000, 1500, 2000, 0
   },
   {
      3,
      1000, 1500, 2000, 0,
      1000, 1000, 1000, 0
   }
};

void pllsty(lin)
int lin;
{
   int level;

   glev(&level);
   if (level < 1)  plexit("Please call plstar before calling pllsty.");
   if (lin < 1 || lin > 8)
      plexit("Invalid line in pllsty.");
   plstyl(line[lin-1].nels,&line[lin-1].mark[0],&line[lin-1].space[0]);

}

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