#include "stdafx.h"
#include "TexOffs.h"
#include "ModelPart.h"
#include "Cube.h"

const float ModelPart::RAD = (180.0f / PI);

void ModelPart::_init()
{
	xTexSize = 64.0f;
	yTexSize = 32.0f;
	list = 0;
	compiled=false;
	bMirror = false;
	visible = true;
	neverRender = false;
	x=y=z = 0.0f;
	xRot=yRot=zRot = 0.0f;
}

ModelPart::ModelPart()
{
	_init();
}

ModelPart::ModelPart(Model *model, const wstring& id) 
{
	construct(model, id);
}

ModelPart::ModelPart(Model *model) 
{
	construct(model);
}

ModelPart::ModelPart(Model *model, int xTexOffs, int yTexOffs) 
{
	construct(model, xTexOffs, yTexOffs);
}


void ModelPart::construct(Model *model, const wstring& id) 
{
	_init();
	this->model = model;
	model->cubes.push_back(this);
	this->id = id;
	setTexSize(model->texWidth, model->texHeight);
}

void ModelPart::construct(Model *model) 
{
	_init();
	construct(model, L"");
}

void ModelPart::construct(Model *model, int xTexOffs, int yTexOffs) 
{
	_init();
	construct(model);
	texOffs(xTexOffs, yTexOffs);
}


void ModelPart::addChild(ModelPart *child) 
{
	//if (children == NULL) children = new ModelPartArray;
	children.push_back(child);
}

ModelPart * ModelPart::retrieveChild(SKIN_BOX *pBox) 
{
	for(AUTO_VAR(it, children.begin()); it != children.end(); ++it)
	{
		ModelPart *child=*it;

		for(AUTO_VAR(itcube, child->cubes.begin()); itcube != child->cubes.end(); ++itcube)
		{
			Cube *pCube=*itcube;

			if((pCube->x0==pBox->fX) &&
				(pCube->y0==pBox->fY) &&
				(pCube->z0==pBox->fZ) &&
				(pCube->x1==(pBox->fX + pBox->fW)) &&
				(pCube->y1==(pBox->fY + pBox->fH)) &&
				(pCube->z1==(pBox->fZ + pBox->fD))
				)
			{
				return child;
				break;
			}
		}
	}

	return NULL;
}

ModelPart *ModelPart::mirror() 
{
	bMirror = !bMirror;
	return this;
}

ModelPart *ModelPart::texOffs(int xTexOffs, int yTexOffs) 
{
	this->xTexOffs = xTexOffs;
	this->yTexOffs = yTexOffs;
	return this;
}

ModelPart *ModelPart::addBox(wstring id, float x0, float y0, float z0, int w, int h, int d) 
{
	id = this->id + L"." + id;
	TexOffs *offs = model->getMapTex(id);
	texOffs(offs->x, offs->y);
	cubes.push_back((new Cube(this, xTexOffs, yTexOffs, x0, y0, z0, w, h, d, 0))->setId(id));
	return this;
}

ModelPart *ModelPart::addBox(float x0, float y0, float z0, int w, int h, int d) 
{
	cubes.push_back(new Cube(this, xTexOffs, yTexOffs, x0, y0, z0, w, h, d, 0));
	return this;
}

void ModelPart::addHumanoidBox(float x0, float y0, float z0, int w, int h, int d, float g) 
{
	cubes.push_back(new Cube(this, xTexOffs, yTexOffs, x0, y0, z0, w, h, d, g, 63, true));
}

ModelPart *ModelPart::addBoxWithMask(float x0, float y0, float z0, int w, int h, int d, int faceMask) 
{
	cubes.push_back(new Cube(this, xTexOffs, yTexOffs, x0, y0, z0, w, h, d, 0, faceMask));
	return this;
}

void ModelPart::addBox(float x0, float y0, float z0, int w, int h, int d, float g) 
{
	cubes.push_back(new Cube(this, xTexOffs, yTexOffs, x0, y0, z0, w, h, d, g));
}


void ModelPart::addTexBox(float x0, float y0, float z0, int w, int h, int d, int tex) 
{
	cubes.push_back(new Cube(this, xTexOffs, yTexOffs, x0, y0, z0, w, h, d, (float)tex));
}

void ModelPart::setPos(float x, float y, float z) 
{
	this->x = x;
	this->y = y;
	this->z = z;
}

void ModelPart::render(float scale, bool usecompiled, bool bHideParentBodyPart) 
{
	if (neverRender) return;
	if (!visible) return;
	if (!compiled) compile(scale);

	if (xRot != 0 || yRot != 0 || zRot != 0) 
	{
		glPushMatrix();
		glTranslatef(x * scale, y * scale, z * scale);
		if (zRot != 0) glRotatef(zRot * RAD, 0, 0, 1);
		if (yRot != 0) glRotatef(yRot * RAD, 0, 1, 0);
		if (xRot != 0) glRotatef(xRot * RAD, 1, 0, 0);

		if(!bHideParentBodyPart)
		{		
			if( usecompiled )
			{
				glCallList(list);
			}
			else
			{
				Tesselator *t = Tesselator::getInstance();
				for (unsigned int i = 0; i < cubes.size(); i++) 
				{
					cubes[i]->render(t, scale);
				}
			}
		}			
		//if (children != NULL) 
		{
			for (unsigned int i = 0; i < children.size(); i++) 
			{
				children.at(i)->render(scale,usecompiled);
			}
		}

		glPopMatrix();
	} 
	else if (x != 0 || y != 0 || z != 0) 
	{
		glTranslatef(x * scale, y * scale, z * scale);
		if(!bHideParentBodyPart)
		{		
			if( usecompiled )
			{
				glCallList(list);
			}
			else
			{
				Tesselator *t = Tesselator::getInstance();			
				for (unsigned int i = 0; i < cubes.size(); i++) 
				{
					cubes[i]->render(t, scale);
				}
			}
		}
		//if (children != NULL) 
		{
			for (unsigned int i = 0; i < children.size(); i++) 
			{
				children.at(i)->render(scale,usecompiled);
			}
		}
		glTranslatef(-x * scale, -y * scale, -z * scale);
	} 
	else 
	{
		if(!bHideParentBodyPart)
		{		
			if( usecompiled )
			{
				glCallList(list);
			}
			else
			{
				Tesselator *t = Tesselator::getInstance();
				for (unsigned int i = 0; i < cubes.size(); i++) 
				{
					cubes[i]->render(t, scale);
				}
			}
		}
		//if (children != NULL) 
		{
			for (unsigned int i = 0; i < children.size(); i++) 
			{
				children.at(i)->render(scale,usecompiled);
			}
		}
	}
}

void ModelPart::renderRollable(float scale, bool usecompiled) 
{
	if (neverRender) return;
	if (!visible) return;
	if (!compiled) compile(scale);

	glPushMatrix();
	glTranslatef(x * scale, y * scale, z * scale);
	if (yRot != 0) glRotatef(yRot * RAD, 0, 1, 0);
	if (xRot != 0) glRotatef(xRot * RAD, 1, 0, 0);
	if (zRot != 0) glRotatef(zRot * RAD, 0, 0, 1);
	glCallList(list);
	glPopMatrix();

}

void ModelPart::translateTo(float scale) 
{
	if (neverRender) return;
	if (!visible) return;
	if (!compiled) compile(scale);

	if (xRot != 0 || yRot != 0 || zRot != 0) 
	{
		glTranslatef(x * scale, y * scale, z * scale);
		if (zRot != 0) glRotatef(zRot * RAD, 0, 0, 1);
		if (yRot != 0) glRotatef(yRot * RAD, 0, 1, 0);
		if (xRot != 0) glRotatef(xRot * RAD, 1, 0, 0);
	} 
	else if (x != 0 || y != 0 || z != 0) 
	{
		glTranslatef(x * scale, y * scale, z * scale);
	} 
	else 
	{
	}
}

void ModelPart::compile(float scale) 
{
	list = MemoryTracker::genLists(1);

	glNewList(list, GL_COMPILE);
	// Set a few render states that aren't configured by default
	glEnable(GL_DEPTH_TEST);
	glDepthFunc(GL_LEQUAL);
	glDepthMask(true);
	Tesselator *t = Tesselator::getInstance();

	for (unsigned int i = 0; i < cubes.size(); i++) 
	{
		cubes.at(i)->render(t, scale);
	}
	
	glEndList();

	compiled = true;
}

ModelPart *ModelPart::setTexSize(int xs, int ys) 
{
	this->xTexSize = (float)xs;
	this->yTexSize = (float)ys;
	return this;
}

void ModelPart::mimic(ModelPart *o) 
{
	x =		o->x;
	y =		o->y;
	z =		o->z;
	xRot =	o->xRot;
	yRot =	o->yRot;
	zRot =	o->zRot;
}