SD-VBS/common/toolbox/toolbox_basic/io/pgmread.m


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

function [img,header] = pgmread(filename)
%
%  [img,header] = pgmread(filename)

[fid, msg] = fopen(filename, 'r');
if fid == -1,
  error(msg)
end

head = [];
good = 0;
while (good == 0) ,
  l = fgetl(fid);
  if (length(l) == 3),
   if (l == '255'),
    good = 1;
    sze = sscanf(header,'%d');
   end
  end
  header= l;
end

img = fread(fid, sze', 'uchar')';
fclose(fid);