home *** CD-ROM | disk | FTP | other *** search
- /* Sets fill pattern */
-
- #include "plplot.h"
-
- static struct pattern {
- PLINT nlines; /* Number of lines in pattern (1 or 2) */
- PLINT inc[2]; /* Inclination 10 ths of degrees */
- PLINT 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)
- PLINT patt;
- {
- PLINT 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]);
-
- }
-