imgwrtiff

 

	int i,j,k,ii;
	unsigned short pixel;
	float	fpixel;

 

	if((ibufs = NO_INPUT_BUFFERS()) != 1) {
		fprintf(stdout,"imgwrtiff: no input buffer\n");
		return(1);
	}
	if((obufs = NO_OUTPUT_BUFFERS()) > ibufs) {
		fprintf(stdout,"imgwrtiff: more output than input buffers\n");
		return(2);
	}
	for(j=0; j
    

 

        /* This mode synchronizes all input buffers */
for(ii = MIN_AVAIL(); ii>0; ii--) {
        IT_IN(0);
	img=x(0);
	pheight=img.height;
	pwidth=img.width;
	mat_PP=img.image_PP;
	fprintf(stderr,"imgwrtiff to produce %d x  %d image file\n",pwidth,pheight);
	if(IIP_WriteMatrixTIFF(mat_PP,pwidth,pheight,fileName)) {
                fprintf(stderr,"imgwrtiff: can't write TIFF image\n");
                return(4);
        }

	if(obufs==1) {
                if(IT_OUT(0)) {
			KrnOverflow("imgwrtiff",0);
			return(99);
		}
                OUTIMAGE(0,0) = img;
        }
}
	
return(0);

/*  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 */
*/

 

/**********************************************************************
			imgwrtiff()
***********************************************************************
Writes an input image to a TIFF file as 8 bit samples. Also store the current
colormap.
If multiple images are received, they overwrite the previous on.
This star can later be modified so that multiple images are stored in a singe
TIFF file (with multiple directories). Or stored in multiple TIFF files
with the file name changing in some manner.
Auto fan out is supported.
Programmer:  Sasan Ardalan 
Date:	October 14, 1993
*/