;
; Color exercise 4.
;

load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"

begin
  wks = gsn_open_wks("x11","color_ex04")

  cmap = (/ (/.700,.700,.700/), (/.610,.600,.700/), \
            (/.420,.400,.700/), (/.200,.200,.700/), \
            (/.000,.000,.700/), (/.000,.200,.700/), \
            (/.000,.400,.700/), (/.000,.600,.300/), \
            (/.000,.690,.000/), (/.130,.570,.000/), \
            (/.560,.530,.000/), (/.680,.330,.000/), \
            (/.700,.260,.000/), (/.700,.120,.000/), \
            (/.800,.090,.000/), (/.950,.010,.000/)/)

  gsn_define_colormap(wks,cmap)

  gsn_draw_colormap(wks)                  ; Draw the current color map
end