PRO col_ind9,start
;+
; PRO col_ind,start
;put 9 colors in the col_table starting at 'start' (default=0,..,5)
;-
; Piero Rosati, modified by Frank Bertoldi
;
if n_elements(start) eq 0 then start=0
zred  =[0,1,1,0,0,1,1,0,1]*255
zgreen=[0,1,0,1,0,1,0,1,1]*255   & zgreen(5) = 150
zblue =[0,1,0,0,1,0,1,1,0]*255
if n_params() eq 1 then begin
 start=start<(!d.n_colors-9)
 tvlct,c1,c2,c3,/get		;get color table
 c1(start)=zred & c2(start)=zgreen & c3(start)=zblue
 tvlct,c1,c2,c3			;change color table
endif else tvlct,zred,zgreen,zblue
print,format='(" Color_index     color",/,"__________________________")' 
cols=["black","white","red","green","blue","orange","lila","l-blue","yellow"]
for i=0,8 do print,i+start,"         ",cols(i)
;
return
end