1 files changed, 46 insertions, 0 deletions

diff --git a/SD-VBS/common/toolbox/toolbox_basic/TOOLBOX_calib/saveinr.m b/SD-VBS/common/toolbox/toolbox_basic/TOOLBOX_calib/saveinr.m
new file mode 100755
index 0000000..a176e39
--- /dev/null
+++ b/SD-VBS/common/toolbox/toolbox_basic/TOOLBOX_calib/saveinr.m
@@ -0,0 +1,46 @@
+%SAVEINR        Write an INRIMAGE format file
+%
+%       SAVEINR(filename, im)
+%
+%       Saves the specified image array in a INRIA image format file.
+%
+% SEE ALSO:     loadinr
+%
+%       Copyright (c) Peter Corke, 1999  Machine Vision Toolbox for Matlab
+
+% Peter Corke 1996
+
+function saveinr(fname, im)
+
+        fid = fopen(fname, 'w');
+        [r,c] = size(im');
+
+        % build the header
+        hdr = [];
+        s = sprintf('#INRIMAGE-4#{\n');
+        hdr = [hdr s];
+        s = sprintf('XDIM=%d\n',c);
+        hdr = [hdr s];
+        s = sprintf('YDIM=%d\n',r);
+        hdr = [hdr s];
+        s = sprintf('ZDIM=1\n');
+        hdr = [hdr s];
+        s = sprintf('VDIM=1\n');
+        hdr = [hdr s];
+        s = sprintf('TYPE=float\n');
+        hdr = [hdr s];
+        s = sprintf('PIXSIZE=32\n');
+        hdr = [hdr s];
+        s = sprintf('SCALE=2**0\n');
+        hdr = [hdr s];
+        s = sprintf('CPU=sun\n#');
+        hdr = [hdr s];
+
+        % make it 256 bytes long and write it
+        hdr256 = zeros(1,256);
+        hdr256(1:length(hdr)) = hdr;
+        fwrite(fid, hdr256, 'uchar');
+
+        % now the binary data
+        fwrite(fid, im', 'float32');
+        fclose(fid)