#include <algorithm>

#include "chunk.hpp"

#include "ltchunk.hpp"


//macro for helping to force inclusion of chunks when using libraries
FORCE_CHUNK_INCLUDE_IMPLEMENT(ltchunk)

////////////////////////////////////////////////////////////////////////////////////
//Class Light_Set_Chunk

RIF_IMPLEMENT_DYNCREATE("LIGHTSET",Light_Set_Chunk)

CHUNK_WITH_CHILDREN_LOADER("LIGHTSET",Light_Set_Chunk)

/*
Children for Light_Set_Chunk :

"LTSETHDR"		Light_Set_Header_Chunk
"STDLIGHT"		Light_Chunk
"AMBIENCE"		Lighting_Ambience_Chunk
"LITSCALE"		Light_Scale_Chunk
"AVPSTRAT"		AVP_Strategy_Chunk
*/

Light_Set_Chunk::Light_Set_Chunk (Chunk_With_Children * parent, char * light_set_name)
: Chunk_With_Children (parent, "LIGHTSET")
{
	new Light_Set_Header_Chunk (this, light_set_name);
}



////////////////////////////////////////////////////////////////////////////////////

RIF_IMPLEMENT_DYNCREATE("LTSETHDR",Light_Set_Header_Chunk)

Light_Set_Header_Chunk::Light_Set_Header_Chunk (Light_Set_Chunk * parent, char l_set_name[8])
: Chunk (parent, "LTSETHDR"), pad (0)
{
	strncpy (light_set_name, l_set_name, 8);
}

void Light_Set_Header_Chunk::fill_data_block ( char * data_start)
{
	strncpy (data_start, identifier, 8);

	data_start += 8;

	*((int *) data_start) = chunk_size;

	data_start += 4;

	strncpy (data_start, light_set_name, 8);

	data_start += 8;
	
	*((int *) data_start) = pad;
}

Light_Set_Header_Chunk::Light_Set_Header_Chunk (Chunk_With_Children * parent, const char * data, size_t const /*size*/)
: Chunk (parent, "LTSETHDR")
{
	strncpy (light_set_name, data, 8);
	
	data += 8;
	
	pad = *((int *) data);
}


////////////////////////////////////////////////////////////////////////////////////

RIF_IMPLEMENT_DYNCREATE("STDLIGHT",Light_Chunk)


void Light_Chunk::fill_data_block ( char * data_start)
{

	strncpy (data_start, identifier, 8);

	data_start += 8;

	*((int *) data_start) = chunk_size;

	data_start += 4;

	*((int *) data_start) = light.light_number;
	data_start += 4;

	*((ChunkVectorInt *) data_start) = light.location;
	data_start += sizeof(ChunkVectorInt);
	
	*((ChunkMatrix *) data_start) = light.orientation;
	data_start += sizeof(ChunkMatrix);

	*((int *) data_start) = light.brightness;
	data_start += 4;
	*((int *) data_start) = light.spread;
	data_start += 4;
	*((int *) data_start) = light.range;
	data_start += 4;

	*((int *) data_start) = light.colour;
	data_start += 4;

	*((int *) data_start) = light.engine_light_flags;
	data_start += 4;
	*((int *) data_start) = light.local_light_flags;
	data_start += 4;

	*((int *) data_start) = light.pad1;
	data_start += 4;
	*((int *) data_start) = light.pad2;
	
}

Light_Chunk::Light_Chunk(Chunk_With_Children * parent, const char * data, size_t const /*size*/)
: Chunk (parent, "STDLIGHT")
{
	light.light_number = *((int *) data);
	data += 4;

	light.location = *((ChunkVectorInt *) data);
	data += sizeof(ChunkVectorInt);
	
	light.orientation = *((ChunkMatrix *) data);
	data += sizeof(ChunkMatrix);

	light.brightness = *((int *) data);
	data += 4;
	light.spread = *((int *) data);
	data += 4;
	light.range = *((int *) data);
	data += 4;

	light.colour = *((int *) data);
	data += 4;

	light.engine_light_flags = *((int *) data);
	data += 4;
	light.local_light_flags = *((int *) data);
	data += 4;

	light.pad1 = *((int *) data);
	data += 4;
	light.pad2 = *((int *) data);
	
	light_added_to_module = FALSE;
}


////////////////////////////////////////////////////////////////////////////////////

RIF_IMPLEMENT_DYNCREATE("SHPVTINT",Shape_Vertex_Intensities_Chunk)


Shape_Vertex_Intensities_Chunk::Shape_Vertex_Intensities_Chunk
(Chunk_With_Children *parent, char *lsn, int num_v, int * i_array)
: Chunk (parent, "SHPVTINT"), pad (0), num_vertices(num_v)
{
	strncpy (light_set_name, lsn, 8);
	
	intensity_array = new int [num_v];
	
	for (int i=0; i<num_v; i++)
	{
		intensity_array[i] = i_array[i];
	}
}


void Shape_Vertex_Intensities_Chunk::fill_data_block ( char * data_start)
{
	strncpy (data_start, identifier, 8);

	data_start += 8;

	*((int *) data_start) = chunk_size;

	data_start += 4;

	strncpy (data_start, light_set_name,8);

	data_start += 8;
	
	*((int *) data_start) = pad;

	data_start += 4;

	*((int *) data_start) = num_vertices;

	data_start += 4;

	int * cia = (int *)data_start, * ia = intensity_array;
	
	for (int i = num_vertices; i; i--)
	{
		*cia++ = *ia++;
	}
	
}

Shape_Vertex_Intensities_Chunk::Shape_Vertex_Intensities_Chunk(Chunk_With_Children * parent, const char * data, size_t const /*size*/)
: Chunk (parent, "SHPVTINT")
{
	strncpy (light_set_name, data, 8);
	
	data += 8;
	
	pad = *((int *)data);
	data += 4;
	
	num_vertices = *((int *)data);
	data += 4;

	intensity_array = new int [num_vertices];

	int * cia = (int *)data, * ia = intensity_array;

	for (int i = num_vertices; i; i--)
	{
		*ia++ = *cia++;
	}
}


Shape_Vertex_Intensities_Chunk::~Shape_Vertex_Intensities_Chunk()
{
	if (intensity_array)
		delete [] intensity_array;
}

///////////////////////////////////////////////////////////////////////////

RIF_IMPLEMENT_DYNCREATE("AMBIENCE",Lighting_Ambience_Chunk)


void Lighting_Ambience_Chunk::fill_data_block ( char * data_start)
{
	strncpy (data_start, identifier, 8);

	data_start += 8;

	*((int *) data_start) = chunk_size;

	data_start += 4;

	*((int *) data_start) = ambience;
	data_start += 4;
}



///////////////////////////////////////////////////////////////////////////
RIF_IMPLEMENT_DYNCREATE("LITSCALE",Light_Scale_Chunk)

Light_Scale_Chunk::Light_Scale_Chunk(Light_Set_Chunk* parent,int mode)
:Chunk(parent,"LITSCALE")
{
	LightMode=mode;
	prelight_multiply=runtime_multiply=1;
	prelight_multiply_above=runtime_multiply_above=0;
	prelight_add=runtime_add=0;
	spare1=spare2=spare3=0;
}

Light_Scale_Chunk::Light_Scale_Chunk(Chunk_With_Children* parent,const char* data,size_t)
:Chunk(parent,"LITSCALE")
{
	LightMode=*(int*)data;
	data+=4;
	prelight_multiply=*(float*)data;
	data+=4;
	prelight_multiply_above= (int) *(float*)data;
	data+=4;
	prelight_add= (int) *(float*)data;
	data+=4;
	
	runtime_multiply=*(float*)data;
	data+=4;
	runtime_multiply_above= (int) *(float*)data;
	data+=4;
	runtime_add= (int) *(float*)data;
	data+=4;

	spare1=*(int*)data;
	data+=4;
	spare2=*(int*)data;
	data+=4;
	spare3=*(int*)data;
	data+=4;

}

void Light_Scale_Chunk::fill_data_block(char* data_start)
{
	strncpy(data_start,identifier,8);
	data_start+=8;
	*((int *) data_start) = chunk_size;
	data_start += 4;

	*(int*)data_start=LightMode;
	data_start+=4;

	*(float*)data_start=prelight_multiply;
	data_start+=4;
	*(float*)data_start= (float) prelight_multiply_above;
	data_start+=4;
	*(float*)data_start= (float) prelight_add;
	data_start+=4;

	*(float*)data_start=runtime_multiply;
	data_start+=4;
	*(float*)data_start= (float) runtime_multiply_above;
	data_start+=4;
	*(float*)data_start= (float) runtime_add;
	data_start+=4;

	*(int*)data_start=spare1;
	data_start+=4;
	*(int*)data_start=spare2;
	data_start+=4;
	*(int*)data_start=spare3;
	data_start+=4;
}

int Light_Scale_Chunk::ApplyPrelightScale(int l)
{
	if(l<prelight_multiply_above)return l;
	l+=(prelight_add-prelight_multiply_above);
	l= (int)(l*prelight_multiply);
	l+=prelight_multiply_above;
	l=std::min(l,255);
	return std::max(l,prelight_multiply_above);
}
int Light_Scale_Chunk::ApplyRuntimeScale(int l)
{
	if(l<runtime_multiply_above)return l;
	l+=(runtime_add-runtime_multiply_above);
	l=(int)( l*runtime_multiply);
	l+=runtime_multiply_above;
	l=std::min(l,255);
	return std::max(l,runtime_multiply_above);
}
////////////////////////////////////////////////////////////////////////////////////
RIF_IMPLEMENT_DYNCREATE("PLOBJLIT",Placed_Object_Light_Chunk)

Placed_Object_Light_Chunk::Placed_Object_Light_Chunk(Chunk_With_Children * parent, const char * data, size_t const /*size*/)
: Chunk (parent, "PLOBJLIT")
{
	light=*(Placed_Object_Light_Data*) data;
	data+=sizeof(Placed_Object_Light_Data);

	num_extra_data=*(int*)data;
	data+=4;
	
	if(num_extra_data)
	{
		extra_data=new int[num_extra_data];
		for(int i=0;i<num_extra_data;i++)
		{
			extra_data[i]=*(int*)data;
			data+=4;
		}
	} 
	else
	{
		extra_data=0;
	}
}

Placed_Object_Light_Chunk::~Placed_Object_Light_Chunk()
{
	if(extra_data)
	{
		delete [] extra_data;
	}
}

void Placed_Object_Light_Chunk::fill_data_block(char* data)
{
	strncpy (data, identifier, 8);

	data += 8;

	*((int *) data) = chunk_size;

	data += 4;

	*(Placed_Object_Light_Data*)data=light;
	data+=sizeof(Placed_Object_Light_Data);

	*(int*)data=num_extra_data;
	data+=4;
	
	for(int i=0;i<num_extra_data;i++)
	{
		*(int*)data=extra_data[i];
		data+=4;
	}
}


////////////////////////////////////////////////////////////////////////////////////