Changeset 144 for trunk/src/get_field.m

Timestamp:

Nov 30, 2010, 12:03:49 AM (14 years ago)

Author:

sommeria

Message:

connection between uvmat and get_field improved, cleaning of GUI get_field

File:

• trunk/src/get_field.m (modified) (10 diffs)

trunk/src/get_field.m

@@ -111 +111 @@
     set(handles.inputfile,'String',filename)% prefill the input file name 
     set(handles.inputfile,'Enable','off')% desactivate the input file edit box   
-    set(handles.list_fig,'Value',2)% plotting axes =uvmat selected
-    set(handles.list_fig,'Visible','off')% 
-    set(handles.RUN,'Visible','off')% RUN button not visible (passive mode, get_field used to define the field for uvamt)
+  %  set(handles.list_fig,'Value',2)% plotting axes =uvmat selected
+  %  set(handles.list_fig,'Visible','off')% 
+    set(handles.RUN,'String','REFRESH')% passive mode, get_field used to define the field for uvamt
     set(handles.MenuOpen,'Visible','off')
     set(handles.MenuExport,'Visible','off')
@@ -120 +120 @@
 else  %master mode
     set(handles.inputfile,'String','')   
+    set(handles.RUN,'String','RUN')%
     % load the list of previously browsed files for the upper bar menu Open 
     dir_perso=prefdir;
@@ -171 +172 @@
 inputfile=get(handles.inputfile,'String');
 Field=nc2struct(inputfile);% reads the whole field
-hfig=get(handles.inputfile,'parent');
-set(hfig,'UserData',Field);
+set(handles.figure1,'UserData',Field);
 Field_input(eventdata,handles,Field);
 
@@ -792 +792 @@
 function RUN_Callback(hObject, eventdata, handles)
 %---------------------------------------------------------
-index=get(handles.ACTION,'Value');
-list_func=get(handles.ACTION,'UserData');
-h_fun=list_func{index};
-set(handles.RUN,'BackgroundColor',[0.831 0.816 0.784])
-drawnow
-SubField=h_fun(handles.figure1);%handles.figure1 =handles of the GUI get_field
-if ~isempty(SubField)
-    plot_get_field(SubField,handles)
-end
-browse_fig(handles.list_fig); %update the list of new existing figures
+figstring=get(handles.list_fig,'String');
+if isequal(figstring,{'uvmat'})
+    huvmat=findobj(allchild(0),'tag','uvmat');
+    hhuvmat=guidata(huvmat);
+    uvmat('run0_Callback',hObject,eventdata,hhuvmat); %file input with xml reading  in uvmat, show the image in phys coordinates
+else
+    index=get(handles.ACTION,'Value');
+    list_func=get(handles.ACTION,'UserData');
+    h_fun=list_func{index};
+    set(handles.RUN,'BackgroundColor',[0.831 0.816 0.784])
+    drawnow
+    SubField=h_fun(handles.figure1);%handles.figure1 =handles of the GUI get_field
+    if ~isempty(SubField)
+        plot_get_field(SubField,handles)
+    end
+    browse_fig(handles.list_fig); %update the list of new existing figures
+end
 
 %------------------------------------------------------------------------
@@ -809 +816 @@
 val=get(handles.list_fig,'Value');
 if strcmp(list_fig{val},'uvmat')
-    set(handles.figure1,'Name','uvmat_field')
+%     set(handles.figure1,'Name','uvmat_field')
     set(handles.inputfile,'Enable','off')% desactivate the input file edit box   
 %     set(handles.list_fig,'Visible','off')% 
@@ -816 +823 @@
     set(handles.MenuExport,'Visible','off')
     uvmat(get(handles.inputfile,'String'))
+elseif strcmp(list_fig{val},'view_field')
+    view_field(SubField)
 else
     hfig=str2num(list_fig{val});% chosen figure number from tyhe GUI
@@ -1065 +1074 @@
 
 % update dimensions;
-if isfield(Field,'VarDimIndex')
+if isfield(Field,'ListDimName')
+    Field.ListDimName
     Tabdim={};%default
-    if isequal(index,1)
+    if isequal(index,1)%list all dimensions
         dim_indices=1:length(Field.ListDimName);
         set(handles.dimensions_txt,'String', 'dimensions')
     else
-        dim_indices=Field.VarDimIndex{index-1};
+        DimCell=Field.VarDimName{index-1};
+        if ischar(DimCell)
+            DimCell={DimCell};
+        end   
+        dim_indices=[];
+        for idim=1:length(DimCell)
+            dim_index=strcmp(DimCell{idim},Field.ListDimName);%vector with size of Field.ListDimName, =0 
+            dim_index=find(dim_index,1);
+            dim_indices=[dim_indices dim_index];
+        end
+        %dim_indices=find(dim_list) %removes 0 values
         set(handles.dimensions_txt,'String', ['dimensions of ' var_select])
     end
@@ -1251 +1271 @@
 for ifig=1:length(hh)  %look for all existing figures
     name=get(hh(ifig),'Name');
-     if ~isequal(name,'uvmat')%case of uvmat GUI
+     if ~strcmp(name,'uvmat')&& ~strcmp(name,'view_field') %case of uvmat GUI
         hchild=get(hh(ifig),'children');% look for axes contained in each figure
         nbaxe=0;
@@ -1274 +1294 @@
      end
 end
-list=['new fig...';'uvmat';list];
+list=['view_field';list];
 set(menu_handle,'Value',1)
 set(menu_handle,'String',list)
@@ -1285 +1305 @@
 fig_val=get(handles.list_fig,'Value');
 plot_fig=list_fig{fig_val};
-if isequal(plot_fig,'uvmat')
-    huvmat=findobj(allchild(0),'name','uvmat');
-    if ~isempty(huvmat)
-        uistack(huvmat,'top')
-    end    
-elseif ~isequal(plot_fig,'new fig...') & ~isequal(plot_fig,'uvmat')
+if strcmp(plot_fig,'view_field')
+%     huvmat=findobj(allchild(0),'name','uvmat');
+%     if ~isempty(huvmat)
+%         uistack(huvmat,'top')
+%     end    
+else%if ~isequal(plot_fig,'new fig...') & ~isequal(plot_fig,'uvmat')
     sep=regexp(plot_fig,'_');
     if ~isempty(sep)