vb_mps_pointlist_add_point

 add point to mps_pointlist object.
 [USAGE]
    [obj, result] = vb_mps_pointlist_add_point(<obj>, <name>, <point>);
 [IN]
       obj : mps_pointlist object
      name : point name(char)
     point : imgXYZ
 [OUT]
       obj : mps_pointlist object
    result : true or false(when name was overlappped.)

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

0001 function [obj, result] = vb_mps_pointlist_add_point(obj, name, point)
0002 % add point to mps_pointlist object.
0003 % [USAGE]
0004 %    [obj, result] = vb_mps_pointlist_add_point(<obj>, <name>, <point>);
0005 % [IN]
0006 %       obj : mps_pointlist object
0007 %      name : point name(char)
0008 %     point : imgXYZ
0009 % [OUT]
0010 %       obj : mps_pointlist object
0011 %    result : true or false(when name was overlappped.)
0012 %
0013 % Copyright (C) 2011, ATR All Rights Reserved.
0014 % License : New BSD License(see VBMEG_LICENSE.txt)
0015 
0016 if ~exist('obj', 'var'), error('obj is need parmeter'); end
0017 if ~exist('name', 'var'), error('name is need parameter'); end
0018 if ~exist('point', 'var'), error('point is need parameter'); end
0019 
0020 result = false;
0021 
0022 if ~ischar(name)
0023     warning('name is not char.');
0024     name = char(name);
0025 end
0026 
0027 %
0028 % name overlapping check
0029 %
0030 if ~isempty(strmatch(name, obj.name_list, 'exact'))
0031     return;
0032 end
0033 
0034 %
0035 % --- Add new point to mps_pointlist object
0036 %
0037 obj.name_list{length(obj.name_list) + 1} = name;
0038 obj.point_list{length(obj.point_list) + 1} = point;
0039 
0040 result = true;