|
559
|
1 function saveimage(filename,X,img_form,map) |
|
|
2 #Save a matrix to disk in image format. |
|
|
3 # |
|
|
4 #saveimage(filename,x) saves matrix x to file filename in octave's image |
|
|
5 #format. The current colormap is saved in the file also. |
|
|
6 # |
|
|
7 #saveimage(filename,x,"img") saves the image in the default format and |
|
|
8 #is the same as saveimage(filename,x). |
|
|
9 # |
|
|
10 #saveimage(filename,x,"ppm") saves the image in ppm format instead of |
|
|
11 #the default octave image format. |
|
|
12 # |
|
|
13 #saveimage(filename,x,"ps") saves the image in PostScript format instead |
|
|
14 #of the default octave image format. (Note: images saved in PostScript format |
|
|
15 #can not be read back into octave with loadimage.) |
|
|
16 # |
|
|
17 #saveimage(filename,x,format,map) saves the image along with the specified |
|
|
18 #colormap in the specified format. |
|
|
19 # |
|
|
20 #Note: If the colormap contains only two entries and these entries are black |
|
|
21 #and white, the bitmap ppm and PostScript formats are used. If the image is |
|
|
22 #a gray scale image (the entries within each row of the colormap are equal) |
|
|
23 #the gray scale ppm and PostScript image formats are used, otherwise the full |
|
|
24 #color formats are used. |
|
|
25 # |
|
|
26 #SEE ALSO: loadimage, save, load, colormap |
|
|
27 |
|
|
28 if(nargin < 2) |
|
|
29 error("usage: saveimage(filename,matrix,[format, [colormap]])"); |
|
|
30 elseif(nargin == 2) |
|
|
31 if(!isstr(filename)) |
|
|
32 error("File name must be a string."); |
|
|
33 endif |
|
|
34 map = colormap; |
|
|
35 img_form = "img"; |
|
|
36 elseif(nargin == 3) |
|
|
37 if(!isstr(img_form)) |
|
|
38 error("Image format specification must be a string"); |
|
|
39 endif |
|
|
40 map = colormap; |
|
|
41 endif |
|
|
42 |
|
|
43 if (strcmp(img_form,"img") == 1) |
|
|
44 oct_file = filename; |
|
|
45 elseif (strcmp(img_form,"ppm") == 1) |
|
|
46 # We need a temporary octave image file name. |
|
|
47 oct_file = sprintf("image.%s.img",num2str(fix(rand*10000))); |
|
|
48 ppm_file = filename; |
|
|
49 elseif (strcmp(img_form,"ps") == 1) |
|
|
50 # We need a temporary octave image file name. |
|
|
51 oct_file = sprintf("image.%s.img",num2str(fix(rand*10000))); |
|
|
52 ps_file = filename; |
|
|
53 endif |
|
|
54 |
|
|
55 # Save image in octave image file format |
|
|
56 eval(['save ', oct_file, ' map X']); |
|
|
57 |
|
|
58 # Convert to another format if requested. |
|
|
59 if (strcmp(img_form,"ppm") == 1) |
|
686
|
60 octtopnm = sprintf("octtopnm %s > %s",oct_file,filename); |
|
559
|
61 rm = sprintf("rm -f %s",oct_file); |
|
|
62 shell_cmd(octtopnm); |
|
|
63 shell_cmd(rm); |
|
|
64 elseif (strcmp(img_form,"ps") == 1) |
|
686
|
65 octtopnm = sprintf("octtopnm %s",oct_file); |
|
559
|
66 ppmtops = sprintf("pnmtops > %s 2> /dev/null", filename); |
|
|
67 octtops = [ octtopnm, " | ", ppmtops ]; |
|
|
68 rm = sprintf("rm -f %s",oct_file); |
|
|
69 shell_cmd(octtops); |
|
|
70 shell_cmd(rm); |
|
|
71 endif |
|
|
72 |
|
|
73 endfunction |
