Mercurial > hg > octave-lyh
comparison scripts/image/saveimage.m @ 5446:4a00f3a31857
[project @ 2005-09-12 17:18:04 by jwe]
author | jwe |
---|---|
date | Mon, 12 Sep 2005 17:18:04 +0000 |
parents | ec8c33dcd1bf |
children | 2618a0750ae6 |
comparison
equal
deleted
inserted
replaced
5445:1d7ef19081e8 | 5446:4a00f3a31857 |
---|---|
186 tmp(i,:) = sum (bwimg(8*(i-1)+1:8*i,:) .* b); | 186 tmp(i,:) = sum (bwimg(8*(i-1)+1:8*i,:) .* b); |
187 endfor | 187 endfor |
188 | 188 |
189 fid = fopen (filename, "wb"); | 189 fid = fopen (filename, "wb"); |
190 fprintf (fid, "P4\n%s\n%d %d\n", tagline, img_nr, img_nc); | 190 fprintf (fid, "P4\n%s\n%d %d\n", tagline, img_nr, img_nc); |
191 fwrite (fid, tmp, "char"); | 191 fwrite (fid, tmp, "uchar"); |
192 fprintf (fid, "\n"); | 192 fprintf (fid, "\n"); |
193 fclose (fid); | 193 fclose (fid); |
194 | 194 |
195 elseif (grey) | 195 elseif (grey) |
196 | 196 |