Mercurial > hg > octave-jordi

comparison 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
comparison
equal deleted inserted replaced
1517:5a02b9fba19e 1518:84bd88b8acee
168 168
169 tmp = img (1:8:img_sz) * 128; 169 tmp = img (1:8:img_sz) * 128;
170 for i = 2:n_long 170 for i = 2:n_long
171 tmp = tmp + img (i:8:img_sz) * 2^(8-i); 171 tmp = tmp + img (i:8:img_sz) * 2^(8-i);
172 endfor 172 endfor
173 size (tmp)
174 for i = (n_long+1):8 173 for i = (n_long+1):8
175 tmp(1:s_len) = tmp(1:s_len) + img (i:8:img_sz) * 2^(8-i); 174 tmp(1:s_len) = tmp(1:s_len) + img (i:8:img_sz) * 2^(8-i);
176 endfor 175 endfor
177 176
178 fid = fopen (filename, "w"); 177 fid = fopen (filename, "w");
214 endif 213 endif
215 214
216 elseif (strcmp (img_form, "ps") == 1) 215 elseif (strcmp (img_form, "ps") == 1)
217 216
218 if (! grey) 217 if (! grey)
219 error ("must have a greyscale color map for conversion to PostScript") 218 error ("must have a greyscale color map for conversion to PostScript");
220 endif 219 endif
221 220
222 bps = 8; 221 bps = 8;
223 dpi = 300; 222 dpi = 300;
224 pagewid = 612; 223 pagewid = 612;
283 # XXX FIXME XXX -- this would be much faster if fprintf knew about 282 # XXX FIXME XXX -- this would be much faster if fprintf knew about
284 # vector arguments. 283 # vector arguments.
285 284
286 count = 0; 285 count = 0;
287 for i = 1:img_sz 286 for i = 1:img_sz
288 fprintf (fid, "%x", img (i)) 287 fprintf (fid, "%x", img (i));
289 if (++count == 30) 288 if (++count == 30)
290 count = 0; 289 count = 0;
291 fprintf (fid, "\n"); 290 fprintf (fid, "\n");
292 endif 291 endif
293 endfor 292 endfor