Mercurial > octave-nkf

diff scripts/image/saveimage.m @ 5431:6ddb5a7f399e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-08-29 20:48:29 by jwe]
author jwe
date Mon, 29 Aug 2005 20:48:52 +0000
parents 4c8a2e4e0717
children ec8c33dcd1bf
line wrap: on
line diff
--- a/scripts/image/saveimage.m	Mon Aug 29 19:42:07 2005 +0000
+++ b/scripts/image/saveimage.m	Mon Aug 29 20:48:52 2005 +0000
@@ -186,7 +186,7 @@
         tmp(i,:) = sum (bwimg(8*(i-1)+1:8*i,:) .* b);
       endfor
 
-      fid = fopen (filename, "w");
+      fid = fopen (filename, "wb");
       fprintf (fid, "P4\n%s\n%d %d\n", tagline, img_nr, img_nc);
       fwrite (fid, tmp, "char");
       fprintf (fid, "\n");
@@ -194,7 +194,7 @@
 
     elseif (grey)
 
-      fid = fopen (filename, "w");
+      fid = fopen (filename, "wb");
       fprintf (fid, "P5\n%s\n%d %d\n255\n", tagline, img_nr, img_nc);
       fwrite (fid, map(img), "uchar");
       fprintf (fid, "\n");
@@ -216,7 +216,7 @@
       tmap = map(map_idx);
       tmp(img_idx--) = tmap(img);
 
-      fid = fopen (filename, "w");
+      fid = fopen (filename, "wb");
       fprintf (fid, "P6\n%s\n%d %d\n255\n", tagline, img_nr, img_nc);
       fwrite (fid, tmp, "uchar");
       fprintf (fid, "\n");
@@ -266,7 +266,7 @@
     urx = llx + fix (scols + 0.5);
     ury = lly + fix (srows + 0.5);
 
-    fid = fopen (filename, "w");
+    fid = fopen (filename, "wb");
 
     fprintf (fid, "%%!PS-Adobe-2.0 EPSF-2.0\n");
     fprintf (fid, "%%%%Creator: Octave %s (saveimage.m)\n", OCTAVE_VERSION);