vb_check_vivid_marker

 check Left to Right order of marker
 marker : [5 x 3]
  Left          Right
  X:  1 4 3 5 2  -> (X: increase)
  SPM Right-hand coordinate   
   X: Left   -> Right
   Y: Back   -> Front
   Z: Bottom -> Top

 Copyright (C) 2011, ATR All Rights Reserved.
 License : New BSD License(see VBMEG_LICENSE.txt)

0001 function    result = vb_check_vivid_marker(marker)
0002 % check Left to Right order of marker
0003 % marker : [5 x 3]
0004 %  Left          Right
0005 %  X:  1 4 3 5 2  -> (X: increase)
0006 %  SPM Right-hand coordinate
0007 %   X: Left   -> Right
0008 %   Y: Back   -> Front
0009 %   Z: Bottom -> Top
0010 %
0011 % Copyright (C) 2011, ATR All Rights Reserved.
0012 % License : New BSD License(see VBMEG_LICENSE.txt)
0013 
0014 result = FAILURE;
0015 
0016 % Left to Right order of marker
0017 order = [1 4 3 5 2];
0018 order = order(:);
0019 
0020 [N, D] = size(marker);
0021 
0022 if D~=3, 
0023     fprintf('Space dimension %d is not 3\n',D); 
0024     return
0025 end;
0026 
0027 if N~=5, 
0028     fprintf('Number of marker %d is not 5\n',N); 
0029     return
0030 end;
0031 
0032 
0033 [tmp, ix] = sort( marker(:,1));
0034 
0035 err = sum(abs(ix - order));
0036 
0037 if err > 0,
0038     fprintf('Left to Right order of marker is unusual\n'); 
0039     return
0040 end;
0041 
0042 result = SUCCESS;