;+
; NAME:
;	Stretch_Colors
; PURPOSE:
;	Reverse color table
; CATEGORY:
;	Annoying
; CALLING SEQUENCE:
	PRO Stretch_Colors, reverse=reverse, silent=silent
; INPUTS:
;	(none)
; OPTIONAL INPUT PARAMETERS:
;	/reverse	if set then reverse the color table
; OUTPUTS:
; INCLUDE:
	@compile_opt.pro		; On error, return to caller
; CALLS:
;	InitVar
; PROCEDURE:
; MODIFICATION HISTORY:
;	MAR-2009, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
;-

InitVar, silent , 0
InitVar, reverse, /key
straight = 1-reverse

stretch, 0*straight+(!d.n_colors-1)*reverse, (!d.n_colors-1)*straight+0*reverse

IF silent LE 0 THEN	$
	message, /info, !d.name+': color table '+(['','not '])[straight]+'reversed'

RETURN  &  END