function M = load_image(name, n0, options)// read an image from a fileif argn(2)<2	n0 = [];endoptions.null = 0;rep = getoptions(options, 'image_rep', './toolbox_signal/');filename = strcat([rep name '.bin']);fid = mopen(filename, 'rb');if fid<0    error('Problem with file loading.');endn = mget(1, 'us', fid);p = mget(1, 'us', fid);M = mget(n*p, 'uc', fid);mclose(fid);if length(M)~=n*p    error('Problem with file loading.');endM = matrix(M, n, p);if not(isempty(n0)) & (n0~=size(M, 1) | n0~=size(M, 2)) & argn(2)>=2	M = image_resize(M,n0);endendfunction