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

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

/* Sets fill pattern */

#include "plplot.h"

static struct pattern {
   int nlines;               /* Number of lines in pattern (1 or 2) */
   int inc[2];               /* Inclination 10 ths of degrees */
   int del[2];               /* Spacing for each line */
} pattern[] = {
   {
      1,
      0, 0,
      2000, 0
   },
   {
      1,
      900, 0,
      2000, 0
   },
   {
      1,
      450, 0,
      2000, 0
   },
   {
      1,
      -450, 0,
      2000, 0
   },
   {
      1,
      300, 0,
      2000, 0
   },
   {
      1,
      -300, 0,
      2000, 0
   },
   {
      2,
      0, 900,
      2000, 2000
   },
   {
      2,
      450, -450,
      2000, 2000
   }
};

void plpsty(patt)
int patt;
{
   int level;

   glev(&level);
   if (level < 1)  plexit("Please call plstar before calling plpsty.");
   if (patt < 1 || patt > 8)
      plexit("Invalid pattern in plpsty.");
   plpat(pattern[patt-1].nlines,&pattern[patt-1].inc[0],
         &pattern[patt-1].del[0]);

}

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