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

include <gset.h>
include	"sgi.h"

# SGI_LINETYPE -- Set the line type option.

procedure sgi_linetype (index)

int	index		# index for line type switch statement

int	linetype
include	"sgi.com"

begin
	switch (index) {
	case GL_CLEAR:
	    linetype = 0
	case GL_DASHED:
	    linetype = 2
	case GL_DOTTED:
	    linetype = 3
	case GL_DOTDASH:
	    linetype = 4
	default:
	    linetype = 1		# solid
	}

	# This will be done in software in a future version of the SGI kernel.
	# call sgk_linetype (g_out, linetype)
end