Mercurial > hg > octave-lyh

comparison 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
comparison
equal deleted inserted replaced
5430:150d5140fcb0 5431:6ddb5a7f399e
184 184
185 for i = 1:k 185 for i = 1:k
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, "w"); 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, "char");
192 fprintf (fid, "\n"); 192 fprintf (fid, "\n");
193 fclose (fid); 193 fclose (fid);
194 194
195 elseif (grey) 195 elseif (grey)
196 196
197 fid = fopen (filename, "w"); 197 fid = fopen (filename, "wb");
198 fprintf (fid, "P5\n%s\n%d %d\n255\n", tagline, img_nr, img_nc); 198 fprintf (fid, "P5\n%s\n%d %d\n255\n", tagline, img_nr, img_nc);
199 fwrite (fid, map(img), "uchar"); 199 fwrite (fid, map(img), "uchar");
200 fprintf (fid, "\n"); 200 fprintf (fid, "\n");
201 fclose (fid); 201 fclose (fid);
202 202
214 214
215 map_idx = map_idx - map_nr; 215 map_idx = map_idx - map_nr;
216 tmap = map(map_idx); 216 tmap = map(map_idx);
217 tmp(img_idx--) = tmap(img); 217 tmp(img_idx--) = tmap(img);
218 218
219 fid = fopen (filename, "w"); 219 fid = fopen (filename, "wb");
220 fprintf (fid, "P6\n%s\n%d %d\n255\n", tagline, img_nr, img_nc); 220 fprintf (fid, "P6\n%s\n%d %d\n255\n", tagline, img_nr, img_nc);
221 fwrite (fid, tmp, "uchar"); 221 fwrite (fid, tmp, "uchar");
222 fprintf (fid, "\n"); 222 fprintf (fid, "\n");
223 fclose (fid); 223 fclose (fid);
224 224
264 llx = (pagewid - scols) / 2; 264 llx = (pagewid - scols) / 2;
265 lly = (pagehgt - srows) / 2; 265 lly = (pagehgt - srows) / 2;
266 urx = llx + fix (scols + 0.5); 266 urx = llx + fix (scols + 0.5);
267 ury = lly + fix (srows + 0.5); 267 ury = lly + fix (srows + 0.5);
268 268
269 fid = fopen (filename, "w"); 269 fid = fopen (filename, "wb");
270 270
271 fprintf (fid, "%%!PS-Adobe-2.0 EPSF-2.0\n"); 271 fprintf (fid, "%%!PS-Adobe-2.0 EPSF-2.0\n");
272 fprintf (fid, "%%%%Creator: Octave %s (saveimage.m)\n", OCTAVE_VERSION); 272 fprintf (fid, "%%%%Creator: Octave %s (saveimage.m)\n", OCTAVE_VERSION);
273 fprintf (fid, "%%%%Title: %s\n", filename); 273 fprintf (fid, "%%%%Title: %s\n", filename);
274 fprintf (fid, "%%%%Pages: 1\n"); 274 fprintf (fid, "%%%%Pages: 1\n");