1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
function [blob] = blobAnalysis(srcImg, varargin)
// Detects blob in the source image
//
// Calling Sequence
// [blob] = blobAnalysis(srcImg)
// [blob] = blobAnalysis(srcImg, Name, Value)
//
// Parameters
// srcImg: The input image Matrix
// Name: filteration method
// Value: filteration method constraints, [1X2] vector
// blob: stores different parameters of the blob
//
// Description
// The function uses SimpleBlobDetector function to detect the blobs then it checks for different Name Value pair arguments and accordingly returns the parameters of the blob such as 2D coordinates of the blob, size of the blob.
//
// The Name-Value pair may be any of following types :-
// <itemizedlist>
// <listitem><para>bool filterByArea, vector [minArea maxArea]</para></listitem>
// <listitem><para>bool filterByCircularity, vector [minCircularity maxCircularity]</para></listitem>
// <listitem><para>bool filterByConvexity, vector [minConvexity maxConvexity]</para></listitem>
// <listitem><para>bool filterByThreshold, vector [minThreshold maxThreshold]</para></listitem>
// </itemizedlist>
//
// Examples
// [srcImg] = imread('blobdetection.jpg');
// [blob] = blobAnalysis(srcImg);
// [blob] = blobAnalysis(srcImg, "filterByArea", [0.01 1]);
//
// Authors
// Deepshikha
[lhs,rhs] = argn(0)
// To check the number of input and output arguments
if rhs<1 then
error(msprintf(" Not enough input arguments"))
elseif rhs>10 then
error(msprintf(" Too many input arguments to the function"))
elseif lhs<1 then
error(msprintf(" Not enough output arguments"))
elseif lhs>1 then
error(msprintf(" Too many output arguments"))
end
srcMat = mattolist(srcImg)
if modulo(rhs,2) == 0 then
error(msprintf("Number of input arguments must be odd"))
end
select rhs
case 1 then
output = opencv_blobAnalysis(srcMat)
case 3 then
if typeof(varargin(1))<> "string"
error(msprintf("argument at position 2 must be string"))
end
output = opencv_blobAnalysis(srcMat, varargin(1), varargin(2))
case 5 then
if typeof(varargin(1))<> "string"
error(msprintf("argument at position 2 must be string"))
end
if typeof(varargin(3))<> "string"
error(msprintf("argument at position 4 must be string"))
end
output = opencv_blobAnalysis(srcMat, varargin(1), varargin(2), varargin(3), varargin(4))
case 7 then
if typeof(varargin(1))<> "string"
error(msprintf("argument at position 2 must be string"))
end
if typeof(varargin(3))<> "string"
error(msprintf("argument at position 4 must be string"))
end
if typeof(varargin(5))<> "string"
error(msprintf("argument at position 6 must be string"))
end
output = opencv_blobAnalysis(srcMat, varargin(1), varargin(2), varargin(3), varargin(4), varargin(5), varargin(6))
case 9 then
if typeof(varargin(1))<> "string"
error(msprintf("argument at position 2 must be string"))
end
if typeof(varargin(3))<> "string"
error(msprintf("argument at position 4 must be string"))
end
if typeof(varargin(5))<> "string"
error(msprintf("argument at position 6 must be string"))
end
if typeof(varargin(7))<> "string"
error(msprintf("argument at position 8 must be string"))
end
output = opencv_blobAnalysis(srcMat, varargin(1), varargin(2), varargin(3), varargin(4), varargin(5), varargin(6), varargin(7), varargin(8))
end
blob = struct("Points", output(1), "Size", output(2))
endfunction
|
