imgcxtrl

 

	image_t	img;
	int no_samples;
	int i,j,k;
	int	factor;
	float	temp;
	float	y,x;
	dsp_floatMatrix_Pt	real_P;

 

	SET_CELL_SIZE_IN(0,sizeof(image_t));
    SET_CELL_SIZE_OUT(0,sizeof(image_t));

 

/*
 * collect the image
 */
for (no_samples = MIN_AVAIL(); no_samples > 0; --no_samples) {
	IT_IN(0);
	img=xx(0);
	pheight=img.height;
	pwidth=img.width;
	mat_PP=img.image_PP;

	real_P=Dsp_AllocateMatrix(pwidth/2,pheight);
   	for(k=0; kheight; k++) {
             for(j=0; jwidth; j++) {
		x=mat_PP[k][2*j];
		y=mat_PP[k][2*j+1];
		real_P->matrix_PP[k][j]=x;
	     }
        }
	if(freeImageFlag) {
                        for(i=0; iwidth;
	img.height=real_P->height;
	img.image_PP=real_P->matrix_PP;
	if(IT_OUT(0)) {
			KrnOverflow("imgcxtrl",0);
			return(99);
	}
	yy(0) = img;
		
			
}
return(0);

/*  Capsim (r) Text Mode Kernel (TMK) Star Library (Blocks)
    Copyright (C) 1989-2017  Silicon DSP Corporation

    This library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Lesser General Public
    License as published by the Free Software Foundation; either
    version 2.1 of the License, or (at your option) any later version.

    This library 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
    Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public
    License along with this library; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

    http://www.silicondsp.com
    Silicon DSP  Corporation
    Las Vegas, Nevada
*/

 

/* imgcxtrl.s */
/***********************************************************************
                             imgcxtrl()
************************************************************************
This star inputs a complex image height*(2*width) and creates a new
real image height*width  of only the real part

imgcxtrl


This star inputs a complex image height*(2*width) and creates a new real image height*width  of only the real part


Programmer:  	Sasan Ardalan	
Date: 		September 9, 1993

*/