PRO bar,width,length,xpos,ypos,res=res

; create and display color bar

cbar=CONGRID(BINDGEN(256,width),length,width,/INTERP,/MINUS_ONE)
cbar=ROTATE(cbar,3)

IF N_ELEMENTS(ypos) EQ 0 THEN BEGIN
    IF KEYWORD_SET(res) $
	THEN mtv,cbar,xpos,res=res $
	ELSE mtv,cbar,xpos
ENDIF ELSE BEGIN 
    IF KEYWORD_SET(res) $
	THEN mtv,cbar,xpos,ypos,res=res $
        ELSE mtv,cbar,xpos,ypos
ENDELSE

RETURN
END