procedure colint

Initialises a colour table for a geometrical object. In general, it is recommended that SHINE = 0.0 if DIFUSE > 0.0 and vice versa.

Syntax
colint RGB,IC1,IC2,DIFUSE,SHINE,POLISH

Arguments

ARGUMENT    TYPE I/O DIMENSION DESCRIPTION

RGB:   R*4 I 3 Red, green and blue intenisty for

   fully-lit non-shiny object (0-1).

IC1,IC2:   I*4 I - Lowest & highest colour-index to be

   used for shading.

DIFUSE:   R*4 I - Diffusiveness of object (0-1).

SHINE:   R*4 I - Whiteness of bright spot (0-1).

POLISH:   R*4 I - Controls size of bright spot.

ARGUMENT	TYPE I/O DIMENSION DESCRIPTION
RGB:	R*4 I 3 Red, green and blue intenisty for
	fully-lit non-shiny object (0-1).
IC1,IC2:	I*4 I - Lowest & highest colour-index to be
	used for shading.
DIFUSE:	R*4 I - Diffusiveness of object (0-1).
SHINE:	R*4 I - Whiteness of bright spot (0-1).
POLISH:	R*4 I - Controls size of bright spot.