imgrtcx

 

	int no_samples;
	int i,j,k;
	int	factor;
	float	temp;

 

	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=x(0);
	pheight=img.height;
	pwidth=img.width;
	mat_PP=img.image_PP;

		   matTrans_PP=(float**)calloc(pheight,sizeof(float*));
		   for(k=0; k
    

/*  Capsim (r) Text Mode Kernel (TMK) Star Library (Blocks)
    Copyright (C) 1989-2002  XCAD 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://capsimtmk.sourceforge.net
    XCAD Corporation
    Raleigh, North Carolina */

 

/* imgrtcx.s */
/***********************************************************************
                             imgrtcx()
************************************************************************
This star inputs a real image widthxheight and creates a new
complex image (2*width)*height with the imaginary part set to zero

imgrtcx


This star inputs a real image widthxheight and creates a new
complex image (2*width)*height with the imaginary part set to zero


Programmer:  	Sasan Ardalan	
Date: 		September 9, 1993

*/