wolffd@0: function fig = som_show_gui(input,varargin)
wolffd@0: 
wolffd@0: %SOM_SHOW_GUI A GUI for using SOM_SHOW and associated functions.
wolffd@0: %
wolffd@0: %  h = som_show_gui(sM);
wolffd@0: %
wolffd@0: %  Input and output arguments:
wolffd@0: %    sM     (struct) a map struct: the SOM to visualize
wolffd@0: %    h      (scalar) a handle to the GUI figure
wolffd@0: %
wolffd@0: % This is a graphical user interface to make the usage of SOM_SHOW and
wolffd@0: % associated functions somewhat easier for beginning users of the SOM
wolffd@0: % Toolbox.
wolffd@0: %
wolffd@0: % How to use the GUI: 
wolffd@0: %  1. Start the GUI by giving command som_show_gui(sM);
wolffd@0: %  2. Build a list of visualization planes using the buttons 
wolffd@0: %     ('Add components', etc.) on the right 
wolffd@0: %     - the options associated with each of the planes can be 
wolffd@0: %       modified by selecting a plane from the list, and pressing
wolffd@0: %       the 'Plane options' button
wolffd@0: %     - the controls below the list apply to all planes
wolffd@0: %     - the subplot grid size can be controlled using the 'subplots'
wolffd@0: %       field on top right corner, e.g. '4 3' to get 4 times 3 grid
wolffd@0: %  3. To visualize the planes, press the 'Visualize' button on the bottom.
wolffd@0: %  4. To add hits, labels, trajectories (or comets) to the 
wolffd@0: %     visualization, or clear them, or reset the colorbars, 
wolffd@0: %     see the tools available from the 'Tools' menu. 
wolffd@0: %     - the arguments to those tools are either given in the tool, 
wolffd@0: %       or read from the workspace ('Select variable' buttons)
wolffd@0: %     - the tools always apply to the latest figure created
wolffd@0: %       by the GUI
wolffd@0: %  5. To quit, press the 'Close' button on the bottom.
wolffd@0: %
wolffd@0: % Known bugs:
wolffd@0: %  - Especially when using the adding tools, you can easily 
wolffd@0: %    give arguments which do not fit each other, and this 
wolffd@0: %    results in a lengthy (and often cryptic) error message.
wolffd@0: %    In such a case, check the arguments you are giving to see
wolffd@0: %    if there's something wrong with them. See function 
wolffd@0: %    SOM_SHOW_ADD for more information on how the options 
wolffd@0: %    can be set.
wolffd@0: %  - The default values in the adding tools may not be 
wolffd@0: %    very reasonable: you may have to try out different 
wolffd@0: %    values for e.g. markersize before getting the kind of
wolffd@0: %    result you want.
wolffd@0: % 
wolffd@0: % SOM_SHOW_GUI has two subfunctions: VIS_SHOW_GUI_COMP and 
wolffd@0: % VIS_SHOW_GUI_TOOL. These are for internal use of SOM_SHOW_GUI.
wolffd@0: %
wolffd@0: % See also SOM_SHOW, SOM_SHOW_ADD, SOM_SHOW_CLEAR, SOM_RECOLORBAR.
wolffd@0: 
wolffd@0: % Copyright (c) 2000 by Roman Feldman and Juha Vesanto
wolffd@0: % Contributed to SOM Toolbox on August 22nd, 2000
wolffd@0: % http://www.cis.hut.fi/projects/somtoolbox/
wolffd@0:  
wolffd@0: % Version 2.0beta roman 160800 juuso 220800
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %                                    MAIN                                   %
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: 
wolffd@0: warning off;
wolffd@0: if (nargin < 1)
wolffd@0:   errordlg({'Make sure you have SOM as input argument'; ''; ...
wolffd@0:             'example: som_show_gui(sMap)'},'Error in SOM_VIS: input arguments');
wolffd@0:   return
wolffd@0: end
wolffd@0: 
wolffd@0: if isstruct(input)
wolffd@0:   fig_h = create_main_gui(input);
wolffd@0:   if (nargout > 0) fig = fig_h; end
wolffd@0:   return;
wolffd@0: 
wolffd@0: elseif ischar(input)
wolffd@0:   action = lower(input);
wolffd@0: 
wolffd@0:   % 
wolffd@0:   udata = get(varargin{1},'UserData');
wolffd@0:   plot_array = udata.plot_array;
wolffd@0:   l = length(plot_array);
wolffd@0:   list1_h = udata.h(1);
wolffd@0: 
wolffd@0:   if (strcmp(action,''))
wolffd@0:     errordlg('','Error in SOM_VIS: input arguments');
wolffd@0:     return;
wolffd@0: 
wolffd@0:   %%%%%%%%%%%%%%%%%%%%
wolffd@0:   % add_selected_comp
wolffd@0:   %
wolffd@0:   elseif (strcmp(action,'add_selected_comp'))
wolffd@0:     if isempty(plot_array(1).string), tmp = 1; else tmp = l+1; end 
wolffd@0:     [sel,ok] = listdlg('ListString',udata.sM.comp_names,...
wolffd@0:                        'Name','Component selection',...
wolffd@0:                        'PromptString','Select components to add');  
wolffd@0:     if ok & ~isempty(sel), 
wolffd@0:       for i=1:length(sel),
wolffd@0:         plot_array(tmp+i-1).string = udata.sM.comp_names{sel(i)}; 
wolffd@0:         plot_array(tmp+i-1).args = {'comp' sel(i)};
wolffd@0:         udata.property{tmp+i-1} = {0};
wolffd@0:       end      
wolffd@0:       set(list1_h,'Value',tmp+i-1, ...
wolffd@0:                   'String',{plot_array(:).string});
wolffd@0:     end
wolffd@0: 
wolffd@0:     udata.plot_array = plot_array;
wolffd@0:     set(varargin{1},'UserData',udata);
wolffd@0: 
wolffd@0:   %%%%%%%%%%%%%%%%%%%%
wolffd@0:   % add_all_comps
wolffd@0:   %
wolffd@0:   elseif (strcmp(action,'add_all_comps'))
wolffd@0:     if (strcmp(plot_array(1).string,''))
wolffd@0:       tmp = 1;
wolffd@0:     else
wolffd@0:       tmp = l+1;
wolffd@0:     end
wolffd@0:     indx = length(udata.sM.comp_names);
wolffd@0:     for (i=1:indx)
wolffd@0:       plot_array(tmp+i-1).string = udata.sM.comp_names{i};
wolffd@0:       plot_array(tmp+i-1).args = {'comp' i};
wolffd@0:       udata.property{tmp+i-1} = {0};
wolffd@0:     end	
wolffd@0:     % update list
wolffd@0:     set(list1_h,'Value',tmp+indx-1, ...
wolffd@0:                 'String',{plot_array(:).string});
wolffd@0: 
wolffd@0:     udata.plot_array = plot_array;
wolffd@0:     set(varargin{1},'UserData',udata);
wolffd@0: 
wolffd@0:   %%%%%%%%%%%%%%%%%%%%
wolffd@0:   % add_u_matrix
wolffd@0:   %
wolffd@0:   elseif (strcmp(action,'add_u_matrix'))
wolffd@0:     if (strcmp(plot_array(1).string,''))
wolffd@0:       tmp = 1;
wolffd@0:     else
wolffd@0:       tmp = l+1;
wolffd@0:     end
wolffd@0:     plot_array(tmp).string = 'U-matrix';
wolffd@0:     plot_array(tmp).args = {'umat' 'all'};
wolffd@0:     udata.property{tmp} = {0 'U-matrix' 1:length(udata.sM.comp_names)};
wolffd@0:     % update list
wolffd@0:     set(list1_h,'Value',tmp, ...
wolffd@0:                 'String',{plot_array(:).string});
wolffd@0: 
wolffd@0:     udata.plot_array = plot_array;
wolffd@0:     set(varargin{1},'UserData',udata);
wolffd@0: 
wolffd@0:   %%%%%%%%%%%%%%%%%%%%
wolffd@0:   % add_colorplane
wolffd@0:   %
wolffd@0:   elseif (strcmp(action,'add_colorplane'))
wolffd@0:     if (strcmp(plot_array(1).string,''))
wolffd@0:       tmp = 1;
wolffd@0:     else
wolffd@0:       tmp = l+1;
wolffd@0:     end
wolffd@0:     plot_array(tmp).string = 'color plane';
wolffd@0:     c = som_colorcode(udata.sM);
wolffd@0:     plot_array(tmp).args = {'color' c};
wolffd@0:     udata.property{tmp} = {0 'Color code' {'rgb1' 'rgb2' 'rgb3' 'rgb4' 'hsv' '-variable-'} 1};
wolffd@0:     % update list
wolffd@0:     set(list1_h,'Value',tmp, ...
wolffd@0:                 'String',{plot_array(:).string});
wolffd@0: 
wolffd@0:     udata.plot_array = plot_array;
wolffd@0:     set(varargin{1},'UserData',udata);
wolffd@0: 
wolffd@0:   %%%%%%%%%%%%%%%%%%%%
wolffd@0:   % add_empty
wolffd@0:   %
wolffd@0:   elseif (strcmp(action,'add_empty'))
wolffd@0:     if (strcmp(plot_array(1).string,''))
wolffd@0:       tmp = 1;
wolffd@0:     else
wolffd@0:       tmp = l+1;
wolffd@0:     end
wolffd@0:     plot_array(tmp).string = 'empty plane';
wolffd@0:     plot_array(tmp).args = {'empty' ''};
wolffd@0:     udata.property{tmp} = {''};
wolffd@0:     % update list
wolffd@0:     set(list1_h,'Value',tmp, ...
wolffd@0:                 'String',{plot_array(:).string});
wolffd@0: 
wolffd@0:     udata.plot_array = plot_array;
wolffd@0:     set(varargin{1},'UserData',udata);
wolffd@0: 
wolffd@0:   %%%%%%%%%%%%%%%%%%%%
wolffd@0:   % remove
wolffd@0:   %
wolffd@0:   elseif (strcmp(action,'remove'))
wolffd@0:     rm_indx = get(list1_h,'Value');
wolffd@0:     rm_l = length(rm_indx);
wolffd@0:     % rebuild array
wolffd@0:     incl_inds = setdiff(1:length(plot_array),rm_indx);
wolffd@0:     if isempty(incl_inds), 
wolffd@0:       clear plot_array;
wolffd@0:       plot_array(1).args = {};
wolffd@0:       plot_array(1).string = '';
wolffd@0:       udata.property = {};
wolffd@0:       udata.property{1} = {};
wolffd@0:     else
wolffd@0:       plot_array = plot_array(incl_inds);
wolffd@0:       udata.property = udata.property(incl_inds);
wolffd@0:     end
wolffd@0:     set(list1_h,'Value',length(plot_array), ...
wolffd@0:                 'String',{plot_array(:).string});
wolffd@0: 
wolffd@0:     udata.plot_array = plot_array;
wolffd@0:     set(varargin{1},'UserData',udata);
wolffd@0: 
wolffd@0:   %%%%%%%%%%%%%%%%%%%%
wolffd@0:   % remove_all
wolffd@0:   %
wolffd@0:   elseif (strcmp(action,'remove_all'))
wolffd@0:     plot_array = [];
wolffd@0:     plot_array(1).args = {};
wolffd@0:     plot_array(1).string = '';
wolffd@0:     udata.property = {};
wolffd@0:     set(list1_h,'Value',1, ...
wolffd@0:                 'String',{plot_array(:).string});
wolffd@0: 
wolffd@0:     udata.plot_array = plot_array;
wolffd@0:     set(varargin{1},'UserData',udata);
wolffd@0: 
wolffd@0:   %%%%%%%%%%%%%%%%%%%%
wolffd@0:   % more_options
wolffd@0:   %
wolffd@0:   elseif (strcmp(action,'more_options'))
wolffd@0:     vis_show_gui_comp(varargin{1},get(list1_h,'Value'),'init');
wolffd@0: 
wolffd@0:   %%%%%%%%%%%%%%%%%%%%
wolffd@0:   % close
wolffd@0:   %
wolffd@0:   elseif (strcmp(action,'close'))
wolffd@0:     close(varargin{1});
wolffd@0: 
wolffd@0:   %%%%%%%%%%%%%%%%%%%%
wolffd@0:   % visualize
wolffd@0:   %
wolffd@0:   elseif (strcmp(action,'visualize'))     %% s = {k k.^2}; plot(s{:});
wolffd@0:     current_fig = varargin{1}; 
wolffd@0:     figure;
wolffd@0:     args = [{udata.sM} plot_array(:).args];
wolffd@0:     % edge
wolffd@0:     tmp = get(udata.h(2),'UserData');
wolffd@0:     i = get(udata.h(2),'Value');
wolffd@0:     args = [args {'edge' tmp{i}}];
wolffd@0:     % bar
wolffd@0:     tmp = get(udata.h(3),'UserData');
wolffd@0:     i = get(udata.h(3),'Value');
wolffd@0:     args = [args {'bar' tmp{i}}];
wolffd@0:     % norm
wolffd@0:     tmp = get(udata.h(4),'UserData');
wolffd@0:     i = get(udata.h(4),'Value');
wolffd@0:     args = [args {'norm' tmp{i}}];
wolffd@0:     % size
wolffd@0:     tmp = get(udata.h(5),'String');
wolffd@0:     args = [args {'size' eval(tmp)}];
wolffd@0:     % colormap
wolffd@0:     tmp = get(udata.h(6),'String');
wolffd@0:     if ~isempty(tmp)
wolffd@0:       args = [args {'colormap' eval(tmp)}];
wolffd@0:     end
wolffd@0:     % footnote
wolffd@0:     tmp = get(udata.h(7),'String');
wolffd@0:     args = [args {'footnote' tmp}];
wolffd@0:     % subplots
wolffd@0:     tmp = get(udata.h(8),'String');
wolffd@0:     if ~(strcmp(tmp,'default') | isempty(tmp))
wolffd@0:       tmp2 = sscanf(tmp,'%i %i');
wolffd@0:       if length(tmp2)<2, tmp2 = sscanf(tmp,'%ix%i'); end
wolffd@0:       if length(tmp2)<2, tmp = eval(tmp);
wolffd@0:       else tmp = tmp2';
wolffd@0:       end
wolffd@0:       if length(tmp)<2, tmp(2) = 1; end
wolffd@0:       if tmp(1)*tmp(2)<length(get(udata.h(1),'string')),
wolffd@0:         close(varargin{1});
wolffd@0:         errordlg('Too small subplot size', ...
wolffd@0:                  'Error in SOM_VIS: subplot size');
wolffd@0:         return;
wolffd@0:       end
wolffd@0:       args = [args {'subplots' tmp}];
wolffd@0:     end
wolffd@0: 
wolffd@0:     som_show(args{:});
wolffd@0: 
wolffd@0:     % udata.vis_h = varargin{1};
wolffd@0:     %  first refresh plot info
wolffd@0:     udata.vis_h = setdiff( ...
wolffd@0:                     udata.vis_h, ...
wolffd@0:                     setdiff(udata.vis_h,get(0,'children')));
wolffd@0:     udata.vis_h = [udata.vis_h gcf];
wolffd@0:     set(current_fig,'UserData',udata);
wolffd@0: 
wolffd@0:   else
wolffd@0:     ;
wolffd@0:   end
wolffd@0: 
wolffd@0: else
wolffd@0:   errordlg({'Make sure you have SOM as input argument'; ''; ...
wolffd@0:             'example: som_show_gui(sMap)'},'Error in SOM_VIS: input arguments');
wolffd@0: end
wolffd@0: 
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: % ----------------------        SUBFUNCTIONS       -----------------------  %
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: 
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %                              CREATE_MAIN_GUI                              %
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: 
wolffd@0: function fig_h = create_main_gui(sM)
wolffd@0: 
wolffd@0: oldFigNumber=watchon;
wolffd@0: 
wolffd@0: % init variables
wolffd@0: FIGURENAME = 'SOM_SHOW_GUI';
wolffd@0: plot_array = [];
wolffd@0: plot_array(1).args = {};
wolffd@0: plot_array(1).string = '';
wolffd@0: 
wolffd@0: % colors
wolffd@0: fig_color = [0.8 0.8 0.8];
wolffd@0: bg_color1 = [0.701960784313725 0.701960784313725 0.701960784313725];
wolffd@0: bg_color2 = [0.9 0.9 0.9];
wolffd@0: 
wolffd@0: %%%%  positions  %%%%%
wolffd@0: %---------  figure
wolffd@0: fig_i =            [0.02 0.25];
wolffd@0: fig_s =            [0.24 0.55];
wolffd@0: %---------  
wolffd@0: ue = 0.02;
wolffd@0: th = 0.03;
wolffd@0: hint_text_pos =                [0.05 0.94 0.8 th];
wolffd@0: big_frame_pos =                [ue 0.38 (1-2*ue) 0.56];
wolffd@0: planes_listbox_text_pos =      [0.07 0.87 0.3 th];
wolffd@0: planes_listbox_pos =           [(ue+0.03) 0.395 0.46 0.47];
wolffd@0: subplots_text_pos =            [0.53 0.885 0.2 th];
wolffd@0: subplots_pos =                 [0.73 0.88 0.22 0.05];  ah = 0.045; d = (planes_listbox_pos(4) - 10*ah)/7;
wolffd@0: add_components_pos =           [0.53 (sum(planes_listbox_pos([2 4]))-ah) 0.42 ah]; tmp = add_components_pos(2)-(d+ah);
wolffd@0: add_all_components_pos =       [0.53 tmp 0.42 ah]; tmp = add_all_components_pos(2)-(d+ah);
wolffd@0: add_u_matrix_pos =             [0.53 tmp 0.42 ah]; tmp = add_u_matrix_pos(2)-(d+ah);
wolffd@0: add_colorplane_pos =           [0.53 tmp 0.42 ah]; tmp = add_colorplane_pos(2)-(d+ah);
wolffd@0: add_empty_pos =                [0.53 tmp 0.42 ah]; tmp = add_empty_pos(2)-2*(d+ah)+d;
wolffd@0: remove_pos =                   [0.53 tmp 0.42 ah]; tmp = remove_pos(2)-(d+ah);
wolffd@0: remove_all_pos =               [0.53 tmp 0.42 ah]; tmp = remove_all_pos(2)-2*(d+ah)+d;
wolffd@0: plane_options_pos =            [0.53 tmp 0.42 ah]; 
wolffd@0: ph = 0.041;
wolffd@0: dd = (ph-th)/2;
wolffd@0: tmp = big_frame_pos(2) - (planes_listbox_pos(2)-big_frame_pos(2)) - ph;
wolffd@0: ie1 = 0.25;
wolffd@0: tw = 0.21;
wolffd@0: iw = 0.28;
wolffd@0: unit_edges_text_pos =          [ue (tmp+dd) tw th];
wolffd@0: unit_edges_pos =               [ie1 tmp iw ph]; tmp = unit_edges_pos(2)-(d+ph) - d;
wolffd@0: unit_sizes_text_pos =          [ue (tmp+dd) tw th];
wolffd@0: unit_sizes_pos =               [ie1 tmp iw ph]; tmp = unit_sizes_pos(2)-(d+ph) - d;
wolffd@0: colorbar_dir_text_pos =        [ue (tmp+dd) tw th];
wolffd@0: colorbar_dir_pos =             [ie1 tmp iw ph]; tmp2 = sum(colorbar_dir_pos([1 3]));
wolffd@0: colorbar_norm_text_pos =       [(tmp2) (tmp+dd) 0.11 th];
wolffd@0: colorbar_norm_pos =            [(1-ue-(iw+0.06)) tmp (iw+0.06) ph]; tmp = colorbar_norm_pos(2)-(d+ph) - d;
wolffd@0: colormap_text_pos =            [ue (tmp+dd) tw th];
wolffd@0: colormap_pos =                 [ie1 tmp iw ph]; tmp = colormap_pos(2)-(d+ph) - d;
wolffd@0: footnote_text_pos =            [ue (tmp+dd) tw th]; 
wolffd@0: footnote_pos =                 [ie1 tmp (1-ue-ie1) ph];
wolffd@0: tmp = planes_listbox_pos(2)-big_frame_pos(2);
wolffd@0: tmp2 = ah+2*tmp;
wolffd@0: little_frame_pos =             [ue tmp (1-2*ue) tmp2]; tmp2 = little_frame_pos(2)+tmp;
wolffd@0: ddd = 0.1;
wolffd@0: bw = (little_frame_pos(3)-2*0.03-ddd)/2;
wolffd@0: visualize_pos =                [(ue+0.03) tmp2 bw ah];
wolffd@0: close_pos =                    [(sum(visualize_pos([1 3]))+ddd) tmp2 bw ah];
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %  main figure
wolffd@0: %
wolffd@0: fig_h = figure( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'Color',fig_color, ...
wolffd@0:   'PaperPosition',[18 180 576 432], ...
wolffd@0:   'PaperType','A4', ...
wolffd@0:   'PaperUnits','normalized', ...
wolffd@0:   'Position',[fig_i fig_s], ...
wolffd@0:   'ToolBar','none', ...
wolffd@0:   'NumberTitle','off', ...
wolffd@0:   'Name',FIGURENAME, ...
wolffd@0:   'Visible','off');
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %  hint text
wolffd@0: %
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'BackgroundColor',fig_color, ...
wolffd@0:   'HorizontalAlignment','left', ...
wolffd@0:   'Position',hint_text_pos, ...
wolffd@0:   'String','Add planes and then visualize', ...
wolffd@0:   'Style','text');
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %  planes listbox
wolffd@0: %
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'Position',big_frame_pos, ...
wolffd@0:   'Style','frame');
wolffd@0: 
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'BackgroundColor',bg_color1, ...
wolffd@0:   'HorizontalAlignment','left', ...
wolffd@0:   'Position',planes_listbox_text_pos, ...
wolffd@0:   'String','Planes', ...
wolffd@0:   'Style','text');
wolffd@0: 
wolffd@0: list1_h = uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'BackgroundColor',bg_color2, ...
wolffd@0:   'Position',planes_listbox_pos, ...
wolffd@0:   'String',{plot_array(:).string}, ...
wolffd@0:   'Style','listbox', ...
wolffd@0:   'Max',2, ...
wolffd@0:   'Value',1);
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: % edit subplots
wolffd@0: %
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'BackgroundColor',bg_color1, ...
wolffd@0:   'HorizontalAlignment','center', ...
wolffd@0:   'Position',subplots_text_pos, ...
wolffd@0:   'String','subplots', ...
wolffd@0:   'Style','text');
wolffd@0: 
wolffd@0: edit4_h = uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'BackgroundColor',bg_color2, ...
wolffd@0:   'Position',subplots_pos, ...
wolffd@0:   'FontSize',14, ...
wolffd@0:   'String','', ...
wolffd@0:   'Style','edit');
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %  pushbutton 'Add components'
wolffd@0: %
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'BackgroundColor',bg_color1, ...
wolffd@0:   'HorizontalAlignment','left', ...
wolffd@0:   'Position',add_components_pos, ...
wolffd@0:   'String',' Add components', ...
wolffd@0:   'Callback',['som_show_gui(''add_selected_comp'',' mat2str(gcf) ')']);
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %  pushbutton 'Add all components'
wolffd@0: %
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'HorizontalAlignment','left', ...
wolffd@0:   'Position',add_all_components_pos, ...
wolffd@0:   'String',' Add all components', ...
wolffd@0:   'Callback',['som_show_gui(''add_all_comps'',' mat2str(gcf) ')']);
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %  pushbutton 'Add U-matrix'
wolffd@0: %
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'HorizontalAlignment','left', ...
wolffd@0:   'Position',add_u_matrix_pos, ...
wolffd@0:   'String',' Add U-matrix', ...
wolffd@0:   'Callback',['som_show_gui(''add_u_matrix'',' mat2str(gcf) ')']);
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %  pushbutton 'Add colorplane'
wolffd@0: %
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'HorizontalAlignment','left', ...
wolffd@0:   'Position',add_colorplane_pos, ...
wolffd@0:   'String',' Add colorplane', ...
wolffd@0:   'Callback',['som_show_gui(''add_colorplane'',' mat2str(gcf) ')']);
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %  pushbutton 'Add empty'
wolffd@0: %
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'HorizontalAlignment','left', ...
wolffd@0:   'Position',add_empty_pos, ...
wolffd@0:   'String',' Add empty', ...
wolffd@0:   'Callback',['som_show_gui(''add_empty'',' mat2str(gcf) ')']);
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %  pushbutton 'Remove'
wolffd@0: %
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'HorizontalAlignment','left', ...
wolffd@0:   'Position',remove_pos, ...
wolffd@0:   'String',' Remove', ...
wolffd@0:   'Callback',['som_show_gui(''remove'',' mat2str(gcf) ')']);
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: % creat pushbutton 'Remove all'
wolffd@0: %
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'BackgroundColor',bg_color1, ...
wolffd@0:   'HorizontalAlignment','left', ...
wolffd@0:   'Position',remove_all_pos, ...
wolffd@0:   'String',' Remove all', ...
wolffd@0:   'Callback',['som_show_gui(''remove_all'',' mat2str(gcf) ')']);
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %  pushbutton 'Plane options'
wolffd@0: %
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'Position',plane_options_pos, ...
wolffd@0:   'String',' Plane options', ...
wolffd@0:   'Callback',['som_show_gui(''more_options'',' mat2str(gcf) ')']);
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %  popupmenu unitedges
wolffd@0: %
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'BackgroundColor',fig_color, ...
wolffd@0:   'HorizontalAlignment','left', ...
wolffd@0:   'Position',unit_edges_text_pos, ...
wolffd@0:   'String','unit edges are', ...
wolffd@0:   'Style','text');
wolffd@0: 
wolffd@0: popup1_h = uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'Max',2, ...
wolffd@0:   'Min',1, ...
wolffd@0:   'Position',unit_edges_pos, ...
wolffd@0:   'UserData',{'off' 'on'}, ...
wolffd@0:   'String',{'off' 'on'}, ...
wolffd@0:   'Style','popupmenu', ...
wolffd@0:   'Value',1);
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %  unit sizes edit
wolffd@0: %
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'BackgroundColor',fig_color, ...
wolffd@0:   'HorizontalAlignment','left', ...
wolffd@0:   'Position',unit_sizes_text_pos, ...
wolffd@0:   'String','unit sizes', ...
wolffd@0:   'Style','text');
wolffd@0: 
wolffd@0: edit1_h = uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'BackgroundColor',bg_color2, ...
wolffd@0:   'Position',unit_sizes_pos, ...
wolffd@0:   'FontSize',12, ...
wolffd@0:   'String','1', ...
wolffd@0:   'Style','edit');
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %  popupmenu colorbardir
wolffd@0: %
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'BackgroundColor',fig_color, ...
wolffd@0:   'HorizontalAlignment','left', ...
wolffd@0:   'Position',colorbar_dir_text_pos, ...
wolffd@0:   'String','colorbar is', ...
wolffd@0:   'Style','text');
wolffd@0: 
wolffd@0: popup2_h = uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'Max',3, ...
wolffd@0:   'Min',1, ...
wolffd@0:   'Position',colorbar_dir_pos, ...
wolffd@0:   'UserData', {'vert' 'horiz' 'none'}, ...
wolffd@0:   'String','vert| horiz| none', ...
wolffd@0:   'Style','popupmenu', ...
wolffd@0:   'Value',1);
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %  popupmenu colorbarnorm
wolffd@0: %
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'BackgroundColor',fig_color, ...
wolffd@0:   'HorizontalAlignment','left', ...
wolffd@0:   'Position',colorbar_norm_text_pos, ...
wolffd@0:   'String',' and  ', ...
wolffd@0:   'Style','text');
wolffd@0: 
wolffd@0: popup3_h = uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'Max',2, ...
wolffd@0:   'Min',1, ...
wolffd@0:   'Position',colorbar_norm_pos, ...
wolffd@0:   'UserData', {'d' 'n'}, ...
wolffd@0:   'String',{'denormalized','normalized'}, ...
wolffd@0:   'Style','popupmenu', ...
wolffd@0:   'Value',1);
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %  colormap edittext
wolffd@0: %
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'BackgroundColor',fig_color, ...
wolffd@0:   'HorizontalAlignment','left', ...
wolffd@0:   'Position',colormap_text_pos, ...
wolffd@0:   'String','colormap', ...
wolffd@0:   'Style','text');
wolffd@0: 
wolffd@0: edit2_h = uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'BackgroundColor',bg_color2, ...
wolffd@0:   'Position',colormap_pos, ...
wolffd@0:   'FontSize',12, ...
wolffd@0:   'String','', ...
wolffd@0:   'Style','edit');
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %  footnote edittext
wolffd@0: %
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'BackgroundColor',fig_color, ...
wolffd@0:   'HorizontalAlignment','left', ...
wolffd@0:   'Position',footnote_text_pos, ...
wolffd@0:   'String','footnote', ...
wolffd@0:   'Style','text');
wolffd@0: 
wolffd@0: edit3_h = uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'BackgroundColor',bg_color2, ...
wolffd@0:   'Position',footnote_pos, ...
wolffd@0:   'FontSize',12, ...
wolffd@0:   'String',sM.name, ...
wolffd@0:   'Style','edit');
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %  pushbutton 'Visualize'
wolffd@0: %
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'Position',little_frame_pos, ...
wolffd@0:   'Style','frame');
wolffd@0: 
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'Position',visualize_pos, ...
wolffd@0:   'String','Visualize', ...
wolffd@0:   'Callback',['som_show_gui(''visualize'',' mat2str(gcf) ')']);
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: %  pushbutton 'Close'
wolffd@0: %
wolffd@0: uicontrol( ...
wolffd@0:   'Units','normalized', ...
wolffd@0:   'BackgroundColor',bg_color1, ...
wolffd@0:   'Position',close_pos, ...
wolffd@0:   'String','Close', ...
wolffd@0:   'Callback',['som_show_gui(''close'',' mat2str(gcf) ')']);
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: % menus
wolffd@0: %
wolffd@0: uimenu('Parent',fig_h','Label','    ','Enable','off');
wolffd@0: m = uimenu('Parent',fig_h,'Label','Tools');
wolffd@0:  a = uimenu('Parent',m,'Label','Add');
wolffd@0:   s = strcat('vis_show_gui_tool(',mat2str(gcf),',''add_label'')');
wolffd@0:   uimenu('Parent',a,'Label','label','Callback',s);
wolffd@0:   s = strcat('vis_show_gui_tool(',mat2str(gcf),',''add_hit'')');
wolffd@0:   uimenu('Parent',a,'Label','hit','Callback',s);
wolffd@0:   s = strcat('vis_show_gui_tool(',mat2str(gcf),',''add_traj'')');
wolffd@0:   uimenu('Parent',a,'Label','traj','Callback',s);
wolffd@0:   s = strcat('vis_show_gui_tool(',mat2str(gcf),',''add_comet'')');
wolffd@0:   uimenu('Parent',a,'Label','comet','Callback',s);
wolffd@0:  s = ['vis_show_gui_tool(',mat2str(gcf),',''clear'')'];
wolffd@0:  c = uimenu('Parent',m,'Label','Clear','Separator','on','callback',s);
wolffd@0:  s = strcat('vis_show_gui_tool(',mat2str(gcf),',''recolorbar'')');
wolffd@0:  r = uimenu('Parent',m,'Label','Recolorbar','Separator','on', ...
wolffd@0:   'Callback',s);
wolffd@0: 
wolffd@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
wolffd@0: % end
wolffd@0: %
wolffd@0: 
wolffd@0: ud.sM = sM;
wolffd@0: ud.plot_array = plot_array;
wolffd@0: ud.property = {};
wolffd@0: ud.vis_h = [];
wolffd@0: ud.h = [list1_h popup1_h popup2_h popup3_h ...
wolffd@0:         edit1_h edit2_h edit3_h edit4_h];
wolffd@0: 
wolffd@0: watchoff(oldFigNumber);
wolffd@0: set(fig_h,'Visible','on', ...
wolffd@0:           'UserData', ud, ...
wolffd@0:           'handlevisibility','off');
wolffd@0: