/***********************************************************************
 * SIVP - Scilab Image and Video Processing toolbox
 * Copyright (C) 2006  Shiqi Yu
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 ***********************************************************************/


#include "common.h"

/************************************************************
 * imout = int_immultiply(im1, im2)
 * !! INT8 is unsupported by this function !!
 ************************************************************/

int int_immultiply(char * fname)
{


  IplImage * pImage1 = NULL;
  IplImage * pImage2 = NULL;
  IplImage * pImageOut = NULL; //output

  CheckRhs(2, 2);
  CheckLhs(1, 1);

  /*convert the matrix to IplImage*/
  pImage1 = Mat2IplImg(1);
  pImage2 = Mat2IplImg(2);

  if( !pImage1 || !pImage2)
    {
      return -1;
    }

  //check input
  
  //if the second input is a scalar double
  if ((pImage2->width == 1) && (pImage2->height ==1))
    {
	  IplImage * pOnesTmp;
      //if not be a scalar double
      if( pImage2->depth != IPL_DEPTH_64F ||
	  pImage2->nChannels != 1)
	{
	  cvReleaseImage(&pImage1);
	  cvReleaseImage(&pImage2);
	  Scierror(999, "%s: The second argument should be a double scalar, or of the same size with the first.\r\n",fname);
	  return -1;
	}
      //create an output image
      pImageOut = cvCreateImage(cvGetSize(pImage1), pImage1->depth, pImage1->nChannels);

      //create an all-one matrix
      pOnesTmp = cvCloneImage(pImage1);
      cvSet(pOnesTmp, cvScalarAll(1.0), NULL);

      cvMul(pImage1,  
	    pOnesTmp,
	    pImageOut,
	    CV_IMAGE_ELEM(pImage2, double, 0, 0 ));

      cvReleaseImage(&pOnesTmp);
    }

  //if the second input is not a scalar double,
  //it should be of the same size and same class
  else
    {
      //must be of the same size
      if((pImage1->width != pImage2->width) || (pImage1->height != pImage2->height))
	{
	  cvReleaseImage(&pImage1);
	  cvReleaseImage(&pImage2);
	  Scierror(999, "%s: The two input images do not have same image size.\r\n",fname);
	  return -1;
	}
      //must be of the same channel number
      if(pImage1->nChannels != pImage2->nChannels)
	{
	  cvReleaseImage(&pImage1);
	  cvReleaseImage(&pImage2);
	  Scierror(999, "%s: The two input images do not have same channel number.\r\n",fname);
	  return -1;
	}
      //must be of the same depth
      if(pImage1->depth != pImage2->depth)
	{
	  cvReleaseImage(&pImage1);
	  cvReleaseImage(&pImage2);
	  Scierror(999, "%s: The two input images do not have same depth.\r\n",fname);
	  return -1;
	}
      //create an output image
      pImageOut = cvCreateImage(cvGetSize(pImage1), pImage1->depth, pImage1->nChannels);

      if(!pImageOut)
	{
	  Scierror(998, "%s: Can not alloc memeory for image.\r\n", fname);
	  cvReleaseImage(&pImage1);
	  cvReleaseImage(&pImage2);
	  return -1;
	}

      cvMul(pImage1, pImage2, pImageOut, 1.0);
    }//end else


  IplImg2Mat(pImageOut, 3);

  LhsVar(1) = 3;
  
  cvReleaseImage(&pImage1);
  cvReleaseImage(&pImage2);
  cvReleaseImage(&pImageOut);

  return 0;

}