1 files changed, 103 insertions, 0 deletions
diff --git a/macros/blobAnalysis.sci b/macros/blobAnalysis.sci
new file mode 100644
index 0000000..216ab7e
--- /dev/null
+++ b/macros/blobAnalysis.sci
@@ -0,0 +1,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
+