pro sk_ct

; Purpose: set up colour table like Stefan Kerns for plotting seaice
; Category: graphics seaice
; Notes: probably best to setup WMC's table (wmc_ct) first

openr,lun,/get,'$WMCDATA/sk-hice4.rgb'
tvlct,r,g,b,/get
readf,lun,r
readf,lun,g
readf,lun,b

ind=indgen(100)+1

tvlct,r(ind),g(ind),b(ind),17

end