function [h0]=colorbartype1(pos,lev,lev_pas,clip_lev,hpal,orien);

% 30/10/97- NS: option "orien" pour positionner la barre verticalement
%               ou horizontalement--> 1 ou 0

if length(pos)>1
h0 = axes('Position',pos,'Box','on');
else
  h0=pos;
  axes(h0);
  set(h0,'Box','on');
end

ind_lev=find( lev>=(clip_lev(1)-eps) & (lev<=clip_lev(2)+eps) );
tab_lev=[lev(ind_lev);lev(ind_lev)];
%keyboard
% horizontale par defaut
if (nargin < 6), orien = 0; end 

if orien == 0,

    pcolor(tab_lev);
    set(h0,'xticklabel', '','yticklabel','');
    abs_bar=0:1/(length(ind_lev)-1):1;
    for j=1:lev_pas:length(ind_lev)
        s=num2str(lev(ind_lev(j)));
        text(abs_bar(j),-.5,s,'Fontsize', 9, 'HorizontalAlignment', ...
                              'Center', 'Units', 'normalized');
    end

else

    pcolor(tab_lev');
    set(h0,'xticklabel', '','yticklabel','');
    ord_bar=0:1/(length(ind_lev)-1):1;
    for j=1:lev_pas:length(ind_lev)
        s=num2str(lev(ind_lev(j)));
        text(1.5,ord_bar(j),s,'Fontsize', 9,'Units', 'normalized');
    end

end
colormap(hpal);
caxis(clip_lev);

