disp

 Disp a NIFTI-1 object
 _______________________________________________________________________
 Copyright (C) 2005 Wellcome Department of Imaging Neuroscience

0001 function disp(obj)
0002 % Disp a NIFTI-1 object
0003 % _______________________________________________________________________
0004 % Copyright (C) 2005 Wellcome Department of Imaging Neuroscience
0005 
0006 %
0007 % $Id: disp.m 253 2005-10-13 15:31:34Z guillaume $
0008 
0009 
0010 sz = size(obj);
0011 fprintf('NIFTI object: ');
0012 if length(sz)>4,
0013     fprintf('%d-D\n',length(sz));
0014 else
0015     for i=1:(length(sz)-1),
0016         fprintf('%d-by-',sz(i));
0017     end;
0018     fprintf('%d\n',sz(end));
0019 end;
0020 if prod(sz)==1,
0021     display(structn(obj))
0022 end;
0023 return;