home *** CD-ROM | disk | FTP | other *** search
- /* Sets fill pattern */
-
- #include "plplot.h"
-
- static struct line {
- PLINT nels;
- PLINT mark[4];
- PLINT 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)
- PLINT lin;
- {
- PLINT 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]);
-
- }
-