; PRO Plotcolors
; Purpose: Set up a rainbow of colors for line plots to be used, for
; example, in postscript files. This palette is based on that in
; http://jfly.iam.u-tokyo.ac.jp/color/ and should be unambiguous to people who
; are colorblind
; written: 8/7/2009 by A. J. Weinberger

pro plotcolorscb,help=help

;Specify the red, green, blue components of each color:
;      black white orange   sky blue aqua  yell blue  vermil pink
RED =  [0.0, 1.0,    0.9,   0.35,    0.0, 1.0, 0.0,  1.0,  0.88]
GREEN= [0.0, 1.0,    0.6,   0.70,    0.6, 0.95,  0.45, 0.30, 0.66]
BLUE=  [0.0, 1.0,    0.0,   0.90,    0.5, 0.26, 0.7,  0.0,  0.77]
;Load the elements of the color table:
TVLCT, 255 * RED, 255 * GREEN, 255 * BLUE

;loadct, 39
if keyword_set(help) then begin
    print,' 0 - black'
    print,' 1 - white'
    print,' 2 - orange'
    print,' 3 - sky blue'
    print,' 4 - aqua'
    print,' 5 - yellow'
    print,' 6 - blue'
    print,' 7 - vermillion'
    print,' 8 - purple'
endif

end