;
;Copyright 1996-2013 United States Government as represented by the
;Administrator of the National Aeronautics and Space Administration.
;All Rights Reserved.
; This software may be used, copied, or redistributed as long as it is not
; sold and this copyright notice is reproduced on each copy made.  This
; routine is provided as is without any express or implied warranties
; whatsoever.
;
pro cmb_set_up_colors,ict
common colors, r_orig, g_orig, b_orig, r_curr, g_curr, b_curr
idx = (where([ 'MacOS', 'Windows', 'unix' ] eq !version.os_family))[0]
top = 255
bottom = 0
;if idx eq 1 then set_plot,'WIN' else  set_plot,'X'
device,decomposed=0
if n_elements(ict) eq 0 then ict = 13
if ict eq 75 then sab_redbluect else loadct,ict
nc = !d.table_size 
!p.color = 0
!p.background = nc-1
!p.thick = 1.0 & !x.thick = 1.0 & !y.thick = 1.0
!p.charthick = 1.0 & !p.charsize = 1.0
!p.font = -1
  r_curr[0] = bottom & g_curr[0] = bottom
  b_curr[0] = bottom
  r_curr[nc-1] = top & g_curr[nc-1] = top
  b_curr[nc-1] = top
  tvlct, r_curr, g_curr, b_curr
end