Changeset 25038

Timestamp:

06/16/20 09:31:08 (5 years ago)

Author:

Cheng Gong

Message:

NEW: add 'subplot' option in plotmodel. The value has to be 1x3 integer array as [nlines, ncols, subindex]. Example: plotmodel(md, 'data', md.results.StressbalanceSolution.Vx, 'subplot', [2,2,1]). This will override the subplot [2,2,1] of the current figure. An existing bug is when using this with special plots, such as 'mesh', 'BC', etc. It will not override the previous subplot if it exists.

Location:

issm/trunk-jpl/src/m/plot

Files:

• plot_manager.m (modified) (1 diff)
• plotmodel.m (modified) (2 diffs)

issm/trunk-jpl/src/m/plot/plot_manager.m

@@ -202 +202 @@
 end
 
+% clear subplot option
+if exist(options,'subplot')
+    cla;
+end
+
 %plot unit
 plot_unit(x,y,z,elements,data2,is2d,isplanet,datatype,options);

issm/trunk-jpl/src/m/plot/plotmodel.m

@@ -28 +28 @@
 end
 
+% Add option for subplot, only support one subplot per one plotmodel call
+subindex = 0;
+if (exist(options.list{1},'subplot'))
+    subops = getfieldvalue(options.list{1},'subplot',NaN);
+    nlines = subops(1);
+    ncols = subops(2);
+    subindex = subops(3);
+    % change the width
+    subplotwidth = ncols;
+    % Turn off new figure option for subplot
+    options.list{1}=addfield(options.list{1},'figurestatement','off');
+    % Turn off clf option for subplot
+    options.list{1}=addfield(options.list{1},'clf','off');
+end
+
 %go through subplots
 if numberofplots,
 
         %Create figure 
-        if strcmpi(getfieldvalue(options.list{1},'figurestatement','on'),'on'),
+        if (strcmpi(getfieldvalue(options.list{1},'figurestatement','on'),'on'))
                 f=figure(figurenumber); 
         else
@@ -95 +110 @@
         try,
                 for i=1:numberofplots,
-                        plot_manager(getfieldvalue(options.list{i},'model',md),options.list{i},subplotwidth,nlines,ncols,i);
-                        %List all unused options
+            if subindex
+                plot_manager(getfieldvalue(options.list{i},'model',md),options.list{i},subplotwidth,nlines,ncols,subindex);
+            else
+                plot_manager(getfieldvalue(options.list{i},'model',md),options.list{i},subplotwidth,nlines,ncols,i);
+            end
+            %List all unused options
                         if getfieldvalue(options.list{i},'displayunused',1),
                                 displayunused(options.list{i})