Changeset 20564

Timestamp:

04/26/16 15:48:16 (9 years ago)

Author:

Eric.Larour

Message:

CHG: scalable plot.

File:

• issm/trunk-jpl/src/m/plot/plotgemb.m (modified) (1 diff)

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

@@ -38 +38 @@
                 %build vertical values: 
                 nz=length(dz); 
+                %for j=1:nz, 
+                %       patch([time-deltat/2 ;time+deltat/2; time+deltat/2; time-deltat/2],[z0; z0; z0+dz(j); z0+dz(j)],[T(j);T(j);T(j);T(j)]);
+                %       z0=z0+dz(j);
+                %end
+
+                xA=(time-deltat/2)*ones(nz,1);
+                xB=(time+deltat/2)*ones(nz,1);
+                xC=(time+deltat/2)*ones(nz,1);
+                xD=(time-deltat/2)*ones(nz,1);
+
+                zA=zeros(nz,1);
+                zB=zeros(nz,1);
+                zC=zeros(nz,1);
+                zD=zeros(nz,1);
+                
                 for j=1:nz, 
-                        patch([time-deltat/2 ;time+deltat/2; time+deltat/2; time-deltat/2],[z0; z0; z0+dz(j); z0+dz(j)],[T(j);T(j);T(j);T(j)]);
+                        zA(j)=z0;
+                        zB(j)=z0;
+                        zC(j)=z0+dz(j);
+                        zD(j)=z0+dz(j);
                         z0=z0+dz(j);
                 end
+
+                patch([xA,xB,xC,xD]',[zA,zB,zC,zD]',[T,T,T,T]');
+
                 if i>=maxstep,
                         break;