PRO COLORBAR,dummy
;******************************************************************************
;+
; NAME:
;	COLORBAR
; PURPOSE:
;	Puts a color bar on the right edge of the display. 
;	Width is 20 pixels, each color 2 pixels high. 
; CATEGORY:
;	IMAGE PROCESSING
; CALLING SEQUENCE:
;	COLORBAR
; INPUTS:
;	NONE
; OPTIONAL INPUT PARAMETERS:
;	NONE
; OUTPUTS:
;	NONE
; COMMON BLOCKS:
;	NONE
; SIDE EFFECTS:
;	Colorbar on image display
; RESTRICTIONS:
;	Works with V2 of IDL with IRAS programs only!
; PROCEDURE:
;	Straightforward.
; MODIFICATION HISTORY:
;	Written, Stephen Merkowitz 1989
;       Modified to position colorbar correctly, C. Scott Merkle, July 1990
;         
;-
;******************************************************************************
BAR=BYTE(INDGEN(20,512)/40)
xwin=!d.x_size-20; set the bar position to the right edge of screen.
TV,BAR,xwin,140
RETURN
END