blob: a176e39951d8a6efb795aef9dae5275e9b2c12d1 (
plain) (
blame)
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
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)
|
