Changeset 644 for trunk/src/plot_field.m

Timestamp:

May 28, 2013, 11:30:01 PM (12 years ago)

Author:

sommeria

Message:

various improvements: resize GUI uvmat, projection on lines

File:

• trunk/src/plot_field.m (modified) (6 diffs)

trunk/src/plot_field.m

@@ -197 +197 @@
     end
 else %plot 1D field (usual graph y vs x)
-    PlotParamOut.Coordinates=plot_profile(Data,CellInfo(index_1D),haxes,PlotParamOut.Coordinates);%
+    CheckHold=0;
+    if isfield(PlotParam,'CheckHold') 
+        CheckHold= PlotParam.CheckHold;
+    end       
+    PlotParamOut.Coordinates=plot_profile(Data,CellInfo(index_1D),haxes,PlotParamOut.Coordinates,CheckHold);%
     if testzoomaxes
-        [zoomaxes,PlotParamOut.Coordinates]=plot_profile(Data,CellInfo(index_1D),zoomaxes,PlotParamOut.Coordinates);
+        [zoomaxes,PlotParamOut.Coordinates]=plot_profile(Data,CellInfo(index_1D),zoomaxes,PlotParamOut.Coordinates,CheckHold);
         AxeData.ZoomAxes=zoomaxes;
     end
-%     if ~isempty(Coordinates)
-%         PlotParamOut.Coordinates=Coordinates;
-%     end
     PlotType='line';
 end
@@ -327 +328 @@
 
 %-------------------------------------------------------------------
-function CoordinatesOut=plot_profile(data,CellInfo,haxes,Coordinates)
+function CoordinatesOut=plot_profile(data,CellInfo,haxes,Coordinates,CheckHold)
 %-------------------------------------------------------------------
 
+%% initialization
 if ~exist('Coordinates','var')
     Coordinates=[];
@@ -335 +337 @@
 CoordinatesOut=Coordinates; %default
 hfig=get(haxes,'parent');
-%suppress existing plot isf empty data
+legend_str={};
+
+%% suppress existing plot if empty data
 if isempty(data)
     hplot=findobj(haxes,'tag','plot_line');
@@ -348 +352 @@
 end
 
+%% set the colors of the successive plots (designed to produce rgb for the three components of color images)
 ColorOrder=[1 0 0;0 0.5 0;0 0 1;0 0.75 0.75;0.75 0 0.75;0.75 0.75 0;0.25 0.25 0.25];
 set(haxes,'ColorOrder',ColorOrder)
-if isfield(Coordinates,'NextPlot')
-    set(haxes,'NextPlot',Coordinates.NextPlot)
-end
-% adjust the size of the plot to include the whole field,
-
-legend_str={};
+% if isfield(Coordinates,'NextPlot')
+%     set(haxes,'NextPlot',Coordinates.NextPlot)
+% end
+if CheckHold
+     set(haxes,'NextPlot','add')
+else
+    set(haxes,'NextPlot','replace')
+end
 
 %% prepare the string for plot command
 plotstr='hhh=plot(';
-coord_x_index=[];
+% coord_x_index=[];
 xtitle='';
 ytitle='';
-test_newplot=1;
+test_newplot=~CheckHold;
 MinX=[];
 MaxX=[];
@@ -421 +428 @@
             end
             eval(['data.' VarName '=squeeze(data.' VarName ');'])
-            %eval(['min(data.' VarName ')'])
             MinY(ivar)=min(min(data.(VarName)));
             MaxY(ivar)=max(max(data.(VarName)));
@@ -446 +452 @@
 
 %% activate the plot
-if test_newplot && ~isequal(plotstr,'hhh=plot(')  
+if  ~isequal(plotstr,'hhh=plot(')  
     set(hfig,'CurrentAxes',haxes)
     tag=get(haxes,'tag');