Changeset 5899

Timestamp:

09/20/10 07:45:34 (15 years ago)

Author:

Mathieu Morlighem

Message:

Added units

File:

• issm/trunk/src/m/classes/public/plot/plot_section.m (modified) (3 diffs)

issm/trunk/src/m/classes/public/plot/plot_section.m

@@ -26 +26 @@
 numcurves=size(data,2);
 colorm=getfieldvalue(options,'colormap','jet');
+options=changefieldvalue(options,'colormap','jet');
 eval(['color=' colorm '(numcurves);']);
 
@@ -48 +49 @@
         %Compute section value
         [elements,x,y,z,s,data_s]=SectionValues(md,datai,getfieldvalue(options,'sectionvalue'),resolution);
+
+        %units
+        if exist(options,'unit'),
+                unit=getfieldvalue(options,'unit');
+                x=x*unit;
+                y=y*unit;
+                z=z*unit;
+                s=s*unit;
+        end
 
         %2D
@@ -86 +96 @@
                 %subplot(1,3,[2 3])
                 if i==1,
-                        plot(s,data_s,'color',color(i,:),'LineWidth',getfieldvalue(options,'linewidth',1))
+                        plot(s,data_s,'-.','color',color(i+1,:),'LineWidth',getfieldvalue(options,'linewidth',1))
                 elseif i==2
-                        plot(s,data_s,'color',color(i,:),'LineWidth',getfieldvalue(options,'linewidth',1))
+                        plot(s,data_s,'-.','color',color(i+1,:),'LineWidth',getfieldvalue(options,'linewidth',1))
                 elseif i==3
-                        plot(s,data_s,'--','color',color(i,:),'LineWidth',getfieldvalue(options,'linewidth',1))
+                        plot(s,data_s,'--','color',color(i+1,:),'LineWidth',getfieldvalue(options,'linewidth',1))
                 elseif i==4
-                        plot(s,data_s,'-.','color',color(i,:),'LineWidth',getfieldvalue(options,'linewidth',1))
+                        plot(s,data_s,'-','color',color(i+1,:),'LineWidth',getfieldvalue(options,'linewidth',1))
                 elseif i==5
-                        plot(s,data_s,':','color',color(i,:),'LineWidth',getfieldvalue(options,'linewidth',1))
+                        plot(s,data_s,'-','color','k','LineWidth',getfieldvalue(options,'linewidth',1))
                 end