First CommitHEADmaster

1 files changed, 125 insertions, 0 deletions

diff --git a/sci_gateway/cpp/opencv_contourarea.cpp b/sci_gateway/cpp/opencv_contourarea.cpp
new file mode 100644
index 0000000..ba45b09
--- /dev/null
+++ b/sci_gateway/cpp/opencv_contourarea.cpp
@@ -0,0 +1,125 @@
+/* ==================================================================== */
+/* Author :Priyanka Hiranandani NIT Surat                               */
+/* ==================================================================== */
+/* Syntax : return_area=contourarea(InputArray contour, bool oriented); */
+/* ==================================================================== */
+#include <numeric>
+#include "opencv2/core/core.hpp"
+#include "opencv2/highgui/highgui.hpp"
+#include "opencv2/opencv.hpp"
+#include <iostream>
+#include <sciprint.h>
+//#include<bits/stdc++.h>
+using namespace cv;
+using namespace std;
+  extern "C"
+  {
+  #include "api_scilab.h"
+  #include "Scierror.h"
+  #include "BOOL.h"
+  #include <localization.h>
+  int contourarea(char *fname, unsigned long fname_len)
+    {
+    // Error management variable
+        SciErr sciErr;
+    //variable info
+	int iRows		= 0;
+	int iCols		= 0;
+        int piRows		= 0;
+	int piCols		= 0;
+	int* piAddr		= NULL;
+        int* piAddr2            = NULL;
+        int* piAddr3            = NULL;
+        int* piAddr4            = NULL;
+        int* piAddr5            = NULL;
+        int* piAddr6            = NULL;
+        int* piAddrNew          = NULL;
+	int* piLen		= NULL;
+	double *pstData	        = NULL;
+        char **pstData2    	= NULL;
+        double *rrows;
+        double *rcols;
+        double res;
+        int error;
+        
+         //checking input argument 
+        CheckInputArgument(pvApiCtx,2,2);
+         //checking output argument
+        CheckOutputArgument(pvApiCtx, 1, 1);
+         //for first argument 
+         // get Address of first input  
+        sciErr =getVarAddressFromPosition(pvApiCtx,1,&piAddr);
+          //check for any error
+             if(sciErr.iErr)   
+               {
+               printError(&sciErr, 0);
+               return 0;
+               }      
+           //retrieve input array
+          //SciErr getMatrixOfDouble(void* _pvCtx, int* _piAddress, int* _piRows, int* _piCols, double** _pdblReal)
+        sciErr = getMatrixOfDouble(pvApiCtx, piAddr, &iRows, &iCols,&pstData);
+             if(sciErr.iErr)
+               {
+               printError(&sciErr, 0);
+               return 0;
+               }
+        int k=0;
+        vector<Point> contours;
+        for(int i=0;i<iCols;i++)
+               {   
+               contours.push_back(Point2f(pstData[i],pstData[i+1])) ;   
+               i++;
+               }
+    // get Address of second input  
+        sciErr = getVarAddressFromPosition(pvApiCtx,2,&piAddr2);
+        sciErr = getMatrixOfString(pvApiCtx, piAddr2, &iRows, &iCols, NULL, NULL);
+        if(sciErr.iErr)
+               {
+               printError(&sciErr, 0);
+               return 0;
+               }
+         piLen = (int*)malloc(sizeof(int) * iRows * iCols);
+     //second call to retrieve length of each string of first argument
+         sciErr = getMatrixOfString(pvApiCtx, piAddr2, &iRows, &iCols, piLen, NULL);
+         if(sciErr.iErr)
+               {
+               printError(&sciErr, 0);
+               return 0;
+               }
+         pstData2 = (char**)malloc(sizeof(char*) * iRows * iCols);
+         for(int i = 0 ; i < iRows * iCols ; i++)
+               {
+                pstData2[i] = (char*)malloc(sizeof(char) * (piLen[i] + 1));//+ 1 for null termination
+               }
+    //third call to retrieve data of each string of first argument
+         sciErr = getMatrixOfString(pvApiCtx, piAddr2, &iRows, &iCols, piLen, pstData2);
+         if(sciErr.iErr)
+               {
+               printError(&sciErr, 0);
+               return 0;
+               }
+        
+        if(!strcmp("True",pstData2[0]))
+              {
+               res=contourArea(contours,true);
+              }
+        else if(!strcmp("False",pstData2[0]))
+              {
+               res=contourArea(contours,false);
+              }
+        error=createScalarDouble(pvApiCtx,nbInputArgument(pvApiCtx)+1,res);
+         if(error!=0)
+         {
+           sciprint("error occurred");
+           return 0;    
+         }  
+
+    ////////// Return the output arguments to the Scilab engine //////////
+
+        AssignOutputVariable(pvApiCtx, 1) = nbInputArgument(pvApiCtx) + 1;
+
+        ReturnArguments(pvApiCtx);
+
+        return 0;     
+}
+}