1 files changed, 45 insertions, 0 deletions

diff --git a/SD-VBS/common/toolbox/toolbox_basic/TOOLBOX_calib/saveppm.m b/SD-VBS/common/toolbox/toolbox_basic/TOOLBOX_calib/saveppm.m
new file mode 100755
index 0000000..ece092b
--- /dev/null
+++ b/SD-VBS/common/toolbox/toolbox_basic/TOOLBOX_calib/saveppm.m
@@ -0,0 +1,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);
+