function   netguiL7P20

f = figure('visible','off')
    set(f,'resize','off') % fix size figure          
    
    ax = axes('Units','pixels');
    surf(peaks)
    
    % Create pop up menu
    popup = uicontrol('style', 'popup',...
           'String', {'parula','jet','hsv','hot','cool','gray'},...
           'Position', [20 340 100 50],...
           'Callback', @setmap);    
    
   % Create push button for clear axes
    btn = uicontrol('style', 'pushbutton', 'String', 'Clear',...
        'Position', [20 20 50 20], 'Callback', 'cla');       
 
   % Create slider
    sld = uicontrol('Style', 'slider',...
        'Min',1,'Max',42.9,'Value',31,...    %  'Min',1,'Max',45,'Value',41,... 
        'Position', [400 20 120 20],...
        'Callback', @surfzlim); 
% Add a text uicontrol to label the slider
    txt = uicontrol('Style','text',...
        'Position',[400 45 120 20],...
        'String','Vertical Exaggeration');
    
  % Make figure visible after adding all components
    set(f,'Visible','on');  

function setmap(source,event)
         val = source.Value;
         maps =  source.String; 
         newmap = maps{val};
         colormap(newmap);
    end
 
    function surfzlim(source, event)
       val = 51 - source.Value;
        zlim(ax,[-val val]);
    end
end