/*
 * $Id: bitmap.c,v 1.16 2004/06/16 18:46:50 lordjaxom Exp $
 */

#include "bitmap.h"
#include "setup.h"
#include <vdr/tools.h>
#define X_DISPLAY_MISSING
#ifdef HAVE_IMLIB2
#include <Imlib2.h>
#endif
#ifdef HAVE_IMAGEMAGICK
#include <Magick++.h>
using namespace Magick;
#endif

template<> 
void cImageCache::Delete(string &key, cText2SkinBitmap *&value) {
	delete value;
}

cImageCache cText2SkinBitmap::mCache(Text2SkinSetup.MaxCacheFill);
bool cText2SkinBitmap::mFirstTime = true;

cText2SkinBitmap::cText2SkinBitmap(void) {
	mCurrent = 0;
	mLastGet = 0;
}

cText2SkinBitmap::~cText2SkinBitmap() {
	for (int i = 0; i < (int)mBitmaps.size(); ++i)
		delete mBitmaps[i];
	mBitmaps.clear();
}

cBitmap &cText2SkinBitmap::Get(int &UpdateIn) {
	if (mBitmaps.size() == 1)
		return *mBitmaps[0];

	time_t upd, cur = time_ms();
	int diff;
	if (mLastGet == 0) {
		Dprintf("lastget was %d\n", mLastGet);
		mLastGet = cur;
		upd = mDelay;
	} else if ((diff = cur - mLastGet) >= mDelay) {
		mCurrent = (mCurrent + 1) % mBitmaps.size();
		mLastGet = cur;
		upd = mDelay;
	} else {
		upd = mDelay - diff;
	}

	Dprintf("delay: %d, diff %d\n", mDelay, diff);

	if (UpdateIn == 0 || UpdateIn > upd)
		UpdateIn = upd;

	Dprintf("Get: returning frame %d\n", mCurrent);
	return *mBitmaps[mCurrent];
}

void cText2SkinBitmap::SetAlpha(int Alpha) {
	if (Alpha > 0) {
		vector<cBitmap*>::iterator it = mBitmaps.begin();
		for (; it != mBitmaps.end(); ++it) {
			int count;
			if ((*it)->Colors(count)) {
				for (int i = 0; i < count; ++i) {
					int alpha = (((*it)->Color(i) & 0xFF000000) >> 24) * Alpha / 255;
					(*it)->SetColor(i, ((*it)->Color(i) & 0x00FFFFFF) | (alpha << 24));
				}
			}
		}
	}
}

cText2SkinBitmap *cText2SkinBitmap::Load(const char *Filename, int Alpha) {
	if (mCache.Contains(Filename))
		return mCache[Filename];
	else {
		cText2SkinBitmap *bmp = new cText2SkinBitmap;
		int len = strlen(Filename);
		bool result = false;
		if (len > 4) {
			if (strcmp(Filename + len - 4, ".xpm") == 0)
				result = bmp->LoadXpm(Filename, Alpha);
			else {
#ifdef HAVE_IMLIB2
				result = bmp->LoadImlib(Filename, Alpha);
#else
#	ifdef HAVE_IMAGEMAGICK
				result = bmp->LoadMagick(Filename, Alpha);
#	endif
#endif
			}
			//else
				//esyslog("ERROR: text2skin: unknown file format for %s", Filename);
		} else
			esyslog("ERROR: text2skin: filename %s too short to identify format", Filename);
	
		if (result) {
			bmp->SetAlpha(Alpha);
			return (mCache[Filename] = bmp);
		} else
			delete bmp;
	}
	return false;
}

bool cText2SkinBitmap::LoadXpm(const char *Filename, int Alpha) {
	cBitmap *bmp = new cBitmap(1,1,1);
	if (bmp->LoadXpm(Filename)) {
		mBitmaps.push_back(bmp);
		return true;
	}
	delete bmp;
	return false;
}

#ifdef HAVE_IMLIB2
bool cText2SkinBitmap::LoadImlib(const char *Filename, int Alpha) {
	Imlib_Image image;
	cBitmap *bmp = NULL;
	image = imlib_load_image(Filename);
	if (!image)
		return false;
	Imlib_Context ctx = imlib_context_new();
	imlib_context_push(ctx);
	imlib_context_set_image(image);
	bmp = new cBitmap(imlib_image_get_width(), imlib_image_get_height(), 8);
	uint8_t *data = (uint8_t*)imlib_image_get_data_for_reading_only();
	int pal = 0, pos = 0;
	for (int y = 0; y < bmp->Height(); ++y) {
		for (int x = 0; x < bmp->Width(); ++x) {
			tColor col = (data[pos + 3] << 24) | (data[pos + 2] << 16) | (data[pos + 1] << 8) | data[pos + 0];
			bmp->DrawPixel(x, y, col);
			pos += 4;
		}
	}
	imlib_free_image();
	imlib_context_free(ctx);
	mBitmaps.push_back(bmp);
	return true;
}
#endif

#ifdef HAVE_IMAGEMAGICK
bool cText2SkinBitmap::LoadMagick(const char *Filename, int Alpha) {
	if (mFirstTime)
		InitializeMagick("text2skin");

	vector<Image> images;
	cBitmap *bmp = NULL;
	try {
		int w, h;
		vector<Image>::iterator it;
		readImages(&images, Filename);
		if (images.size() == 0) {
			esyslog("ERROR: text2skin: Couldn't load %s", Filename);
			return false;
		}
		mDelay = images[0].animationDelay() * 10;
		for (it = images.begin(); it != images.end(); ++it) {
			w = (*it).columns();
			h = (*it).rows();
			if ((*it).depth() > 8) {
				esyslog("ERROR: text2skin: More than 8bpp images are not supported");
				return false;
			}
			bmp = new cBitmap(w, h, (*it).depth());

			if ((*it).classType() == PseudoClass) {
				int total = (*it).totalColors();
				for (int ic = 0; ic < (int)total; ++ic) {
					Color c = (*it).colorMap(ic);
					tColor col = (~(c.alphaQuantum() * 255 / MaxRGB) << 24) | ((c.redQuantum() * 255 / MaxRGB) << 16) | ((c.greenQuantum() * 255 / MaxRGB) << 8) | (c.blueQuantum() * 255 / MaxRGB);
					bmp->SetColor(ic, col);
				}
			}
		
			const PixelPacket *pix = (*it).getConstPixels(0, 0, w, h);
			const IndexPacket *idx = (*it).getConstIndexes();
			for (int iy = 0; iy < h; ++iy) {
				for (int ix = 0; ix < w; ++ix) {
					if ((*it).classType() == PseudoClass) {
						bmp->SetIndex(ix, iy, *idx);
						++idx;
					} else {
						tColor col = (~(pix->opacity * 255 / MaxRGB) << 24) | ((pix->red * 255 / MaxRGB) << 16) | ((pix->green * 255 / MaxRGB) << 8) | (pix->blue * 255 / MaxRGB);
						bmp->DrawPixel(ix, iy, col);
						++pix;
					}
				}
			}
			mBitmaps.push_back(bmp);
		}
	} catch (Exception &e) {
		esyslog("ERROR: text2skin: Couldn't load %s: %s", Filename, e.what());
		delete bmp;
		return false;
	}
	return true;
}
#endif