#if _MSC_VER >= 1400

#define _CRT_SECURE_NO_DEPRECATE 1

#endif

#define IS_TIFF_MAIN

#include <unistd.h></unistd.h>

#include "tiio.h"

#include "tpixel.h"

#include "tsystem.h"

#include "../tzp/toonztags.h"

#include "tconvert.h"

#include "tpixelutils.h"

#include "traster.h"

extern "C" {

#include "tiffio.h"

}

#include "tiio_tif.h"

#ifdef WIN32

#pragma warning(disable : 4996)

#include "windows.h"

#endif

//**************************************************************************

//    TifReader  implementation

//**************************************************************************

class TifReader : public Tiio::Reader

{

	TIFF *m_tiff;

	int m_row;

	bool m_tiled, m_stripped;

	int m_rowsPerStrip;

	int m_stripIndex;

	int m_rowLength;

	UCHAR *m_stripBuffer;

	double m_xdpi, m_ydpi;

	Tiio::RowOrder m_rowOrder;

	bool is16bitEnabled;

	bool m_isTzi;

	TRasterGR8P m_tmpRas;

public:

	TifReader(bool isTzi);

	~TifReader();

	void open(FILE *file);

	Tiio::RowOrder getRowOrder() const

	{

		return m_rowOrder;

	}

	virtual bool read16BitIsEnabled() const { return false; }

	virtual void enable16BitRead(bool enabled) { is16bitEnabled = enabled; }

	int skipLines(int lineCount);

	void readLine(char *buffer, int x0, int x1, int shrink);

	void readLine(short *buffer, int x0, int x1, int shrink);

};

//------------------------------------------------------------

TifReader::TifReader(bool isTzi)

	: m_tiff(0), m_row(0), m_rowsPerStrip(0), m_stripIndex(-1)

	  //, m_stripBuffer(0)

	  ,

	  m_rowLength(0), m_xdpi(0), m_ydpi(0), m_rowOrder(Tiio::TOP2BOTTOM), is16bitEnabled(true), m_isTzi(isTzi), m_tmpRas(0)

{

	TIFFSetWarningHandler(0);

}

//------------------------------------------------------------

TifReader::~TifReader()

{

	if (m_tiff)

		TIFFClose(m_tiff);

	if (m_tmpRas)

		m_tmpRas->unlock();

	delete m_info.m_properties;

}

//------------------------------------------------------------

void TifReader::open(FILE *file)

{

	int fd = fileno(file);

#if 0

	m_tiff = TIFFFdOpenNoCloseProc(fd, "", "rb");

#else

	m_tiff = TIFFFdOpen(dup(fd), "", "rb");

#endif

	if (!m_tiff) {

		string str("Tiff file closed");

		throw(str);

	}

	uint32 w = 0, h = 0, rps = 0;

	uint16 bps = 0, spp = 0;

	uint32 tileWidth = 0, tileLength = 0;

	//TIFFSetDirectory(m_tiff,1);

	//TIFFGetField(m_tiff, TIFFTAG_PAGENUMBER, &pn);

	//int pn = TIFFNumberOfDirectories(m_tiff);

	//TIFFSetDirectory(m_tiff,1);

	TIFFGetField(m_tiff, TIFFTAG_IMAGEWIDTH, &w);

	TIFFGetField(m_tiff, TIFFTAG_IMAGELENGTH, &h);

	TIFFGetField(m_tiff, TIFFTAG_BITSPERSAMPLE, &bps);

	TIFFGetField(m_tiff, TIFFTAG_SAMPLESPERPIXEL, &spp);

	TIFFGetField(m_tiff, TIFFTAG_ROWSPERSTRIP, &rps);

	//int stripCount = TIFFNumberOfStrips(m_tiff);

	//int tileCount = TIFFNumberOfTiles(m_tiff);

	TIFFGetField(m_tiff, TIFFTAG_TILEWIDTH, &tileWidth);

	TIFFGetField(m_tiff, TIFFTAG_TILELENGTH, &tileLength);

	Tiio::TifWriterProperties *prop = new Tiio::TifWriterProperties();

	m_info.m_properties = prop;

	uint16 orient = Tiio::TOP2BOTTOM;

	if (TIFFGetField(m_tiff, TIFFTAG_ORIENTATION, &orient)) {

		switch (orient) {

		case ORIENTATION_TOPLEFT: /* row 0 top, col 0 lhs */

			prop->m_orientation.setValue(TNZ_INFO_ORIENT_TOPLEFT);

			m_rowOrder = Tiio::TOP2BOTTOM;

			break;

		case ORIENTATION_TOPRIGHT: /* row 0 top, col 0 rhs */

			prop->m_orientation.setValue(TNZ_INFO_ORIENT_TOPRIGHT);

			m_rowOrder = Tiio::TOP2BOTTOM;

			break;

		case ORIENTATION_LEFTTOP: /* row 0 lhs, col 0 top */

			prop->m_orientation.setValue(TNZ_INFO_ORIENT_LEFTTOP);

			m_rowOrder = Tiio::TOP2BOTTOM;

			break;

		case ORIENTATION_RIGHTTOP: /* row 0 rhs, col 0 top */

			prop->m_orientation.setValue(TNZ_INFO_ORIENT_RIGHTTOP);

			m_rowOrder = Tiio::TOP2BOTTOM;

			break;

		case ORIENTATION_BOTRIGHT: /* row 0 bottom, col 0 rhs */

			prop->m_orientation.setValue(TNZ_INFO_ORIENT_BOTRIGHT);

			m_rowOrder = Tiio::BOTTOM2TOP;

			break;

		case ORIENTATION_BOTLEFT: /* row 0 bottom, col 0 lhs */

			prop->m_orientation.setValue(TNZ_INFO_ORIENT_BOTLEFT);

			m_rowOrder = Tiio::BOTTOM2TOP;

			break;

		case ORIENTATION_RIGHTBOT: /* row 0 rhs, col 0 bottom */

			prop->m_orientation.setValue(TNZ_INFO_ORIENT_RIGHTBOT);

			m_rowOrder = Tiio::BOTTOM2TOP;

			break;

		case ORIENTATION_LEFTBOT: /* row 0 lhs, col 0 bottom */

			prop->m_orientation.setValue(TNZ_INFO_ORIENT_LEFTBOT);

			m_rowOrder = Tiio::BOTTOM2TOP;

			break;

		default:

			prop->m_orientation.setValue(TNZ_INFO_ORIENT_NONE);

			m_rowOrder = Tiio::TOP2BOTTOM;

			break;

		}

	}

	USHORT compression;

	TIFFGetField(m_tiff, TIFFTAG_COMPRESSION, &compression);

	switch (compression) {

	case COMPRESSION_LZW:

		prop->m_compressionType.setValue(TNZ_INFO_COMPRESS_LZW);

		break;

	case COMPRESSION_PACKBITS:

		prop->m_compressionType.setValue(TNZ_INFO_COMPRESS_PACKBITS);

		break;

	case COMPRESSION_THUNDERSCAN:

		prop->m_compressionType.setValue(TNZ_INFO_COMPRESS_THUNDERSCAN);

		break;

	case COMPRESSION_CCITTFAX3:

		prop->m_compressionType.setValue(TNZ_INFO_COMPRESS_CCITTFAX3);

		break;

	case COMPRESSION_CCITTFAX4:

		prop->m_compressionType.setValue(TNZ_INFO_COMPRESS_CCITTFAX4);

		break;

	case COMPRESSION_CCITTRLE:

		prop->m_compressionType.setValue(TNZ_INFO_COMPRESS_CCITTRLE);

		break;

	case COMPRESSION_JPEG:

		prop->m_compressionType.setValue(TNZ_INFO_COMPRESS_JPEG);

		break;

	case COMPRESSION_OJPEG:

		prop->m_compressionType.setValue(TNZ_INFO_COMPRESS_OJPEG);

		break;

	case COMPRESSION_NONE:

		prop->m_compressionType.setValue(TNZ_INFO_COMPRESS_NONE);

		break;

	case COMPRESSION_SGILOG:

		prop->m_compressionType.setValue(TNZ_INFO_COMPRESS_SGILOG);

		break;

	case COMPRESSION_SGILOG24:

		prop->m_compressionType.setValue(TNZ_INFO_COMPRESS_SGILOG24);

		break;

	case COMPRESSION_ADOBE_DEFLATE:

		prop->m_compressionType.setValue(TNZ_INFO_COMPRESS_ADOBE_DEFLATE);

		break;

	case COMPRESSION_DEFLATE:

		prop->m_compressionType.setValue(TNZ_INFO_COMPRESS_DEFLATE);

		break;

	/*default :

      prop->m_compressionType.setValue(TNZ_INFO_COMPRESS_UNKNOWN);

      break;*/

	default:

		assert(0);

	}

	float xdpi = 0, ydpi = 0;

	TIFFGetField(m_tiff, TIFFTAG_XRESOLUTION, &xdpi);

	TIFFGetField(m_tiff, TIFFTAG_YRESOLUTION, &ydpi);

	bool swapxy = false; // orient == ORIENTATION_RIGHTTOP;

	if (swapxy) {

		tswap(w, h);

		tswap(xdpi, ydpi);

	}

	m_xdpi = xdpi;

	m_ydpi = ydpi;

	m_info.m_lx = w;

	m_info.m_ly = h;

	m_info.m_dpix = xdpi;

	m_info.m_dpiy = ydpi;

	m_info.m_samplePerPixel = spp;

	if (bps == 64 && spp == 3)

		bps = 16; //immagine con bpp = 192

	uint16 photometric; //codice di controllo

	TIFFGetField(m_tiff, TIFFTAG_PHOTOMETRIC, &photometric);

	if (photometric == 3 && (bps == 2 || bps == 4)) //immagini con PHOTOMATRIC_PALETTE

		bps = 8;

	if (photometric == 1 && (bps == 12 || bps == 24))

		bps = 16;

	if (bps == 6)

		bps = 4; //immagini con bps = 6

	if (bps == 10 || bps == 12 || bps == 14) //immagini con bps = 10 , 12 , 14 , 24 , 32

		bps = 8;

	if (bps == 24 || bps == 32)

		bps = 16;

	m_info.m_bitsPerSample = bps;

	if (bps == 8)

		switch (spp) {

		case 1: /* row 0 top, col 0 lhs */

			prop->m_bitsPerPixel.setValue(L" 8(GREYTONES)");

			break;

		case 3: /* row 0 top, col 0 lhs */

			prop->m_bitsPerPixel.setValue(L"24(RGB)");

			break;

		case 4: /* row 0 top, col 0 lhs */

			prop->m_bitsPerPixel.setValue(L"32(RGBM)");

			break;

		}

	else if (bps == 16)

		switch (spp) {

		case 1: /* row 0 top, col 0 lhs */

			//prop->m_bitsPerPixel.setValue(L"16(GREYTONES)");

			break;

		case 3: /* row 0 top, col 0 lhs */

			prop->m_bitsPerPixel.setValue(L"48(RGB)");

			break;

		case 4: /* row 0 top, col 0 lhs */

			prop->m_bitsPerPixel.setValue(L"64(RGBM)");

			break;

		}

	else if (bps == 2)

		switch (spp) {

		case 1: /* row 0 top, col 0 lhs */

			prop->m_bitsPerPixel.setValue(L"32(RGBM)");

			break;

		case 3: /* row 0 top, col 0 lhs */

			prop->m_bitsPerPixel.setValue(L"32(RGBM)");

			break;

		case 4: /* row 0 top, col 0 lhs */

			prop->m_bitsPerPixel.setValue(L"32(RGBM)");

			break;

		}

	else if (bps == 1)

		switch (spp) {

		case 1: /* row 0 top, col 0 lhs */

			prop->m_bitsPerPixel.setValue(L" 1(BW)");

			break;

		case 3: /* row 0 top, col 0 lhs */

			prop->m_bitsPerPixel.setValue(L"32(RGBM)");

			break;

		case 4: /* row 0 top, col 0 lhs */

			prop->m_bitsPerPixel.setValue(L"32(RGBM)");

			break;

		}

	else if (bps == 4)

		switch (spp) {

		case 1: /* row 0 top, col 0 lhs */

			prop->m_bitsPerPixel.setValue(L" 8(GREYTONES)");

			break;

		case 3: /* row 0 top, col 0 lhs */

			prop->m_bitsPerPixel.setValue(L"32(RGBM)");

			break;

		case 4: /* row 0 top, col 0 lhs */

			prop->m_bitsPerPixel.setValue(L"32(RGBM)");

			break;

		}

	else if (bps == 64 && spp == 3)

		prop->m_bitsPerPixel.setValue(L"64(RGBM)");

	else

		assert(false);

	if (TIFFIsTiled(m_tiff)) {

		m_rowsPerStrip = tileLength;

		int tilesPerRow = (w + tileWidth - 1) / tileWidth;

		//m_rowLength = tileWidth * tilesPerRow;

		m_rowLength = m_info.m_lx;

		int pixelSize = bps == 16 ? 8 : 4;

		int stripSize = m_rowsPerStrip * m_rowLength * pixelSize;

		m_tmpRas = TRasterGR8P(stripSize, 1);

		m_tmpRas->lock();

		m_stripBuffer = m_tmpRas->getRawData();

	} else {

		m_rowsPerStrip = rps;

		//if(m_rowsPerStrip<=0) m_rowsPerStrip = 1;			//potrei mettere qualsiasi valore

		//purchè sia lo stesso in tif_getimage.c linea 2512

		//if(m_rowsPerStrip==-1) assert(0);

		if (m_rowsPerStrip <= 0)

			m_rowsPerStrip = m_info.m_ly;

		int stripSize = m_rowsPerStrip * w * 4; // + 4096;  TIFFStripSize(m_tiff);

		if (bps == 16)

			stripSize *= 2;

		m_tmpRas = TRasterGR8P(stripSize, 1);

		m_tmpRas->lock();

		m_stripBuffer = m_tmpRas->getRawData();

		m_rowLength = m_info.m_lx; //w;

	}

	/* 

  int TIFFTileRowSize(m_tiff);

  m_rowsPerStrip = 0;

  if(TIFFGetField(m_tiff, TIFFTAG_ROWSPERSTRIP, &rps) )

    {

     int stripSize = TIFFStripSize(m_tiff);

     if(stripSize>0)

       {

       }

    }

    */

	if (m_isTzi) {

		USHORT risCount = 0;

		USHORT *risArray = 0;

		if (TIFFGetField(m_tiff, TIFFTAG_TOONZWINDOW, &risCount, &risArray)) {

			if (m_info.m_lx == risArray[2] && m_info.m_ly == risArray[3]) //se sono diverse, la lettura tif crasha....

			{

				//m_info.m_lx = risArray[2];

				//m_info.m_ly = risArray[3];

				m_info.m_x0 = risArray[0];

				m_info.m_y0 = risArray[1];

			}

			//      USHORT extraMask = risArray[4];

			//bool isEduFile = risArray[TOONZWINDOW_COUNT - 1] & 1;

		} else {

			m_info.m_x0 = 0;

			m_info.m_y0 = 0;

		}

		if (swapxy) {

			tswap(m_info.m_x0, m_info.m_y0);

			tswap(m_info.m_lx, m_info.m_ly);

		}

		m_info.m_x1 = m_info.m_x0 + w;

		m_info.m_y1 = m_info.m_y0 + h;

	} else {

		m_info.m_x0 = m_info.m_y0 = 0;

		m_info.m_x1 = m_info.m_x0 + m_info.m_lx - 1;

		m_info.m_y1 = m_info.m_y0 + m_info.m_ly - 1;

	}

}

//------------------------------------------------------------

int TifReader::skipLines(int lineCount)

{

	m_row += lineCount;

	return lineCount;

}

//------------------------------------------------------------

#include "timage_io.h"

void TifReader::readLine(short *buffer, int x0, int x1, int shrink)

{

	assert(shrink > 0);

	const int pixelSize = 8;

	int stripRowSize = m_rowLength * pixelSize;

	if (m_row < m_info.m_y0 || m_row > m_info.m_y1) {

		memset(buffer, 0, (x1 - x0 + 1) * pixelSize);

		m_row++;

		return;

	}

	int stripIndex = m_row / m_rowsPerStrip;

	if (m_stripIndex != stripIndex) {

		// Retrieve the strip holding current row. Please, observe that

		// TIFF functions will return the strip buffer in the BOTTOM-UP orientation,

		// no matter the internal tif's orientation storage

		m_stripIndex = stripIndex;

		if (TIFFIsTiled(m_tiff)) {

			// Retrieve tiles size

			uint32 tileWidth = 0, tileHeight = 0;

			TIFFGetField(m_tiff, TIFFTAG_TILEWIDTH, &tileWidth);

			TIFFGetField(m_tiff, TIFFTAG_TILELENGTH, &tileHeight);

			assert(tileWidth > 0 && tileHeight > 0);

			// Allocate a sufficient buffer to store a single tile

			int tileSize = tileWidth * tileHeight;

			uint64 *tile = new uint64[tileSize];

			int x = 0;

			int y = tileHeight * m_stripIndex;

			// In case it's the last tiles row, the tile size might exceed the image bounds

			int lastTy = tmin((int)tileHeight, m_info.m_ly - y);

			// Traverse the tiles row

			while (x < m_info.m_lx) {

				int ret = TIFFReadRGBATile_64(m_tiff, x, y, tile);

				assert(ret);

				int tileRowSize = tmin((int)tileWidth, m_info.m_lx - x) * pixelSize;

				// Copy the tile rows in the corresponding output strip rows

				for (int ty = 0; ty < lastTy; ++ty) {

					memcpy(

						m_stripBuffer + (ty * m_rowLength + x) * pixelSize,

						(UCHAR *)tile + ty * tileWidth * pixelSize,

						tileRowSize);

				}

				x += tileWidth;

			}

			delete[] tile;

		} else {

			int y = m_rowsPerStrip * m_stripIndex;

			int ok = TIFFReadRGBAStrip_64(m_tiff, y, (uint64 *)m_stripBuffer);

			assert(ok);

		}

	}

	uint16 orient = ORIENTATION_TOPLEFT;

	TIFFGetField(m_tiff, TIFFTAG_ORIENTATION, &orient);

	int r = m_rowsPerStrip - 1 - (m_row % m_rowsPerStrip);

	switch (orient) // Pretty weak check for top/bottom orientation

	{

	case ORIENTATION_TOPLEFT:

	case ORIENTATION_TOPRIGHT:

	case ORIENTATION_LEFTTOP:

	case ORIENTATION_RIGHTTOP: {

		// We have to invert the fixed BOTTOM-UP returned by TIFF functions - since this function is

		// supposed to ignore orientation issues (which are managed outside).

		// The last tiles row will actually start at the END OF THE IMAGE (not necessarily at

		// m_rowsPerStrip multiples). So, we must adjust for that.

		r = tmin(m_rowsPerStrip, m_info.m_ly - m_rowsPerStrip * m_stripIndex) - 1 -

			(m_row % m_rowsPerStrip);

	}

		CASE ORIENTATION_BOTRIGHT : case ORIENTATION_BOTLEFT : case ORIENTATION_RIGHTBOT : case ORIENTATION_LEFTBOT : r = m_row % m_rowsPerStrip;

	}

	// Finally, copy the strip row to the output row buffer

	TPixel64 *pix = (TPixel64 *)buffer;

	USHORT *v = (USHORT *)(m_stripBuffer + r * stripRowSize);

	pix += x0;

	v += 4 * x0;

	int width = (x1 < x0) ? (m_info.m_lx - 1) / shrink + 1 : (x1 - x0) / shrink + 1;

	for (int i = 0; i < width; i++) {

		USHORT c = *v++;

		pix->r = c;

		c = *v++;

		pix->g = c;

		c = *v++;

		pix->b = c;

		c = *v++;

		pix->m = c;

		pix += shrink;

		v += 4 * (shrink - 1);

	}

	m_row++;

}

//===============================================================

void TifReader::readLine(char *buffer, int x0, int x1, int shrink)

{

	if (this->m_info.m_bitsPerSample == 16 && this->m_info.m_samplePerPixel >= 3) {

		vector<short> app(4 * (m_info.m_lx));</short>

		readLine(&app[0], x0, x1, shrink);

		TPixel64 *pixin = (TPixel64 *)&app[0];

		TPixel32 *pixout = (TPixel32 *)buffer;

		for (int j = 0; j < x0; j++) {

			pixout++;

			pixin++;

		}

		for (int i = 0; i < (x1 - x0) + 1; i++)

			*pixout++ = PixelConverter<tpixel32>::from(*pixin++);</tpixel32>

		return;

	}

	assert(shrink > 0);

	const int pixelSize = 4;

	int stripRowSize = m_rowLength * pixelSize;

	if (m_row < m_info.m_y0 || m_row > m_info.m_y1) {

		memset(buffer, 0, (x1 - x0 + 1) * pixelSize);

		m_row++;

		return;

	}

	int stripIndex = m_row / m_rowsPerStrip;

	if (m_stripIndex != stripIndex) {

		m_stripIndex = stripIndex;

		if (TIFFIsTiled(m_tiff)) {

			uint32 tileWidth = 0, tileHeight = 0;

			TIFFGetField(m_tiff, TIFFTAG_TILEWIDTH, &tileWidth);

			TIFFGetField(m_tiff, TIFFTAG_TILELENGTH, &tileHeight);

			assert(tileWidth > 0 && tileHeight > 0);

			int tileSize = tileWidth * tileHeight;

			uint32 *tile = new uint32[tileSize];

			int x = 0;

			int y = tileHeight * m_stripIndex;

			int lastTy = tmin((int)tileHeight, m_info.m_ly - y);

			while (x < m_info.m_lx) {

				int ret = TIFFReadRGBATile(m_tiff, x, y, tile);

				assert(ret);

				int tileRowSize = tmin((int)tileWidth, (int)(m_info.m_lx - x)) * pixelSize;

				for (int ty = 0; ty < lastTy; ++ty) {

					memcpy(

						m_stripBuffer + (ty * m_rowLength + x) * pixelSize,

						(UCHAR *)tile + ty * tileWidth * pixelSize,

						tileRowSize);

				}

				x += tileWidth;

			}

			delete[] tile;

		} else {

			int y = m_rowsPerStrip * m_stripIndex;

			int ok = TIFFReadRGBAStrip(m_tiff, y, (uint32 *)m_stripBuffer);

			assert(ok);

		}

	}

	uint16 orient = ORIENTATION_TOPLEFT;

	TIFFGetField(m_tiff, TIFFTAG_ORIENTATION, &orient);

	int r = m_rowsPerStrip - 1 - (m_row % m_rowsPerStrip);

	switch (orient) // Pretty weak check for top/bottom orientation

	{

	case ORIENTATION_TOPLEFT:

	case ORIENTATION_TOPRIGHT:

	case ORIENTATION_LEFTTOP:

	case ORIENTATION_RIGHTTOP: {

		// We have to invert the fixed BOTTOM-UP returned by TIFF functions - since this function is

		// supposed to ignore orientation issues (which are managed outside).

		// The last tiles row will actually start at the END OF THE IMAGE (not necessarily at

		// m_rowsPerStrip multiples). So, we must adjust for that.

		r = tmin(m_rowsPerStrip, m_info.m_ly - m_rowsPerStrip * m_stripIndex) - 1 -

			(m_row % m_rowsPerStrip);

	}

		CASE ORIENTATION_BOTRIGHT : case ORIENTATION_BOTLEFT : case ORIENTATION_RIGHTBOT : case ORIENTATION_LEFTBOT : r = m_row % m_rowsPerStrip;

	}

	TPixel32 *pix = (TPixel32 *)buffer;

	uint32 *v = (uint32 *)(m_stripBuffer + r * stripRowSize);

	pix += x0;

	v += x0;

	int width = (x1 < x0) ? (m_info.m_lx - 1) / shrink + 1 : (x1 - x0) / shrink + 1;

	for (int i = 0; i < width; i++) {

		uint32 c = *v;

		pix->r = (UCHAR)TIFFGetR(c);

		pix->g = (UCHAR)TIFFGetG(c);

		pix->b = (UCHAR)TIFFGetB(c);

		pix->m = (UCHAR)TIFFGetA(c);

		v += shrink;

		pix += shrink;

	}

	m_row++;

}

//============================================================

Tiio::TifWriterProperties::TifWriterProperties()

	: m_byteOrdering("Byte Ordering"), m_compressionType("Compression Type"), m_bitsPerPixel("Bits Per Pixel"), m_orientation("Orientation")

{

	m_byteOrdering.addValue(L"IBM PC");

	m_byteOrdering.addValue(L"Mac");

#ifdef WIN32

	m_byteOrdering.setValue(L"IBM PC");

#else

	m_byteOrdering.setValue(L"Mac");

#endif

	m_compressionType.addValue(TNZ_INFO_COMPRESS_LZW);

	m_compressionType.addValue(TNZ_INFO_COMPRESS_NONE);

	m_compressionType.addValue(TNZ_INFO_COMPRESS_PACKBITS);

	m_compressionType.addValue(TNZ_INFO_COMPRESS_THUNDERSCAN);

	m_compressionType.addValue(TNZ_INFO_COMPRESS_CCITTFAX3);

	m_compressionType.addValue(TNZ_INFO_COMPRESS_CCITTFAX4);

	m_compressionType.addValue(TNZ_INFO_COMPRESS_CCITTRLE);

	m_compressionType.addValue(TNZ_INFO_COMPRESS_JPEG);

	m_compressionType.addValue(TNZ_INFO_COMPRESS_OJPEG);

	m_compressionType.addValue(TNZ_INFO_COMPRESS_SGILOG);

	m_compressionType.addValue(TNZ_INFO_COMPRESS_SGILOG24);

	m_compressionType.addValue(TNZ_INFO_COMPRESS_ADOBE_DEFLATE);

	m_compressionType.addValue(TNZ_INFO_COMPRESS_DEFLATE);

	m_compressionType.addValue(TNZ_INFO_COMPRESS_UNKNOWN);

	m_compressionType.setValue(TNZ_INFO_COMPRESS_LZW);

	m_bitsPerPixel.addValue(L"24(RGB)");

	m_bitsPerPixel.addValue(L"48(RGB)");

	m_bitsPerPixel.addValue(L" 1(BW)");		   // WATCH OUT! If you reorder this remember to look for

	m_bitsPerPixel.addValue(L" 8(GREYTONES)"); // TRasterImage::isScanBW() usage that bpp choice index

	//m_bitsPerPixel.addValue(L"16(GREYTONES)");                  // is HARDCODED nearby...                   -.-'

	m_bitsPerPixel.addValue(L"32(RGBM)");

	m_bitsPerPixel.addValue(L"64(RGBM)");

	m_bitsPerPixel.setValue(L"32(RGBM)");

	m_orientation.addValue(TNZ_INFO_ORIENT_TOPLEFT);

	m_orientation.addValue(TNZ_INFO_ORIENT_TOPRIGHT);

	m_orientation.addValue(TNZ_INFO_ORIENT_BOTRIGHT);

	m_orientation.addValue(TNZ_INFO_ORIENT_BOTLEFT);

	m_orientation.addValue(TNZ_INFO_ORIENT_LEFTTOP);

	m_orientation.addValue(TNZ_INFO_ORIENT_RIGHTTOP);

	m_orientation.addValue(TNZ_INFO_ORIENT_RIGHTBOT);

	m_orientation.addValue(TNZ_INFO_ORIENT_LEFTBOT);

	//m_orientation.setValue(TNZ_INFO_ORIENT_TOPLEFT);

	bind(m_byteOrdering);

	bind(m_compressionType);

	bind(m_bitsPerPixel);

	bind(m_orientation);

}

//============================================================

class TifWriter : public Tiio::Writer

{

	TIFF *m_tiff;

	int m_row;

	//Tiio::TifWriterProperties m_properties;

	unsigned char *m_lineBuffer;

	Tiio::RowOrder m_rowOrder;

	int m_bpp;

	int m_RightToLeft;

	void fillBits(UCHAR *bufout, UCHAR *bufin, int lx, int incr);

public:

	TifWriter();

	~TifWriter();

	void open(FILE *file, const TImageInfo &info);

	void writeLine(char *buffer);

	void writeLine(short *buffer);

	void flush();

	Tiio::RowOrder getRowOrder() const

	{

		return m_rowOrder;

	}

};

//------------------------------------------------------------

TifWriter::TifWriter()

	: m_tiff(0), m_row(-1), m_lineBuffer(0), m_RightToLeft(false)

{

	TIFFSetWarningHandler(0);

}

//------------------------------------------------------------

TifWriter::~TifWriter()

{

	if (m_tiff)

		TIFFClose(m_tiff);

	delete m_lineBuffer;

	delete m_properties;

}

//------------------------------------------------------------

void TifWriter::open(FILE *file, const TImageInfo &info)

{

	m_info = info;

	string mode = "w";

	if (!m_properties)

		m_properties = new Tiio::TifWriterProperties();

	wstring byteOrdering = ((TEnumProperty *)(m_properties->getProperty("Byte Ordering")))->getValue();

	if (byteOrdering == L"IBM PC")

		mode += "l";

	else

		mode += "b";

	TEnumProperty *p = (TEnumProperty *)(m_properties->getProperty("Bits Per Pixel"));

	assert(p);

	string str = toString(p->getValue());

	//const char* str = toString(p->getValue()).c_str();

	m_bpp = atoi(str.c_str());

	assert(m_bpp == 1 || m_bpp == 8 || m_bpp == 16 || m_bpp == 24 || m_bpp == 32 || m_bpp == 48 || m_bpp == 64);

	int fd = fileno(file);

#if 0

	m_tiff = TIFFFdOpenNoCloseProc(fd, "", mode.c_str());

#else

	m_tiff = TIFFFdOpen(dup(fd), "", mode.c_str());

#endif

	if (!m_tiff)

		return;

	wstring worientation = ((TEnumProperty *)(m_properties->getProperty("Orientation")))->getValue();

	int orientation;

	if (worientation == TNZ_INFO_ORIENT_TOPLEFT)

		orientation = ORIENTATION_TOPLEFT;

	else if (worientation == TNZ_INFO_ORIENT_TOPRIGHT)

		orientation = ORIENTATION_TOPRIGHT;

	else if (worientation == TNZ_INFO_ORIENT_BOTRIGHT)

		orientation = ORIENTATION_BOTRIGHT;

	else if (worientation == TNZ_INFO_ORIENT_BOTLEFT)

		orientation = ORIENTATION_BOTLEFT;

	else if (worientation == TNZ_INFO_ORIENT_LEFTTOP)

		orientation = ORIENTATION_LEFTTOP;

	else if (worientation == TNZ_INFO_ORIENT_RIGHTTOP)

		orientation = ORIENTATION_RIGHTTOP;

	else if (worientation == TNZ_INFO_ORIENT_RIGHTBOT)

		orientation = ORIENTATION_RIGHTBOT;

	else if (worientation == TNZ_INFO_ORIENT_LEFTBOT)

		orientation = ORIENTATION_LEFTBOT;

	else

		assert(0);

	switch (orientation) {

	case ORIENTATION_TOPLEFT: /* row 0 top, col 0 lhs */

		m_rowOrder = Tiio::TOP2BOTTOM;

		break;

	case ORIENTATION_TOPRIGHT: /* row 0 top, col 0 rhs */

		m_rowOrder = Tiio::TOP2BOTTOM;

		break;

	case ORIENTATION_LEFTTOP: /* row 0 lhs, col 0 top */

		m_rowOrder = Tiio::TOP2BOTTOM;

		break;

	case ORIENTATION_RIGHTTOP: /* row 0 rhs, col 0 top */

		m_rowOrder = Tiio::TOP2BOTTOM;

		break;

	case ORIENTATION_BOTRIGHT: /* row 0 bottom, col 0 rhs */

		m_rowOrder = Tiio::BOTTOM2TOP;

		break;

	case ORIENTATION_BOTLEFT: /* row 0 bottom, col 0 lhs */

		m_rowOrder = Tiio::BOTTOM2TOP;

		break;

	case ORIENTATION_RIGHTBOT: /* row 0 rhs, col 0 bottom */

		m_rowOrder = Tiio::BOTTOM2TOP;

		break;

	case ORIENTATION_LEFTBOT: /* row 0 lhs, col 0 bottom */

		m_rowOrder = Tiio::BOTTOM2TOP;

		break;

	default:

		m_rowOrder = Tiio::TOP2BOTTOM;

		break;

	}

	m_RightToLeft = false;

	if (orientation == ORIENTATION_TOPRIGHT || orientation == ORIENTATION_BOTRIGHT ||

		orientation == ORIENTATION_RIGHTTOP || orientation == ORIENTATION_RIGHTBOT)

		m_RightToLeft = true;

	int bitsPerSample = (m_bpp == 1) ? 1 : ((m_bpp == 8 || m_bpp == 24 || m_bpp == 32) ? 8 : 16);

	TIFFSetField(m_tiff, TIFFTAG_IMAGEWIDTH, m_info.m_lx);

	TIFFSetField(m_tiff, TIFFTAG_IMAGELENGTH, m_info.m_ly);

	TIFFSetField(m_tiff, TIFFTAG_BITSPERSAMPLE, bitsPerSample);

	TIFFSetField(m_tiff, TIFFTAG_SAMPLESPERPIXEL, m_bpp / bitsPerSample);

	TIFFSetField(m_tiff, TIFFTAG_ORIENTATION, orientation);

	if (m_bpp == 1)

		TIFFSetField(m_tiff, TIFFTAG_COMPRESSION, COMPRESSION_CCITTFAX4);

	else {

		wstring compressionType = ((TEnumProperty *)(m_properties->getProperty("Compression Type")))->getValue();

		if (compressionType == TNZ_INFO_COMPRESS_LZW)

			TIFFSetField(m_tiff, TIFFTAG_COMPRESSION, COMPRESSION_LZW);

		else if (compressionType == TNZ_INFO_COMPRESS_PACKBITS)

			TIFFSetField(m_tiff, TIFFTAG_COMPRESSION, COMPRESSION_PACKBITS);

		else if (compressionType == TNZ_INFO_COMPRESS_CCITTFAX3)

			TIFFSetField(m_tiff, TIFFTAG_COMPRESSION, COMPRESSION_CCITTFAX3);

		else if (compressionType == TNZ_INFO_COMPRESS_CCITTFAX4)

			TIFFSetField(m_tiff, TIFFTAG_COMPRESSION, COMPRESSION_CCITTFAX4);

		else if (compressionType == TNZ_INFO_COMPRESS_CCITTRLE)

			TIFFSetField(m_tiff, TIFFTAG_COMPRESSION, COMPRESSION_CCITTRLE);

		else if (compressionType == TNZ_INFO_COMPRESS_JPEG)

			TIFFSetField(m_tiff, TIFFTAG_COMPRESSION, COMPRESSION_JPEG);

		else if (compressionType == TNZ_INFO_COMPRESS_OJPEG)

			TIFFSetField(m_tiff, TIFFTAG_COMPRESSION, COMPRESSION_OJPEG);

		else if (compressionType == TNZ_INFO_COMPRESS_NONE)

			TIFFSetField(m_tiff, TIFFTAG_COMPRESSION, COMPRESSION_NONE);

		else if (compressionType == TNZ_INFO_COMPRESS_THUNDERSCAN)

			TIFFSetField(m_tiff, TIFFTAG_COMPRESSION, COMPRESSION_THUNDERSCAN);

		else if (compressionType == TNZ_INFO_COMPRESS_ADOBE_DEFLATE)

			TIFFSetField(m_tiff, TIFFTAG_COMPRESSION, COMPRESSION_ADOBE_DEFLATE);

		else if (compressionType == TNZ_INFO_COMPRESS_DEFLATE)

			TIFFSetField(m_tiff, TIFFTAG_COMPRESSION, COMPRESSION_DEFLATE);