Mercurial > octave-nkf

comparison scripts/plot/__go_draw_axes__.m @ 6462:75db909a53cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-03-27 01:38:03 by jwe]
author jwe
date Tue, 27 Mar 2007 01:38:03 +0000
parents ed17f1c8f720
children f7910fd3b96e
comparison
equal deleted inserted replaced
6461:ed17f1c8f720 6462:75db909a53cc
301 imagetype = "rgbimage"; 301 imagetype = "rgbimage";
302 else 302 else
303 fwrite (img_fid, img_data(:), "float"); 303 fwrite (img_fid, img_data(:), "float");
304 format = "1"; 304 format = "1";
305 imagetype = "image"; 305 imagetype = "image";
306 ## Only need to set pallete once because it doesn't change 306 ## Only need to set palette once because it doesn't change
307 ## on a figure. 307 ## on a figure.
308 if (! palette_set) 308 if (! palette_set)
309 palette_set = 1; 309 palette_set = 1;
310 palette_size = rows (img_colormap); 310 palette_size = rows (img_colormap);
311 fprintf (plot_stream, 311 fprintf (plot_stream,
312 "set palette positive color model RGB maxcolors %i;\n", 312 "set palette positive color model RGB maxcolors %i;\n",
313 palette_size); 313 palette_size);
314 fprintf (plot_stream, 314 fprintf (plot_stream,
315 "set palette file \"-\" binary record=%d using 1:2:3:4;\n", 315 "set palette file \"-\" binary record=%d using 1:2:3:4;\n",
316 palette_size); 316 palette_size);
317 fwrite (plot_stream, [1:palette_size; img_colormap'], 317 fwrite (plot_stream, [1:palette_size; img_colormap'], "float32";
318 "float32", 0, "ieee-le");
319 endif 318 endif
320 endif 319 endif
321 fclose (img_fid); 320 fclose (img_fid);
322 321
323 filespec{data_idx} = img_fname; 322 filespec{data_idx} = img_fname;