148511Sbostic /*-
2*61389Sbostic * Copyright (c) 1980, 1986, 1993
3*61389Sbostic * The Regents of the University of California. All rights reserved.
448511Sbostic *
548511Sbostic * %sccs.include.proprietary.c%
629813Ssklower */
729813Ssklower
829813Ssklower #ifndef lint
9*61389Sbostic static char sccsid[] = "@(#)linemod.c 8.1 (Berkeley) 06/04/93";
1048511Sbostic #endif /* not lint */
1129813Ssklower
1229813Ssklower #include "grnplot.h"
1329813Ssklower
1429813Ssklower /*---------------------------------------------------------
1529813Ssklower * Linemod sets the current line drawing style.
1629813Ssklower *
1729813Ssklower * Results: None.
1829813Ssklower *
1929813Ssklower * Side Effects:
2029813Ssklower * The line style is set based on string s which
2129813Ssklower * must be one of "dotted", "solid", "longdashed", "shortdashed",
2229813Ssklower * or "dotdashed". If s isn't recognized, then "solid" is used.
2329813Ssklower *---------------------------------------------------------
2429813Ssklower */
linemod(s)2529813Ssklower linemod(s)
2629813Ssklower char *s;
2729813Ssklower {
2829813Ssklower endvector();
2929813Ssklower if (strcmp(s, "dotted") == 0)
3029813Ssklower linestyle = 1;
3129813Ssklower else if (strcmp(s, "longdashed") == 0)
3229813Ssklower linestyle = 4;
3329813Ssklower else if (strcmp(s, "shortdashed") == 0)
3429813Ssklower linestyle = 4;
3529813Ssklower else if (strcmp(s, "dotdashed") == 0)
3629813Ssklower linestyle = 2;
3729813Ssklower else linestyle = DEFAULTLINE;
3829813Ssklower }
39