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

include	"sgi.h"

# SGI_COLOR -- Set line drawing color.

procedure sgi_color (index)

int	index		# index for color switch statement
include	"sgi.com"

begin
	# switch (index) {
	# case WHITE:
	# case RED:
	# case GREEN:
	# case BLUE:
	# default:
	# }
end
