xref: /csrg-svn/lib/libplot/hp2648/linemod.c (revision 15454)
1*15454Sralph #ifndef lint
2*15454Sralph static char sccsid[] = "@(#)linemod.c	4.1 (Berkeley) 11/10/83";
3*15454Sralph #endif
4*15454Sralph 
5*15454Sralph #include "hp2648.h"
6*15454Sralph 
7*15454Sralph linemod( line )
8*15454Sralph char	*line;
9*15454Sralph {
10*15454Sralph 	putchar('Z');
11*15454Sralph 	handshake();
12*15454Sralph 	putchar(ESC);
13*15454Sralph 	putchar(GRAPHIC);
14*15454Sralph 	putchar(MODE);
15*15454Sralph 	if ( *(line) == 's' ) {
16*15454Sralph 		if ( *(++line) == 'o' ) {
17*15454Sralph 			/*
18*15454Sralph 			 * solid mode 1
19*15454Sralph 			 */
20*15454Sralph 			putchar( '1' );
21*15454Sralph 			putchar( 'b' );
22*15454Sralph 			goto done;
23*15454Sralph 		}
24*15454Sralph 		else if ( *(line) == 'h' ) {
25*15454Sralph 			/*
26*15454Sralph 			 * shortdashed mode 4
27*15454Sralph 			 */
28*15454Sralph 			putchar( '6' );
29*15454Sralph 			putchar( 'b' );
30*15454Sralph 			goto done;
31*15454Sralph 		}
32*15454Sralph 	}
33*15454Sralph 	else if ( *(line) == 'd' ) {
34*15454Sralph 		if ( *(++line) == 'o' && *(++line) == 't' ) {
35*15454Sralph 			if ( *(++line) == 't' ) {
36*15454Sralph 				/*
37*15454Sralph 				 * dotted mode 2
38*15454Sralph 				 */
39*15454Sralph 				putchar( '7' );
40*15454Sralph 				putchar( 'b' );
41*15454Sralph 				goto done;
42*15454Sralph 			}
43*15454Sralph 			else if ( *(line) == 'd' ) {
44*15454Sralph 				/*
45*15454Sralph 				 * dotdashed mode 3
46*15454Sralph 				 */
47*15454Sralph 				putchar( '8' );
48*15454Sralph 				putchar( 'b' );
49*15454Sralph 				goto done;
50*15454Sralph 			}
51*15454Sralph 		}
52*15454Sralph 	}
53*15454Sralph 	else if ( *(line) == 'l' ) {
54*15454Sralph 		/*
55*15454Sralph 		 * longdashed mode 5
56*15454Sralph 		 */
57*15454Sralph 		putchar( '5' );
58*15454Sralph 		putchar( 'b' );
59*15454Sralph 		goto done;
60*15454Sralph 	}
61*15454Sralph 	putchar( '1' );				/* default to solid */
62*15454Sralph 	putchar( 'b' );				/* default to solid */
63*15454Sralph done:
64*15454Sralph 	putchar( 'Z' );
65*15454Sralph 	handshake();
66*15454Sralph 	putchar(ESC);
67*15454Sralph 	putchar(GRAPHIC);
68*15454Sralph 	putchar(PLOT);
69*15454Sralph 	putchar(BINARY);
70*15454Sralph 	buffcount = 4;
71*15454Sralph 	return;
72*15454Sralph }
73