# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.

include <gset.h>
include	"../lib/ids.h"

# IDS_LINE  set the line type option in the nspp world

procedure ids_line(index)

int	index		# index for line type switch statement

int	linetype

include	"../lib/ids.com"

begin
	    switch (index) {
		case GL_CLEAR:
		    linetype = 0
		case GL_DASHED:
		    linetype = 0FF00X
		case GL_DOTTED:
		    linetype = 08888X
		case GL_DOTDASH:
		    linetype = 0F040X
		default:
		    linetype = 0FFFFX	# GL_SOLID and default
	    }
	    i_linemask = linetype
end