#include "bsp5.h"

int		outleafs;

/*
===========
pointinleaf
===========
*/
node_t	*pointinleaf (node_t *node, vec3_t point)
{
	vec_t	d;
	
	if (node->contents)
		return node;
		
	d = dotproduct (planes[node->planenum].normal, point) - planes[node->planenum]. dist;
	
	if (d > 0)
		return pointinleaf (node->children[0], point);
	
	return pointinleaf (node->children[1], point);
}

/*
===========
placeoccupant
===========
*/
qboolean placeoccupant (int num, vec3_t point, node_t *headnode)
{
	node_t	*n;
	
	n = pointinleaf (headnode, point);
	if (n->contents == contents_solid)
		return false;
	n->occupied = num;
	return true;
}


/*
==============
markleaktrail
==============
*/
portal_t	*prevleaknode;
file	*leakfile;
void markleaktrail (portal_t *n2)
{
	int		i, j;
	vec3_t	p1, p2, dir;
	float	len;
	portal_t *n1;

	if (hullnum)
		return;

	n1 = prevleaknode;
	prevleaknode = n2;
	
	if (!n1)
		return;
		
	vectorcopy (n2->winding->points[0], p1);
	for (i=1 ; i< n2->winding->numpoints ; i++)
	{
		for (j=0 ; j<3 ; j++)
			p1[j] = (p1[j] + n2->winding->points[i][j]) / 2;
	}
	
	vectorcopy (n1->winding->points[0], p2);
	for (i=1 ; i< n1->winding->numpoints ; i++)
	{
		for (j=0 ; j<3 ; j++)
			p2[j] = (p2[j] + n1->winding->points[i][j]) / 2;
	}
		
	vectorsubtract (p2, p1, dir);
	len = vectorlength (dir);
	vectornormalize (dir);
	
	while (len > 2)
	{
		fprintf (leakfile,"%f %f %f\n", p1[0], p1[1], p1[2]);
		for (i=0 ; i<3 ; i++)
			p1[i] += dir[i]*2;
		len -= 2;
	}
}

/*
==================
recursivefilloutside

if fill is false, just check, don't fill
returns true if an occupied leaf is reached
==================
*/
int		hit_occupied;
int		backdraw;
qboolean recursivefilloutside (node_t *l, qboolean fill)
{
	portal_t	*p;
	int			s;

	if (l->contents == contents_solid || l->contents == contents_sky)
		return false;
		
	if (l->valid == valid)
		return false;
	
	if (l->occupied)
		return true;
	
	l->valid = valid;

// fill it and it's neighbors
	if (fill)
		l->contents = contents_solid;
	outleafs++;

	for (p=l->portals ; p ; )
	{
		s = (p->nodes[0] == l);

		if (recursivefilloutside (p->nodes[s], fill) )
		{	// leaked, so stop filling
			if (backdraw-- > 0)
			{				
				markleaktrail (p);
				drawleaf (l, 2);
			}
			return true;
		}
		p = p->next[!s];
	}
	
	return false;
}

/*
==================
clearoutfaces

==================
*/
void clearoutfaces (node_t *node)
{
	face_t	**fp;
	
	if (node->planenum != -1)
	{
		clearoutfaces (node->children[0]);
		clearoutfaces (node->children[1]);
		return;
	}
	if (node->contents != contents_solid)
		return;

	for (fp=node->markfaces ; *fp ; fp++)
	{
	// mark all the original faces that are removed
		(*fp)->numpoints = 0;
	}
	node->faces = null;
}


//=============================================================================

/*
===========
filloutside

===========
*/
qboolean filloutside (node_t *node)
{
	int			s;
	vec_t		*v;
	int			i;
	qboolean	inside;
	
	qprintf ("----- filloutside ----\n");

	if (nofill)
	{
		printf ("skipped\n");
		return false;
	}
		
	inside = false;
	for (i=1 ; i<num_entities ; i++)
	{
		if (!vectorcompare(entities[i].origin, vec3_origin))
		{
			if (placeoccupant (i, entities[i].origin, node))
				inside = true;
		}
	}

	if (!inside)
	{
		printf ("hullnum %i: no entities in empty space -- no filling performed\n", hullnum);
		return false;
	}

	s = !(outside_node.portals->nodes[1] == &outside_node);

// first check to see if an occupied leaf is hit
	outleafs = 0;
	valid++;

	prevleaknode = null;
	
	if (!hullnum)
	{
		leakfile = fopen (pointfilename, "w");
		if (!leakfile)
			error ("couldn't open %s\n", pointfilename);
	}

	if (recursivefilloutside (outside_node.portals->nodes[s], false))
	{
		v = entities[hit_occupied].origin;
		qprintf ("!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n");
		qprintf ("reached occupant at: (%4.0f,%4.0f,%4.0f)\n"
		, v[0], v[1], v[2]);
		qprintf ("no filling performed\n");
		if (!hullnum)
			fclose (leakfile);
		qprintf ("leak file written to %s\n", pointfilename);			
		qprintf ("!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n");
		return false;
	}
	if (!hullnum)
		fclose (leakfile);

// now go back and fill things in
	valid++;
	recursivefilloutside (outside_node.portals->nodes[s], true);

// remove faces from filled in leafs	
	clearoutfaces (node);
	
	qprintf ("%4i outleafs\n", outleafs);
	return true;
}