%  _______  Creating :  Bar - 3D - Graphic ___________
%  _______________________________________
%  _________  mit  :   " meshgrid " __________________

clear all; clf; close all;

figure(1)
subplot(1,2,1); 
     [x,y]=meshgrid(0:6, 0:10);
     z= sin(x) .* cos(y/2);
     bar3(z);
    pause(2)
    set(gca, 'color', 'none', 'xcolor', 'k', 'xgrid', 'off', 'ycolor','k', 'ygrid','off');
    set(gca,'Xcolor','r' , 'Ycolor' , 'y' , 'GridlineStyle', ':' , 'LineWidth' , 3)

subplot(122)
     HB = stem3(z, 'c*', 'filled')
   set(HB, 'linewidth', 2, 'markersize', 10)
     pause(2)
     set(gca, 'color', 'none', 'xcolor', 'k', 'xgrid', 'off', 'ycolor','k', 'ygrid','off');
    set(gca,'Xcolor','r' , 'Ycolor' , 'y' , 'GridlineStyle', ':' , 'LineWidth' , 3)
    set(gcf,'color','k');
pause(2)
    
     w = 12;                                                          % Number of colors in color table
     c =  colormap(hsv);
col = {'r','g','b','c','m','y'};

figure(2)
subplot(111)
     X = 1:5;
     for k = 1:5,
         % col = {colormap(hsv(k)) };                   % Expand the previous colormap
          Y = k*ones(size(X)); 
          stem3(X,Y, H(k, :), 'filled', col{k});          %  >>  change to  "scatter3" <<
          hold on;
     end