/* 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]);

}