#include "texturemanager.h"
#include "tsystem.h"
#include "toonz/preferences.h"

//==============================================================================
//
//TextureManager
//
//==============================================================================

TextureManager *TextureManager::instance()
{
	if (!m_instance)
		m_instance = new TextureManager();
	return m_instance;
}

#ifdef _WIN32
TDimensionI TextureManager::getMaxSize(bool isRGBM)
{
	GLenum fmt, type;
	getFmtAndType(isRGBM, fmt, type);
	if ((m_textureSize.lx == 0) || (m_textureSize.ly == 0)) {
		glEnable(GL_TEXTURE_2D);
		int texLx, texLy;
		int outX, outY;
		int shift = 0;
		do {
			++shift;
			texLx = 64 << shift;
			texLy = 64 << shift;

			glTexImage2D(GL_PROXY_TEXTURE_2D,
						 0,		// is one level only
						 4,		// number of component of a pixel
						 texLx, // size width
						 texLy, // height
						 0,		// size of a border
						 fmt,
						 type,
						 0);
			glGetTexLevelParameteriv(GL_PROXY_TEXTURE_2D, 0, GL_TEXTURE_WIDTH, &outX);
			glGetTexLevelParameteriv(GL_PROXY_TEXTURE_2D, 0, GL_TEXTURE_HEIGHT, &outY);

#ifdef _DEBUG
			int intFmt, rSize, gSize, bSize, aSize, cmpt;

			glGetTexLevelParameteriv(GL_PROXY_TEXTURE_2D, 0, GL_TEXTURE_INTERNAL_FORMAT, &intFmt);
			glGetTexLevelParameteriv(GL_PROXY_TEXTURE_2D, 0, GL_TEXTURE_RED_SIZE, &rSize);
			glGetTexLevelParameteriv(GL_PROXY_TEXTURE_2D, 0, GL_TEXTURE_GREEN_SIZE, &gSize);
			glGetTexLevelParameteriv(GL_PROXY_TEXTURE_2D, 0, GL_TEXTURE_BLUE_SIZE, &bSize);
			glGetTexLevelParameteriv(GL_PROXY_TEXTURE_2D, 0, GL_TEXTURE_ALPHA_SIZE, &aSize);
			glGetTexLevelParameteriv(GL_PROXY_TEXTURE_2D, 0, GL_TEXTURE_COMPONENTS, &cmpt);

			if (outX && outY) {
				ostrstream os;
				os << "texture size = " << outX << "x" << outY << " fmt " << intFmt << " cmpt# " << cmpt << " " << rSize << "," << gSize << "," << bSize << "," << aSize << '\n' << '\0';
				TSystem::outputDebug(os.str());
				os.freeze(false);
			}
#endif
		} while ((outX == texLx) && (outY == texLy));

		int s = Preferences::instance()->getTextureSize();
		if (s)
			s = tmin(s, 64 << (shift - 1));
		else
			s = 64 << (shift - 1);
		m_textureSize.lx = s;
		m_textureSize.ly = s;

		glDisable(GL_TEXTURE_2D);
	}
	return TDimension(tmin(m_textureSize.lx, 2048), tmin(m_textureSize.ly, 2048));
}
#else
TDimension TextureManager::getMaxSize(bool isRGBM)
{
	m_textureSize = TDimension(512, 512);
	return m_textureSize;
}
#endif

void TextureManager::getFmtAndType(bool isRGBM, GLenum &fmt, GLenum &type)
{
	if (isRGBM) {
		fmt =
#ifdef TNZ_MACHINE_CHANNEL_ORDER_BGRM
			GL_BGRA_EXT
#elif TNZ_MACHINE_CHANNEL_ORDER_MBGR
			GL_ABGR_EXT
#elif TNZ_MACHINE_CHANNEL_ORDER_RGBM
			GL_RGBA
#elif TNZ_MACHINE_CHANNEL_ORDER_MRGB
			GL_BGRA
#else
			@undefined chan order
#endif
			;
		type =
#ifdef TNZ_MACHINE_CHANNEL_ORDER_MRGB
			GL_UNSIGNED_INT_8_8_8_8_REV
#else
			GL_UNSIGNED_BYTE
#endif
			;
	} else {
		fmt = GL_LUMINANCE;
		type = GL_UNSIGNED_BYTE;
	}
}

TDimension TextureManager::selectTexture(TDimension reqSize, bool isRGBM)
{
	int lx = 1;
	int ly = 1;
	while (lx < reqSize.lx)
		lx = lx << 1;
	while (ly < reqSize.ly)
		ly = ly << 1;
	TDimension textureSize = instance()->getMaxSize(isRGBM);
	assert(lx <= textureSize.lx);
	assert(ly <= textureSize.ly);
	GLenum fmt, type;
	getFmtAndType(isRGBM, fmt, type);

	glTexImage2D(
		GL_TEXTURE_2D, // target (is a 2D texture)
		0,			   // is one level only
		4,			   //  number of component of a pixel
		lx,			   // size width
		ly,			   //      height
		0,			   // size of a border
		fmt,
		type,
		0);
	return TDimension(lx, ly);
}

UCHAR *m_transpRow; //comune a RGBM e GR8...

TextureManager::TextureManager()
	: m_textureSize(0, 0), m_isRGBM(true)
{
}

TextureManager *TextureManager::m_instance;