-function varargout = cvcontourperimeter(varargin)\r
-%CVCONTOURPERIMETER Calculate contour perimeter.\r
-% perimeter = cvContourPerimeter(contour);\r
-% contour - m by 2 matrix of contour's points\r
-%\r
-% perimeter = cvContourPerimeter(contour, slice);\r
-% contour - m by 2 matrix of contour's points\r
-% slice - [startIdx endIdx]\r
-\r
-if nargin < 1 | nargin > 2\r
- error 'Invalid number of parameters';\r
- return;\r
-end\r
-\r
-contSize = size(varargin{1});\r
-if ~isnumeric(varargin{1}) | ndims(varargin{1}) ~= 2 | ...\r
- contSize(1) < 1 | contSize(2) ~= 2\r
- error 'Invalid parameter ''contour''';\r
- return;\r
-end;\r
-\r
-if nargin > 1\r
- sliceSize = size(varargin{2});\r
- if ~isnumeric(varargin{2}) | ndims(varargin{2}) ~= 2 | ...\r
- sliceSize(1) ~= 1 | sliceSize(2) ~= 2\r
- error 'Invalid parameter ''slice''';\r
- return;\r
- end; \r
-else\r
- % default: whole contour\r
- varargin{2} = [1 contSize(1)+1];\r
-end;\r
-\r
-if nargout > 0\r
- [varargout{1:nargout}] = feval('cvwrap', 'ContourPerimeter', varargin{:});\r
-else\r
- feval('cvwrap', 'ContourPerimeter', varargin{:});\r
-end\r
-return;
\ No newline at end of file