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

begin
  wks = gsn_open_wks("ps","color5")    ; Open a PS file "color5.ps"

;
; Change the color map using RGB triplets.
;
  cmap = (/(/0.,0.,0./), (/1.,1.,1./), \
           (/1.,0.,0./), (/0.,1.,0./), \
           (/0.,0.,1./), (/1.,0.,1./), \
           (/1.,1.,0./), (/0.,1.,1./), \
           (/.2,.2,.2/), (/.8,.8,.8/)/)

  gsn_define_colormap(wks,cmap)             ; Set this new color map.
  gsn_draw_colormap(wks)                    ; Draw the color map.
end