vis_show_gui_comp.m

it is matlab code , som(slef organizing map) tool for matlab

      o10 = o7+dist1;
      o11 = o10+(title_edit_h-title_txt(2))/2;
    end
    o12 = ok_pb(1)+title_txt(1);
    o13 = o7+o8+hint_dist1;
    hint_text_pos = [1 o13 hint_txt];
    frame1_pos = [f_fr(1) o7 f_fr(3) o8];
    title_text_pos = [ok_pb(1) o10 title_txt];
    title_pos = [o12 o11 o9 title_edit_h];
    frame2_pos = [f_fr(1) o4 f_fr(3) o6];
    interp_pos = [ok_pb(1) o5 interp_cb];
    frame3_pos = [f_fr(1) o1 f_fr(3) o3];
    popup_pos = [ok_pb(1) o2 var_pop];
    frame4_pos = f_fr;
    ok_pos = ok_pb;
    cancel_pos = cancel_pb;
        
    fig_h = figure( ...
      'Units','pixels', ...
      'Position',fig_pos, ...
      'Color',fig_color, ...
      'NumberTitle','off', ...
      'Name','color plane', ...
      'MenuBar','none', ...
      'Visible','off');

    set( ...
    uicontrol( ...                                                            %% hint
      'Units','pixels', ...
      'BackgroundColor',fig_color, ...
      'HorizontalAlignment','center', ...
      'Position',hint_text_pos, ...
      'String','Options for colorplane', ...
      'Style','text'),'units','normalized');

    set( ...
    uicontrol( ...                                                            %% [frame]
      'Units','pixels', ...
      'Position',frame1_pos, ...
      'Style','frame'),'units','normalized');

    set( ...
    uicontrol( ...                                                            %% title
      'Units','pixels', ...
      'Position',title_text_pos, ...
      'HorizontalAlignment','left', ...
      'Style','text', ...
      'String','Title'),'units','normalized');

    pr = udata.property{indx};
    ed_h =  uicontrol( ...                                                    %% [edit]
      'Units','pixels', ...
      'Position',title_pos, ...
      'FontSize',12, ...
      'Style','edit', ...
      'String',pr{2}, ...
      'BackgroundColor',bg_color2);
    set(ed_h,'units','normalized');

    set( ...
    uicontrol( ...                                                            %% [frame]
      'Units','pixels', ...
      'Position',frame2_pos, ...
      'Style','frame'),'units','normalized');

    chkb_h =  uicontrol(  ...                                                 %% interpolated
      'Units','pixels', ...
      'Position',interp_pos, ...
      'Style','checkbox', ...
      'String','interpolated', ...
      'Value',pr{1});
    set(chkb_h,'units','normalized');

    set( ...
    uicontrol( ...                                                            %% [frame]
      'Units','pixels', ...
      'Position',frame3_pos, ...
      'Style','frame'),'units','normalized');

    popup1_h = uicontrol( ...                                                 %% [popup]
      'Units','pixels', ...
      'Max',2, ...
      'Min',1, ...
      'Position',popup_pos, ...
      'String',pr{3}, ...
      'Style','popupmenu', ...
      'Value',pr{4});
    s = ['tmp=get(' mat2str(fig_h) ',''userdata'');' ...
         'vis_show_gui_tool([tmp(3) 6],''popup_select'');' ...
         'u=get(' mat2str(h) ',''UserData'');' ...
         'v=' mat2str(indx) ';' ...
         'pr=u.property{v};' ...
         'pr{3}=get(tmp(3),''string'');' ...
         'pr{4}=get(tmp(3),''value'');' ...
         'u.property{v}=pr;' ...
         'set(' mat2str(h) ',''userdata'',u)'];
    set(popup1_h,'units','normalized', ...
                 'Callback',s);

    set( ...
    uicontrol( ...                                                            %% [frame]
      'Units','pixels', ...
      'Position',frame4_pos, ...
      'Style','frame'),'units','normalized');

    s = ['vis_show_gui_comp(', ...
         mat2str(h), ',', mat2str(indx), ...
         ',''color'',' mat2str(fig_h) ')'];
    set( ...
    uicontrol( ...                                                            %% OK
      'Units','pixels', ...
      'Position',ok_pos, ...
      'String','OK', ...
      'Callback',s),'units','normalized');

    set( ...
    uicontrol( ...                                                            %% Cancel
      'Units','pixels', ...
      'Position',cancel_pos, ...
      'String','Cancel', ...
      'Callback',['close(' mat2str(fig_h) ')']),'units','normalized');

    watchoff(old_fig_n);
    tmp_udata = [chkb_h ed_h popup1_h];
    set(fig_h,'units','normalized', ...
	      'Visible','on', ...
              'UserData', tmp_udata, ...
              'handlevisibility','off');

  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  % 'empty'
  %
  elseif (strncmp('empty',plot_array(indx).args{1},5))
    old_fig_n = watchon;
    W = 230; H = 121.483;
    units = get(h,'units');
    set(h,'units','pixels');
    fp = get(h,'Position');
    fig_pos = [(fp(1)+fp(3)) ...
               (fp(2)+fp(2)+fp(4)/2-H/2) ...
               W ...
               H]; 
    o1 = sum(f_fr([2 4]))+frames_dist;
    o2 = 2*dist1+max(title_edit_h,title_txt(2));
    o3 = 2*dist1+interp_cb(2);
    o4 = W-(title_txt(1)+2*ok_pb(1));
    o5 = o1+dist1+(title_edit_h-title_txt(2))/2;
    o6 = o1+dist1;
    if title_txt(2)>title_edit_h,
      o5 = o1+dist1;
      o6 = o5+(title_edit_h-title_txt(2))/2;
    end
    o7 = ok_pb(1)+title_txt(1);
    o8 = o1+o2+hint_dist1;
    hint_text_pos = [1 o8 hint_txt];
    frame1_pos = [f_fr(1) o1 f_fr(3) o3];
    title_text_pos = [ok_pb(1) o5 title_txt];
    title_pos = [o7 o6 o4 title_edit_h];
    frame2_pos = f_fr;
    ok_pos = ok_pb;
    cancel_pos = cancel_pb;
    
    fig_h = figure( ...
      'Units','pixels', ...
      'Position', fig_pos, ...
      'Color',fig_color, ...
      'NumberTitle','off', ...
      'Name','empty plane', ...
      'MenuBar','none', ...
      'Visible','off');

    set( ...
    uicontrol( ...                                                            %% hint
      'Units','pixels', ...
      'BackgroundColor',fig_color, ...
      'HorizontalAlignment','center', ...
      'Position',hint_text_pos, ...
      'String','Options for empty plane', ...
      'Style','text'),'units','normalized');

    set( ...
    uicontrol( ...                                                            %% [frame]
      'Units','pixels', ...
      'Position',frame1_pos, ...
      'Style','frame'),'units','normalized');

    set( ...
    uicontrol( ...                                                            %% title
      'Units','pixels', ...
      'Position',title_text_pos, ...
      'HorizontalAlignment','left', ...
      'Style','text', ...
      'String','Title'),'units','normalized');

    pr = udata.property{indx};
    ed_h =  uicontrol( ...                                                    %% [edit]
      'Units','pixels', ...
      'Position',title_pos, ...
      'Style','edit', ...
      'FontSize',12, ...
      'String',pr{1}, ...
      'BackgroundColor',bg_color2);
    set(ed_h,'units','normalized');

    set( ...
    uicontrol( ...                                                            %% [frame]
      'Units','pixels', ...
      'Position',frame2_pos, ...
      'Style','frame'),'units','normalized');

    s = ['vis_show_gui_comp(', ...
         mat2str(h) ',' mat2str(indx), ...
         ',''empty'',' mat2str(fig_h) ')'];
    set( ...
    uicontrol( ...                                                            %% OK
      'Units','pixels', ...
      'Position',ok_pos, ...
      'String','OK', ...
      'Callback',s),'units','normalized');

    set( ...
    uicontrol( ...                                                            %% Cancel
      'Units','pixels', ...
      'Position',cancel_pos, ...
      'String','Cancel', ...
      'Callback',['close(' mat2str(fig_h) ')']),'units','normalized');

    watchoff(old_fig_n);
    tmp_udata = [ed_h];
    set(fig_h,'units','normalized', ...
	      'Visible','on', ...
              'UserData', tmp_udata, ...
              'handlevisibility','off');

  end

 %%%%%%
% comp %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%%%%%
elseif (strcmp(action,'comp'))
  tmp_h = get(varargin{1},'UserData');
  v = get(tmp_h,'Value');
  pr = udata.property{indx};
  if (v)
    v = 'compi';
    pr{1} = 1;
  else
    v = 'comp';
    pr{1} = 0;
  end
  plot_array(indx).args{1} = v;
  udata.plot_array = plot_array;
  udata.property{indx} = pr;
  set(h,'UserData',udata);
  close(varargin{1});

 %%%%%%
% umat %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%%%%%
elseif (strcmp(action,'umat'))
  tmp_h = get(varargin{1},'UserData');
  v = get(tmp_h(1),'Value');
  pr = udata.property{indx};
  if (v)
    v = 'umati';
    pr{1} = 1;
  else
    v = 'umat';
    pr{1} = 0;
  end
  plot_array(indx).args{1} = v;

  s = get(tmp_h(2),'String');
  v = get(tmp_h(3),'Value');  % userdata
  plot_array(indx).string = s;
  if strcmp(s,'U-matrix')
    plot_array(indx).args{2} = v;
  else
    plot_array(indx).args{2} = {v s};
  end
  pr{2} = s;
  pr{3} = v;
  udata.plot_array = plot_array;
  udata.property{indx} = pr;
  set(h,'UserData',udata);
  set(udata.h(1),'String',{plot_array(:).string});
  close(varargin{1});

 %%%%%%%
% color %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%%%%%%
elseif (strcmp(action,'color'))
  tmp_h = get(varargin{1},'UserData'); % tmp_h =  [chkb_h ed_h popup1_h];

  v = get(tmp_h(1),'Value');
  pr = udata.property{indx};
  if (v)
    v = 'colori';
    pr{1} = 1;
  else
    v = 'color';
    pr{1} = 0;
  end
  plot_array(indx).args{1} = v;

  v = get(tmp_h(3),'Value');
  s = get(tmp_h(3),'string');
  if v>5 & ~strcmp(s{v},'-variable-'),
    m = evalin('base',s{v});
  elseif ~strcmp(s{v},'-variable-'),
    m = som_colorcode(udata.sM,s{v});
  end
  plot_array(indx).args{2} = m;
  pr{3} = s;
  s = get(tmp_h(2),'String');
  plot_array(indx).string = s;
  if ~strcmp(s,'Color code')
    plot_array(indx).args{2} = ...
        {plot_array(indx).args{2} s};
  end
  pr{2} = s;
  pr{4} = v;
  udata.plot_array = plot_array;
  udata.property{indx} = pr;
  set(h,'UserData',udata);
  set(udata.h(1),'String',{plot_array(:).string});
  close(varargin{1});

 %%%%%%%
% empty %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%%%%%%
elseif (strcmp(action,'empty'))
  pr = udata.property{indx};
  tmp_h = get(varargin{1},'UserData');
  s = get(tmp_h,'String');
  pr{1} = s;
  plot_array(indx).string = s;
  plot_array(indx).args{2} = s;
  udata.plot_array = plot_array;
  udata.property{indx} = pr;
  set(h,'UserData',udata);
  set(udata.h(1),'String',{plot_array(:).string});
  close(varargin{1});

else

end