call glClear(ior(GL_COLOR_BUFFER_BIT, GL_DEPTH_BUFFER_BIT))
call glPixelStorei(GL_UNPACK_ALIGNMENT, 1)
call glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE)
call glTexParameterf(GL_TEXTURE_1D, GL_TEXTURE_WRAP_S, GL_CLAMP)
call glTexParameterf(GL_TEXTURE_1D,GL_TEXTURE_MAG_FILTER,GL_LINEAR)
call glTexParameterf(GL_TEXTURE_1D,GL_TEXTURE_MIN_FILTER,GL_LINEAR)
call glTexImage1D(GL_TEXTURE_1D,0,3,20,0,GL_RGB,GL_FLOAT,arrcol) !comment, arrcol holds twenty colours as RGB values
call glEnable(GL_TEXTURE_GEN_S)
call glEnable(GL_TEXTURE_1D)
call glPushMatrix ()
call glBegin(GL_TRIANGLES)!
call glTexCoord1f(1.0)
call glVertex3f(-12.0, -8.0, 1.0)
call glTexCoord1f(0.5)
call glVertex3f( 0.0, 12.0, 0.0)
call glTexCoord1f(0.0)
call glVertex3f( 12.0, -8.0, -1.0)
call glEnd()
call glPopMatrix ()
call glFlush()
call swap_opengl_buffers()