Changeset 8001 for issm/trunk/src/m/model/plot/applyoptions.m

Timestamp:

04/21/11 07:34:15 (14 years ago)

Author:

Mathieu Morlighem

Message:

Moved inset to applyoptions (more general)
Added 'offsetaxispos' option to get more space
Posting for gridded plot has a default value
Clipped text so that it does not appear if outside of the box

File:

• issm/trunk/src/m/model/plot/applyoptions.m (modified) (6 diffs)

issm/trunk/src/m/model/plot/applyoptions.m

@@ -284 +284 @@
                 textpositioni=textposition{i};
                 textrotationi=textrotation{i};
-                text(textpositioni(1),textpositioni(2),textstringi,'FontSize',textsizei,'FontWeight',textweighti,'Color',textcolori,'Rotation',textrotationi);
+                h=text(textpositioni(1),textpositioni(2),textstringi,'FontSize',textsizei,'FontWeight',textweighti,'Color',textcolori,'Rotation',textrotationi);
+                set(h,'Clipping','on'); %prevent text from appearing outside of the box
         end
 end
@@ -326 +327 @@
 if exist(options,'ytick'),
         set(gca,'ytick',getfieldvalue(options,'ytick'));
+end
+
+%Axis positions
+if exist(options,'offsetaxispos'),
+        offset=getfieldvalue(options,'offsetaxispos');
+        P=get(gca,'pos');
+        P(1)=P(1)+offset(1);
+        P(2)=P(2)+offset(2);
+        P(3)=P(3)+offset(3);
+        P(3)=P(4)+offset(4);
+        set(gca,'pos',P);
 end
 
@@ -339 +351 @@
                         set(gcf,'Position',[756    62   827   504]);
                 elseif strcmpi(figposition,'mathieu'),
-                        set(gcf,'Position',[1 1 1580 1150]);
+                        set(gcf,'Position',[300 1 1580 1150]);
                 elseif strcmpi(figposition,'fullscreen'),
                         set(gcf,'Position',get(0,'ScreenSize'));
@@ -378 +390 @@
 %showregion
 if strcmpi(getfieldvalue(options,'showregion','off'),'on'),
+        %Keep pointer of main axis
+        maingca=gca;
         %get inset relative position (x,y,width,height)
         insetpos=getfieldvalue(options,'insetpos',[0.02 0.70 0.18 0.18]);
         %get current plos position
-        cplotpos=get(gca,'pos');
+        cplotpos=get(maingca,'pos');
         %compute inset position
         PosInset=[cplotpos(1)+insetpos(1)*cplotpos(3),cplotpos(2)+insetpos(2)*cplotpos(4), insetpos(3)*cplotpos(3), insetpos(4)*cplotpos(4)];
@@ -408 +422 @@
         patch( [mdx(1) mdx(2) mdx(2) mdx(1)],[mdy(1) mdy(1) mdy(2) mdy(2)],ones(4,1),'EdgeColor',[0 0 0],'FaceColor','r','FaceAlpha',0.5)
         colorbar('off');
+        %back to main gca
+        set(gcf,'CurrentAxes',maingca)
 end
 
@@ -434 +450 @@
         light('Position',[0 0.1 0.1],'Style','infinite');
 end
+
+%========================%
+%OK VERY LAST STEP: INSET|
+%========================%
+if exist(options,'inset'),
+
+        %Keep pointer of main axis
+        maingca=gca;
+        %get inset relative position (x,y,width,height)
+        insetpos=getfieldvalue(options,'insetpos',[0.56 0.55 0.35 0.35]);
+        %get current plot position
+        cplotpos=get(gca,'pos');
+        %compute inset position
+        PosInset=[cplotpos(1)+insetpos(1)*cplotpos(3),cplotpos(2)+insetpos(2)*cplotpos(4), insetpos(3)*cplotpos(3), insetpos(4)*cplotpos(4)];
+        %show pos
+        X1=getfieldvalue(options,'insetx',xlim);
+        Y1=getfieldvalue(options,'insety',ylim);
+        if strcmpi(getfieldvalue(options,'showinset','off'),'on')
+                line(X1([1 2 2 1 1]),Y1([1 1 2 2 1]),zeros(1,5),'Color','k','LineWidth',2);
+        end
+
+        %Get current figure
+        ax1=gca;
+
+        %plot inset
+        axes('pos',PosInset);
+        copyobj(get(ax1,'children'),gca);
+        patch('Faces',[1 2 3 4 1],'Vertices',[X1([1 2 2 1])' Y1([1 1 2 2])'],'FaceColor','None','EdgeColor','k','LineWidth',2);
+
+        %applay options
+        options=removefield(options,'text',0);
+        options=removefield(options,'inset',0);
+        options=removefield(options,'offsetaxispos',0);
+        options=removefield(options,'showregion',0);
+        options=changefieldvalue(options,'colorbar',0);
+        options=changefieldvalue(options,'latlon','off');
+        options=changefieldvalue(options,'axis','equal off');
+        options=changefieldvalue(options,'xlim',getfieldvalue(options,'insetx',xlim));
+        options=changefieldvalue(options,'ylim',getfieldvalue(options,'insety',ylim));
+        applyoptions(md,data,options);
+
+        %back to main gca
+        set(gcf,'CurrentAxes',maingca)
+end