Changeset 1050

Timestamp:

06/22/09 14:33:05 (15 years ago)

Author:

Mathieu Morlighem

Message:

cosmetics

Location:

issm/trunk/src/m/utils/Interp

Files:

• griddata_mesh_to_mesh.m (modified) (2 diffs)
• griddata_mesh_to_mesh_3d.m (modified) (2 diffs)

issm/trunk/src/m/utils/Interp/griddata_mesh_to_mesh.m

@@ -66 +66 @@
         delta=x(index(:,2)).*y(index(:,3))-y(index(:,2)).*x(index(:,3))-x(index(:,1)).*y(index(:,3))+y(index(:,1)).*x(index(:,3))+x(index(:,1)).*y(index(:,2))-y(index(:,1)).*x(index(:,2));
 
+        if nel>100,
+                fprintf('%s','      interpolation progress:   0.00 %');
+        end
+
         %Get area coordinates:
         for n=1:nel,
-                if mod(n,10000)==0,
-                        disp(sprintf('\r%s%.2f%s','      interpolation progress:  ',n/nel*100,' %'));
+                if mod(n,100)==0,
+                        fprintf('\b\b\b\b\b\b\b')
+                        fprintf('%5.2f%s',n/nel*100,' %');
                 end
                 %first area coordinate
@@ -88 +93 @@
                 end
         end
-        if nel>10000,
-                disp(sprintf('\r%s%.2f%s','      interpolation progress:  ',100,' %'));
+        if nel>100,
+                fprintf('\b\b\b\b\b\b\b\b')
+                fprintf('%4.2f%s\n',100,' %');
         end
 end

issm/trunk/src/m/utils/Interp/griddata_mesh_to_mesh_3d.m

@@ -67 +67 @@
         delta=x(index(:,2)).*y(index(:,3))-y(index(:,2)).*x(index(:,3))-x(index(:,1)).*y(index(:,3))+y(index(:,1)).*x(index(:,3))+x(index(:,1)).*y(index(:,2))-y(index(:,1)).*x(index(:,2));
 
+        if nel>100,
+                fprintf('%s','      interpolation progress:   0.00 %');
+        end
+
         %Get area coordinates:
         for n=1:nel,
-                if mod(n,10000)==0,
-                        disp(sprintf('\r%s%.2f%s','      interpolation progress:  ',n/nel*100,' %'));
+                if mod(n,100)==0,
+                        fprintf('\b\b\b\b\b\b\b')
+                        fprintf('%5.2f%s',n/nel*100,' %');
                 end
                 %first area coordinate
@@ -102 +107 @@
                 end
         end
-        if nel>10000,
-                disp(sprintf('\r%s%.2f%s','      interpolation progress:  ',100,' %'));
+        if nel>100,
+                fprintf('\b\b\b\b\b\b\b\b')
+                fprintf('%4.2f%s\n',100,' %');
         end
 end