Changeset 1040 for trunk/src/get_field.m

Timestamp:

May 4, 2018, 10:57:13 PM (6 years ago)

Author:

sommeria

Message:

get_field improved to select variables, uvmat rationalized with respect to input file types

File:

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

trunk/src/get_field.m

@@ -335 +335 @@
         return
     end
-    var_select=list_var{index};
-    set(handles.attributes_txt,'String', ['attributes of ' var_select])
+    VarName=list_var{index};
+    set(handles.attributes_txt,'String', ['attributes of ' VarName])
     if isfield(Field,'VarAttribute')&& length(Field.VarAttribute)>=index-1
-        %         nbline=0;
         VarAttr=Field.VarAttribute{index-1};
         if isstruct(VarAttr)
@@ -356 +355 @@
 if ~isempty(Tabcell)
     Tabchar=cell2tab(Tabcell,'=');
-    %     Tabchar=[{''};Tabchar];
 end
 set(handles.attributes,'Value',1);% select the first item
@@ -364 +362 @@
 if isfield(Field,'ListDimName')
     Tabdim={};%default
-    if isequal(index,1)%list all dimensions
+    if isequal(index,1)%list all dimensions if '*' is selected as the variable
         dim_indices=1:length(Field.ListDimName);
         set(handles.dimensions_txt,'String', 'dimensions')
-    else
+    else   % a specific variable has been selected
         DimCell=Field.VarDimName{index-1};
         if ischar(DimCell)
-            DimCell={DimCell};
+            DimCell={DimCell};% transform into a cell for a single dimension defined by a char string
         end
         dim_indices=[];
@@ -378 +376 @@
             dim_indices=[dim_indices dim_index];
         end
-        set(handles.dimensions_txt,'String', ['dimensions of ' var_select])
+        set(handles.dimensions_txt,'String', ['dimensions of ' VarName])
     end
     for iline=1:length(dim_indices)
@@ -390 +388 @@
 end
 
+%% propose a plot by default if a variable has been selected
+if ~isequal(index,1)
+    if numel(DimCell)==1
+        set(handles.FieldOption,'Value',1)%propose 1D plot
+    else
+        set(handles.FieldOption,'Value',2)%propose scalar plot
+    end
+    if numel(DimCell)<=2
+        set(handles.Check3D,'Value',0)
+    else
+        set(handles.Check3D,'Value',1)
+    end
+    FieldOption_Callback(hObject, VarName, handles)
+end
+
 %------------------------------------------------------------------------
 % --- Executes on selection change in FieldOption.
 %------------------------------------------------------------------------
-function FieldOption_Callback(hObject, eventdata, handles)
+function FieldOption_Callback(hObject, VarName, handles)
 
 Field=get(handles.get_field,'UserData');
@@ -414 +427 @@
         set(handles.Coord_z,'Visible','off')
         set(handles.Z_title,'Visible','off')
-        ordinate_Callback(hObject, eventdata, handles)
+        ordinate_Callback(hObject, VarName, handles)
         
     case {'scalar'}
@@ -428 +441 @@
         set(handles.Coord_y,'Visible','on')
         set(handles.Y_title,'Visible','on')
+        
+        if ~ischar(VarName)
+            
         %default scalar selection
         test_coord=zeros(size(Field.Display.VarDimName)); %=1 when variable #ilist is eligible as structured coordiante
@@ -447 +463 @@
         else
             set(handles.scalar,'Value',scalar_index)
-        end       
-        scalar_Callback(hObject, eventdata, handles)
+        end      
+        end
+        scalar_Callback(hObject,VarName, handles)
+        
              
     case 'vectors'
@@ -501 +519 @@
 
 %------------------------------------------------------------------------
-function ordinate_Callback(hObject, eventdata, handles)
+function ordinate_Callback(hObject, DimCell, handles)
 %------------------------------------------------------------------------
 Field=get(handles.get_field,'UserData');
@@ -584 +602 @@
         set(handles.TimeName,'String',ListTime)
 end  
+if ~ischar(DimCell)
 update_field(handles,YName)
+end
          
 %------------------------------------------------------------------------
 % --- Executes on selection change in scalar menu.
 %------------------------------------------------------------------------
-function scalar_Callback(hObject, eventdata, handles)
+function scalar_Callback(hObject, VarName, handles)
 
 Field=get(handles.get_field,'UserData');
-scalar_index=get(handles.scalar,'Value');
 scalar_menu=get(handles.scalar,'String');
-ScalarName=scalar_menu{scalar_index};
+if ischar(VarName)
+    ScalarName=VarName;
+    scalar_index=find(strcmp(VarName,scalar_menu));
+    set(handles.scalar,'Value',scalar_index)
+else
+    scalar_index=get(handles.scalar,'Value');
+        ScalarName=scalar_menu{scalar_index};
+end
 
 %% set list of possible coordinates
@@ -696 +722 @@
         set(handles.TimeName,'String',ListTime)
 end  
+if ~ischar(VarName)
 update_field(handles,ScalarName)
+end
 
 % --- Executes on button press in check_rgb.
@@ -705 +733 @@
 % --- Executes on selection change in vector_x.
 %------------------------------------------------------------------------
-function vector_x_Callback(hObject, eventdata, handles)
+function vector_x_Callback(hObject, DimCell, handles)
 
 vector_x_menu=get(handles.vector_x,'String');
@@ -711 +739 @@
 vector_x=vector_x_menu{vector_x_index};
 vector_Callback(handles)
+if ~ischar(DimCell)
 update_field(handles,vector_x)
+end
 
 %------------------------------------------------------------------------
 % --- Executes on selection change in vector_x.
-function vector_y_Callback(hObject, eventdata, handles)
-%------------------------------------------------------------------------
+%------------------------------------------------------------------------
+function vector_y_Callback(hObject, DimCell, handles)
+
 vector_y_menu=get(handles.vector_x,'String');
 vector_y_index=get(handles.vector_x,'Value');
 vector_y=vector_y_menu{vector_y_index};
 vector_Callback(handles)
+if ~ischar(DimCell)
 update_field(handles,vector_y)
+end
 
 %------------------------------------------------------------------------
 % --- Executes on selection change in vector_z.
-function vector_z_Callback(hObject, eventdata, handles)
+function vector_z_Callback(hObject, DimCell, handles)
 %------------------------------------------------------------------------
 vector_z_menu=get(handles.vector_z,'String');
@@ -731 +764 @@
 vector_z=vector_z_menu{vector_z_index};
 vector_Callback(handles)
+if ~ischar(DimCell)
 update_field(handles,vector_z)
-
+end
 %------------------------------------------------------------------------
 % --- Executes on selection change in vec_color.
-function vec_color_Callback(hObject, eventdata, handles)
+function vec_color_Callback(hObject, DimCell, handles)
 %------------------------------------------------------------------------
 index=get(handles.vec_color,'Value');
@@ -741 +775 @@
 VarName=string{index};
 vector_Callback(handles)
+if ~ischar(DimCell)
 update_field(handles,VarName)
-
+end
 %------------------------------------------------------------------------
 % --- Executes on selection change in vector_x or vector_y
@@ -860 +895 @@
 % --- Executes on selection change in Coord_x.
 %------------------------------------------------------------------------
-function Coord_x_Callback(hObject, eventdata, handles)
+function Coord_x_Callback(hObject, DimCell, handles)
 
 index=get(handles.Coord_x,'Value');
 string=get(handles.Coord_x,'String');
 VarName=string{index};
+if ~ischar(DimCell)
 update_field(handles,VarName)
-
+end
 %------------------------------------------------------------------------
 % --- Executes on selection change in Coord_y.
 %------------------------------------------------------------------------
-function Coord_y_Callback(hObject, eventdata, handles)
+function Coord_y_Callback(hObject, DimCell, handles)
 
 index=get(handles.Coord_y,'Value');
 string=get(handles.Coord_y,'String');
 VarName=string{index};
+if ~ischar(DimCell)
 update_field(handles,VarName)
+end
 
 %------------------------------------------------------------------------
 % --- Executes on selection change in Coord_z.
 %------------------------------------------------------------------------
-function Coord_z_Callback(hObject, eventdata, handles)
+function Coord_z_Callback(hObject, DimCell, handles)
 
 index=get(handles.Coord_z,'Value');
 string=get(handles.Coord_z,'String');
 VarName=string{index};
+if ~ischar(DimCell)
 update_field(handles,VarName)
+end
 
 %------------------------------------------------------------------------