#include "Castor3D/PrecompiledHeader.hpp"

#include "Castor3D/Sphere.hpp"
#include "Castor3D/Submesh.hpp"
#include "Castor3D/Vertex.hpp"

using namespace Castor3D;
using namespace Castor;

Sphere :: Sphere( MeshFactory & p_factory)
	:	MeshCategory	( p_factory, eMESH_TYPE_SPHERE	)
	,	m_radius		( 0								)
	,	m_nbFaces		( 0								)
{
}

Sphere :: ~Sphere()
{
}

MeshCategorySPtr Sphere :: Clone()
{
	return std::make_shared< Sphere >( m_factory );
}

void Sphere :: Generate()
{
	m_radius = std::abs( m_radius );

	if (m_nbFaces >= 3)
	{
		Submesh & l_submesh = *GetMesh()->CreateSubmesh();

		real 					l_rAngle	= Angle::PiMult2 / m_nbFaces;
		std::vector< Point2r >	l_arc	( m_nbFaces + 1 );
		real 					l_rAlpha	= 0;
		uint32_t				l_iCur		= 0;
		uint32_t				l_iPrv		= 0;
		real					l_rAlphaI	= 0;
		BufferElementGroupSPtr	l_pVertex;
		real					l_rCos;
		real					l_rSin;
		Point2r					l_ptT;
		Point2r					l_ptB;
		Point3r					l_ptPos;
		real					l_x;
		real					l_y;

		for( uint32_t i = 0; i <= m_nbFaces; i++ )
		{
			l_x =  m_radius * sin( l_rAlpha );
			l_y = -m_radius * cos( l_rAlpha );
			l_arc[i][0] = l_x;
			l_arc[i][1] = l_y;
			l_rAlpha += l_rAngle / 2;
		}

		for( uint32_t k = 0; k < m_nbFaces; k++ )
		{
			l_ptT = l_arc[k + 0];
			l_ptB = l_arc[k + 1];

			if( k == 0 )
			{
				//		Calcul de la position des points du haut
				for( uint32_t i = 0; i <= m_nbFaces; l_rAlphaI += l_rAngle, i++ )
				{
					l_rCos = cos( l_rAlphaI );
					l_rSin = sin( l_rAlphaI );
					l_pVertex = l_submesh.AddPoint(	l_ptT[0] * l_rCos,	l_ptT[1],	l_ptT[0] * l_rSin );
					Vertex::SetTexCoord(	l_pVertex, real( i ) / m_nbFaces,	real( 1.0 + l_ptT[1] / m_radius ) / 2	);
					Vertex::SetNormal(		l_pVertex, point::get_normalised( Vertex::GetPosition( l_pVertex, l_ptPos ) ) );
//					l_pVertex->SetTangent( point::get_normalised( Point3r( real( cos( dAlphaI + Angle::PiDiv2 ) ), real( 0.0 ),	real( sin( dAlphaI + Angle::PiDiv2 ) ) ) ) );
					l_iCur++;
				}
			}

			//		Calcul de la position des points
			l_rAlphaI = 0;
			for( uint32_t i = 0; i <= m_nbFaces; l_rAlphaI += l_rAngle, i++ )
			{
				l_rCos = cos( l_rAlphaI );
				l_rSin = sin( l_rAlphaI );
				l_pVertex = l_submesh.AddPoint(	l_ptB[0] * l_rCos,	l_ptB[1],	l_ptB[0] * l_rSin );
				Vertex::SetTexCoord(	l_pVertex, real( i ) / m_nbFaces,	real( 1.0 + l_ptB[1] / m_radius ) / 2	);
				Vertex::SetNormal(		l_pVertex, point::get_normalised( Vertex::GetPosition( l_pVertex, l_ptPos ) ) );
//				l_pVertex->SetTangent( point::get_normalised( Point3r( real( cos( dAlphaI + Angle::PiDiv2 ) ), real( 0.0 ),	real( sin( dAlphaI + Angle::PiDiv2 ) ) ) ) );
			}
			//		Reconstition des faces
			for( uint32_t i = 0; i < m_nbFaces; i++ )
			{
				l_submesh.AddFace( l_iPrv + 0, l_iCur + 0, l_iPrv + 1	);
				l_submesh.AddFace( l_iCur + 0, l_iCur + 1, l_iPrv + 1	);
				l_iPrv++;
				l_iCur++;
			}

			l_iPrv++;
			l_iCur++;
		}

		l_submesh.ComputeTangentsFromNormals();
	}
	GetMesh()->ComputeContainers();
}

void Sphere :: Initialise( UIntArray const & p_arrayFaces, RealArray const & p_arrayDimensions)
{
	m_nbFaces = p_arrayFaces[0];
    m_radius = p_arrayDimensions[0];
	GetMesh()->Cleanup();
	Generate();
}