#include "std.hpp"
#include "geom.hpp"
#include "texture.hpp"
#include "cachedtexture.hpp"

#include "../gxruntime/gxgraphics.hpp"

extern gxScene *gx_scene;
extern gxGraphics *gx_graphics;

struct Filter {
	string t;
	int flags;
	Filter(const string &t, int flags) :t(t), flags(flags) {
	}
};

static vector<Filter> filters;

static int filterFile(const string &t, int flags) {
	//check filters...
	string l = tolower(t);
	for (size_t k = 0; k < filters.size(); ++k) {
		if (l.find(filters[k].t) != string::npos) {
			flags |= filters[k].flags;
		}
	}
	return flags;
}

struct Texture::Rep {

	int ref_cnt;
	CachedTextureFactory cached_tex;
	vector<gxCanvas*> tex_frames;

	int tex_blend, tex_flags;
	bool transparent;

	float sx, sy, tx, ty, rot;
	bool mat_used, mat_valid;
	gxScene::Matrix matrix;

	Rep(int w, int h, int flags, int cnt) :
		ref_cnt(1), cached_tex(w, h, flags, cnt),
		tex_blend(gxScene::BLEND_MULTIPLY), tex_flags(0),
		sx(1), sy(1), tx(0), ty(0), rot(0), mat_used(false) {
		tex_frames = cached_tex.getFrames();
		transparent =
			(flags & gxCanvas::CANVAS_TEX_ALPHA) &&
			!(flags & gxCanvas::CANVAS_TEX_MASK);
		memset(&matrix, 0, sizeof(matrix));
	}

	Rep(const string &f, int flags, int w, int h, int first, int cnt) :
		ref_cnt(1), cached_tex(f, flags, w, h, first, cnt),
		tex_blend(gxScene::BLEND_MULTIPLY), tex_flags(0),
		sx(1), sy(1), tx(0), ty(0), rot(0), mat_used(false) {
		tex_frames = cached_tex.getFrames();
		transparent =
			(flags & gxCanvas::CANVAS_TEX_ALPHA) &&
			!(flags & gxCanvas::CANVAS_TEX_MASK);
		memset(&matrix, 0, sizeof(matrix));
	}

	Rep(const Rep &t) :
		ref_cnt(1), cached_tex(t.cached_tex), tex_frames(t.tex_frames),
		tex_blend(t.tex_blend), tex_flags(t.tex_flags),
		sx(t.sx), sy(t.sy), tx(t.tx), ty(t.ty), rot(t.rot),
		mat_used(t.mat_used), mat_valid(t.mat_valid), matrix(t.matrix),
		transparent(t.transparent) {
	}
};

Texture::Texture() :rep(0) {
}

Texture::Texture(const string &f, int flags) {
	flags = filterFile(f, flags) | gxCanvas::CANVAS_TEXTURE;
	if (flags & gxCanvas::CANVAS_TEX_MASK) flags |= gxCanvas::CANVAS_TEX_RGB | gxCanvas::CANVAS_TEX_ALPHA;
	rep = new Rep(f, flags, 0, 0, 0, 1);
}

Texture::Texture(const string &f, int flags, int w, int h, int first, int cnt) {
	flags = filterFile(f, flags) | gxCanvas::CANVAS_TEXTURE;
	if (flags & gxCanvas::CANVAS_TEX_MASK) flags |= gxCanvas::CANVAS_TEX_RGB | gxCanvas::CANVAS_TEX_ALPHA;
	rep = new Rep(f, flags, w, h, first, cnt);
}

Texture::Texture(int w, int h, int flags, int cnt) {
	flags |= gxCanvas::CANVAS_TEXTURE;
	if (flags & gxCanvas::CANVAS_TEX_MASK) flags |= gxCanvas::CANVAS_TEX_RGB | gxCanvas::CANVAS_TEX_ALPHA;
	rep = new Rep(w, h, flags, cnt);
}

Texture::Texture(const Texture &t) :
	rep(t.rep) {
	if (rep) ++rep->ref_cnt;
}

Texture::~Texture() {
	if (rep && !--rep->ref_cnt) delete rep;
}

Texture &Texture::operator=(const Texture &t) {
	if (t.rep) ++t.rep->ref_cnt;
	if (rep && !--rep->ref_cnt) delete rep;
	rep = t.rep;
	return *this;
}

void Texture::setScale(float u_scale, float v_scale) {
	if (!rep) return;
	rep->sx = u_scale; rep->sy = v_scale;
	rep->mat_valid = false;
	rep->mat_used = true;
}

void Texture::setRotation(float angle) {
	if (!rep) return;
	rep->rot = angle;
	rep->mat_valid = false;
	rep->mat_used = true;
}

void Texture::setPosition(float u_pos, float v_pos) {
	if (!rep) return;
	rep->tx = u_pos;
	rep->ty = v_pos;
	rep->mat_valid = false;
	rep->mat_used = true;
}

void Texture::setBlend(int blend) {
	if (!rep) return;
	rep->tex_blend = blend;
}

void Texture::setFlags(int flags) {
	if (!rep) return;
	rep->tex_flags = flags;
}

bool Texture::isTransparent()const {
	return rep ? rep->transparent : false;
}

gxCanvas *Texture::getCanvas(int n)const {
	return rep && n >= 0 && n < rep->tex_frames.size() ? rep->tex_frames[n] : 0;
}

int Texture::getCanvasFlags()const {
	return rep && rep->tex_frames.size() ? rep->tex_frames[0]->getFlags() : 0;
}

CachedTextureFactory *Texture::getCachedTexture()const {
	return rep ? &rep->cached_tex : 0;
}

int Texture::getBlend()const {
	return rep ? rep->tex_blend : 0;
}

int Texture::getFlags()const {
	return rep ? rep->tex_flags : 0;
}

const gxScene::Matrix *Texture::getMatrix()const {
	if (!rep || !rep->mat_used) return 0;
	if (!rep->mat_valid) {
		float c = cos(rep->rot), s = sin(rep->rot);
		rep->matrix.elements[0][0] = c*rep->sx;
		rep->matrix.elements[1][0] = s*rep->sx;
		rep->matrix.elements[0][1] = -s*rep->sy;
		rep->matrix.elements[1][1] = c*rep->sy;
		rep->matrix.elements[2][0] = rep->tx;
		rep->matrix.elements[2][1] = rep->ty;
		rep->mat_valid = true;
	}
	return &rep->matrix;
}

bool Texture::operator<(const Texture &t)const {
	if (rep && t.rep) return rep->cached_tex < t.rep->cached_tex;
	return rep < t.rep;
}

void Texture::clearFilters() {
	filters.clear();
}

void Texture::addFilter(const string &t, int flags) {
	filters.push_back(Filter(tolower(t), flags));
}