cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c									 c
c 		 Copyright (C) 1983, Silicon Graphics, Inc.		 c
c									 c
c  These coded instructions, statements, and computer programs  contain  c
c  unpublished  proprietary  information of Silicon Graphics, Inc., and  c
c  are protected by Federal copyright law.  They  may  not be disclosed  c
c  to  third  parties  or copied or duplicated in any form, in whole or  c
c  in part, without the prior written consent of Silicon Graphics, Inc.  c
c									 c
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

	include 'gl.h'

	real star(2,5)
	integer*2 left, right, top, bottom
	integer*2 i

	star(1,1) =  0.0
	star(2,1) =  0.0
	star(1,2) =  5.0
	star(2,2) = 11.0
	star(1,3) = 10.0
	star(2,3) =  0.0
	star(1,4) = -2.0
	star(2,4) =  7.0
	star(1,5) = 11.0
	star(2,5) =  8.0

	left = XMAXSC - 15
	right = XMAXSC
	bottom = YMAXSC - 15
	top = YMAXSC

	call ginit

	do 10 i=9,255
		call mapcol(i,i,0,0)
10	continue
	
	call color(BLACK)
	call clear
	call ortho2(-10.0, 20.0, -10.0, 20.0)
	do 20 i=9,256
		call viewpo(left, right, bottom, top)	
		call color(i)
		call poly2(5, star)
		left = left - 3
		right = right - 1
		bottom = bottom - 3
		top = top - 1
20	continue
	do 99 i=1,10000
99      continue
	call gexit
	end