%  _______  Creating :   3D - bar  & stem3 -   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')                                      % >  Farben  anpassen wie bei "bar3"
   set(HB, 'linewidth', 2, 'markersize', 10)
     pause(1)
     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(1)
    % ___________________________________________________________

    hold on 
map = colormap(jet(7)); 

for ind = 1 : size(x, 2) 
  HB = stem3(x(:,ind),y(:,ind),z(:,ind), 'c*', 'filled', 'color', map(ind,:));   
    set(HB, 'linewidth', 2, 'markersize', 10) 
end 
pause(1) 

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'); 
view(3)