Mercurial > octave-nkf

diff scripts/image/saveimage.m @ 1518:84bd88b8acee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-10-04 03:35:16 by jwe]
author jwe
date Wed, 04 Oct 1995 03:45:06 +0000
parents 79ca6398b78e
children 4914a8b34fd0
line wrap: on
line diff
--- a/scripts/image/saveimage.m	Tue Oct 03 22:36:14 1995 +0000
+++ b/scripts/image/saveimage.m	Wed Oct 04 03:45:06 1995 +0000
@@ -170,7 +170,6 @@
       for i = 2:n_long
 	tmp = tmp + img (i:8:img_sz) * 2^(8-i);
       endfor
-      size (tmp)
       for i = (n_long+1):8
 	tmp(1:s_len) = tmp(1:s_len) + img (i:8:img_sz) * 2^(8-i);
       endfor
@@ -216,7 +215,7 @@
   elseif (strcmp (img_form, "ps") == 1)
 
     if (! grey)
-      error ("must have a greyscale color map for conversion to PostScript")
+      error ("must have a greyscale color map for conversion to PostScript");
     endif
 
     bps = 8;
@@ -285,7 +284,7 @@
 
     count = 0;
     for i = 1:img_sz
-      fprintf (fid, "%x", img (i))
+      fprintf (fid, "%x", img (i));
       if (++count == 30)
 	count = 0;
 	fprintf (fid, "\n");