xref: /csrg-svn/lib/libplot/hp2648/linemod.c (revision 61393)
148517Sbostic /*-
2*61393Sbostic  * Copyright (c) 1980, 1993
3*61393Sbostic  *	The Regents of the University of California.  All rights reserved.
448517Sbostic  *
548517Sbostic  * %sccs.include.proprietary.c%
619975Sdist  */
719975Sdist 
815454Sralph #ifndef lint
9*61393Sbostic static char sccsid[] = "@(#)linemod.c	8.1 (Berkeley) 06/04/93";
1048517Sbostic #endif /* not lint */
1115454Sralph 
1215454Sralph #include "hp2648.h"
1315454Sralph 
linemod(line)1415454Sralph linemod( line )
1515454Sralph char	*line;
1615454Sralph {
1715454Sralph 	putchar('Z');
1815454Sralph 	handshake();
1915454Sralph 	putchar(ESC);
2015454Sralph 	putchar(GRAPHIC);
2115454Sralph 	putchar(MODE);
2215454Sralph 	if ( *(line) == 's' ) {
2315454Sralph 		if ( *(++line) == 'o' ) {
2415454Sralph 			/*
2515454Sralph 			 * solid mode 1
2615454Sralph 			 */
2715454Sralph 			putchar( '1' );
2815454Sralph 			putchar( 'b' );
2915454Sralph 			goto done;
3015454Sralph 		}
3115454Sralph 		else if ( *(line) == 'h' ) {
3215454Sralph 			/*
3315454Sralph 			 * shortdashed mode 4
3415454Sralph 			 */
3515454Sralph 			putchar( '6' );
3615454Sralph 			putchar( 'b' );
3715454Sralph 			goto done;
3815454Sralph 		}
3915454Sralph 	}
4015454Sralph 	else if ( *(line) == 'd' ) {
4115454Sralph 		if ( *(++line) == 'o' && *(++line) == 't' ) {
4215454Sralph 			if ( *(++line) == 't' ) {
4315454Sralph 				/*
4415454Sralph 				 * dotted mode 2
4515454Sralph 				 */
4615454Sralph 				putchar( '7' );
4715454Sralph 				putchar( 'b' );
4815454Sralph 				goto done;
4915454Sralph 			}
5015454Sralph 			else if ( *(line) == 'd' ) {
5115454Sralph 				/*
5215454Sralph 				 * dotdashed mode 3
5315454Sralph 				 */
5415454Sralph 				putchar( '8' );
5515454Sralph 				putchar( 'b' );
5615454Sralph 				goto done;
5715454Sralph 			}
5815454Sralph 		}
5915454Sralph 	}
6015454Sralph 	else if ( *(line) == 'l' ) {
6115454Sralph 		/*
6215454Sralph 		 * longdashed mode 5
6315454Sralph 		 */
6415454Sralph 		putchar( '5' );
6515454Sralph 		putchar( 'b' );
6615454Sralph 		goto done;
6715454Sralph 	}
6815454Sralph 	putchar( '1' );				/* default to solid */
6915454Sralph 	putchar( 'b' );				/* default to solid */
7015454Sralph done:
7115454Sralph 	putchar( 'Z' );
7215454Sralph 	handshake();
7315454Sralph 	putchar(ESC);
7415454Sralph 	putchar(GRAPHIC);
7515454Sralph 	putchar(PLOT);
7615454Sralph 	putchar(BINARY);
7715454Sralph 	buffcount = 4;
7815454Sralph 	return;
7915454Sralph }
80