PRO whitetop
;+
; NAME:
;	WHITETOP
; PURPOSE:
;	Making the top of the colour table white.
; CATEGORY:
;
; CALLING SEQUENCE:
;	WHITETOP
; INPUTS:
;	None.
; OPTIONAL INPUTS:
;	None.
; KEYWORD PARAMETERS:
;	None.
; OUTPUTS:
;	None.
; OPTIONAL OUTPUTS:
;	None.
; COMMON BLOCKS:
;	None.
; SIDE EFFECTS:
;	The highest colour in the colour table is changed to white.
; RESTRICTIONS:
;	None.
; PROCEDURE:
;       The presently-loaded colour table is read into arrays for
;       the red, green, and blue components.  The last element in
;       each array is set to 255B, and the colour table is loaded
;	from the modified arrays.
; EXAMPLE:
;	loadct,13	; Load the RAINBOW colour table
;	whitetop	; change the last colour from red to white
; SEE ALSO:
;	
; MODIFICATION HISTORY:
; 	Written by:	Your name here, Date.
;-

TVLCT,r,g,b,/GET
n=N_ELEMENTS(r)
r(n-1)=255B
g(n-1)=255B
b(n-1)=255B
TVLCT,r,g,b

RETURN
END