1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
%SAVEPPM Write a PPM format file
%
% SAVEPPM(filename, I)
%
% Saves the specified red, green and blue planes in a binary (P6)
% format PPM image file.
%
% SEE ALSO: loadppm
%
% Copyright (c) Peter Corke, 1999 Machine Vision Toolbox for Matlab
% Peter Corke 1994
function saveppm(fname, I)
I = double(I);
if size(I,3) == 1,
R = I;
G = I;
B = I;
else
R = I(:,:,1);
G = I(:,:,2);
B = I(:,:,3);
end;
%keyboard;
fid = fopen(fname, 'w');
[r,c] = size(R');
fprintf(fid, 'P6\n');
fprintf(fid, '%d %d\n', r, c);
fprintf(fid, '255\n');
R = R';
G = G';
B = B';
im = [R(:) G(:) B(:)];
%im = reshape(im,r,c*3);
im = im';
%im = im(:);
fwrite(fid, im, 'uchar');
fclose(fid);
|
