; IDL script for creating the colorbars for Burcu's paper
 
;- Setup
loadct, 0
window, /free
device, set_font='Helvetica', /tt_font

;- Band 7 horizontal colorbar
pson, file='colorbar_band07_horizontal.ps'
colorbar, range=[0.0, 0.30], div=6, bottom=1, ncolors=254, color=0, title='Reflectance', charsize=1.25, font=1, format='(f4.2)'
psoff

;- Band 7 vertical colorbar
pson, file='colorbar_band07_vertical.ps'
colorbar, range=[0.0, 0.3], div=6, bottom=1, ncolors=254, color=0, title='Reflectance', charsize=1.25, font=1, format='(f4.2)', $
  /vertical, /right, position=[0.50, 0.15, 0.55, 0.95]
psoff

;- Load Brewer color table
openr, 1, 'palette_brewer.txt'
data = intarr(4, 256)
readf, 1, data
close, 1 
r = data[1, 0:254]
g = data[2, 0:254]
b = data[3, 0:254]
tvlct, r, g, b

;- Effective radius horizontal colorbar
pson, file='colorbar_reff_horizontal.ps'
colorbar, range=[5, 30], div=5, bottom=1, ncolors=254, color=0, title='Effective Radius (microns)', charsize=1.25, font=1
psoff

;- Effective radius vertical colorbar
pson, file='colorbar_reff_vertical.ps'
colorbar, range=[5, 30], div=5, bottom=1, ncolors=254, color=0, title='Effective Radius (microns)', charsize=1.25, font=1, $
  /vertical, /right, position=[0.50, 0.15, 0.55, 0.95]
psoff

exit