/*
===========================================================================

Return to Castle Wolfenstein single player GPL Source Code
Copyright (C) 1999-2010 id Software LLC, a ZeniMax Media company. 

This file is part of the Return to Castle Wolfenstein single player GPL Source Code (“RTCW SP Source Code”).  

RTCW SP Source Code is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

RTCW SP Source Code is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with RTCW SP Source Code.  If not, see <http://www.gnu.org/licenses/>.

In addition, the RTCW SP Source Code is also subject to certain additional terms. You should have received a copy of these additional terms immediately following the terms and conditions of the GNU General Public License which accompanied the RTCW SP Source Code.  If not, please request a copy in writing from id Software at the address below.

If you have questions concerning this license or the applicable additional terms, you may contact in writing id Software LLC, c/o ZeniMax Media Inc., Suite 120, Rockville, Maryland 20850 USA.

===========================================================================
*/


#include "l_cmd.h"
#include "l_math.h"
#include "l_mem.h"
#include "l_log.h"
#include "l_poly.h"
#include "../botlib/l_script.h"
#include "l_qfiles.h"
#include "l_bsp_q3.h"
#include "l_bsp_ent.h"
//#include "qfiles.h"
#include "q2files.h"

void Q3_ParseEntities( void );
void Q3_PrintBSPFileSizes( void );

void GetLeafNums( void );

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

#define WCONVEX_EPSILON     0.5

int q3_nummodels;
q3_dmodel_t     *q3_dmodels; //[MAX_MAP_MODELS];

int q3_numShaders;
q3_dshader_t    *q3_dshaders; //[Q3_MAX_MAP_SHADERS];

int q3_entdatasize;
char            *q3_dentdata; //[Q3_MAX_MAP_ENTSTRING];

int q3_numleafs;
q3_dleaf_t      *q3_dleafs; //[Q3_MAX_MAP_LEAFS];

int q3_numplanes;
q3_dplane_t     *q3_dplanes; //[Q3_MAX_MAP_PLANES];

int q3_numnodes;
q3_dnode_t      *q3_dnodes; //[Q3_MAX_MAP_NODES];

int q3_numleafsurfaces;
int             *q3_dleafsurfaces; //[Q3_MAX_MAP_LEAFFACES];

int q3_numleafbrushes;
int             *q3_dleafbrushes; //[Q3_MAX_MAP_LEAFBRUSHES];

int q3_numbrushes;
q3_dbrush_t     *q3_dbrushes; //[Q3_MAX_MAP_BRUSHES];

int q3_numbrushsides;
q3_dbrushside_t *q3_dbrushsides; //[Q3_MAX_MAP_BRUSHSIDES];

int q3_numLightBytes;
byte            *q3_lightBytes; //[Q3_MAX_MAP_LIGHTING];

int q3_numGridPoints;
byte            *q3_gridData; //[Q3_MAX_MAP_LIGHTGRID];

int q3_numVisBytes;
byte            *q3_visBytes; //[Q3_MAX_MAP_VISIBILITY];

int q3_numDrawVerts;
q3_drawVert_t   *q3_drawVerts; //[Q3_MAX_MAP_DRAW_VERTS];

int q3_numDrawIndexes;
int             *q3_drawIndexes; //[Q3_MAX_MAP_DRAW_INDEXES];

int q3_numDrawSurfaces;
q3_dsurface_t   *q3_drawSurfaces; //[Q3_MAX_MAP_DRAW_SURFS];

int q3_numFogs;
q3_dfog_t       *q3_dfogs; //[Q3_MAX_MAP_FOGS];

char q3_dbrushsidetextured[Q3_MAX_MAP_BRUSHSIDES];

extern qboolean forcesidesvisible;


//===========================================================================
//
// Parameter:			-
// Returns:				-
// Changes Globals:		-
//===========================================================================
void Q3_FreeMaxBSP( void ) {
	if ( q3_dmodels ) {
		FreeMemory( q3_dmodels );
	}
	q3_dmodels = NULL;
	q3_nummodels = 0;
	if ( q3_dshaders ) {
		FreeMemory( q3_dshaders );
	}
	q3_dshaders = NULL;
	q3_numShaders = 0;
	if ( q3_dentdata ) {
		FreeMemory( q3_dentdata );
	}
	q3_dentdata = NULL;
	q3_entdatasize = 0;
	if ( q3_dleafs ) {
		FreeMemory( q3_dleafs );
	}
	q3_dleafs = NULL;
	q3_numleafs = 0;
	if ( q3_dplanes ) {
		FreeMemory( q3_dplanes );
	}
	q3_dplanes = NULL;
	q3_numplanes = 0;
	if ( q3_dnodes ) {
		FreeMemory( q3_dnodes );
	}
	q3_dnodes = NULL;
	q3_numnodes = 0;
	if ( q3_dleafsurfaces ) {
		FreeMemory( q3_dleafsurfaces );
	}
	q3_dleafsurfaces = NULL;
	q3_numleafsurfaces = 0;
	if ( q3_dleafbrushes ) {
		FreeMemory( q3_dleafbrushes );
	}
	q3_dleafbrushes = NULL;
	q3_numleafbrushes = 0;
	if ( q3_dbrushes ) {
		FreeMemory( q3_dbrushes );
	}
	q3_dbrushes = NULL;
	q3_numbrushes = 0;
	if ( q3_dbrushsides ) {
		FreeMemory( q3_dbrushsides );
	}
	q3_dbrushsides = NULL;
	q3_numbrushsides = 0;
	if ( q3_lightBytes ) {
		FreeMemory( q3_lightBytes );
	}
	q3_lightBytes = NULL;
	q3_numLightBytes = 0;
	if ( q3_gridData ) {
		FreeMemory( q3_gridData );
	}
	q3_gridData = NULL;
	q3_numGridPoints = 0;
	if ( q3_visBytes ) {
		FreeMemory( q3_visBytes );
	}
	q3_visBytes = NULL;
	q3_numVisBytes = 0;
	if ( q3_drawVerts ) {
		FreeMemory( q3_drawVerts );
	}
	q3_drawVerts = NULL;
	q3_numDrawVerts = 0;
	if ( q3_drawIndexes ) {
		FreeMemory( q3_drawIndexes );
	}
	q3_drawIndexes = NULL;
	q3_numDrawIndexes = 0;
	if ( q3_drawSurfaces ) {
		FreeMemory( q3_drawSurfaces );
	}
	q3_drawSurfaces = NULL;
	q3_numDrawSurfaces = 0;
	if ( q3_dfogs ) {
		FreeMemory( q3_dfogs );
	}
	q3_dfogs = NULL;
	q3_numFogs = 0;
} //end of the function Q3_FreeMaxBSP

//===========================================================================
//
// Parameter:				-
// Returns:					-
// Changes Globals:		-
//===========================================================================
void Q3_PlaneFromPoints( vec3_t p0, vec3_t p1, vec3_t p2, vec3_t normal, float *dist ) {
	vec3_t t1, t2;

	VectorSubtract( p0, p1, t1 );
	VectorSubtract( p2, p1, t2 );
	CrossProduct( t1, t2, normal );
	VectorNormalize( normal );

	*dist = DotProduct( p0, normal );
} //end of the function PlaneFromPoints
//===========================================================================
//
// Parameter:				-
// Returns:					-
// Changes Globals:		-
//===========================================================================
void Q3_SurfacePlane( q3_dsurface_t *surface, vec3_t normal, float *dist ) {
	int i;
	float *p0, *p1, *p2;
	vec3_t t1, t2;

	p0 = q3_drawVerts[surface->firstVert].xyz;
	for ( i = 1; i < surface->numVerts - 1; i++ )
	{
		p1 = q3_drawVerts[surface->firstVert + ( ( i ) % surface->numVerts )].xyz;
		p2 = q3_drawVerts[surface->firstVert + ( ( i + 1 ) % surface->numVerts )].xyz;
		VectorSubtract( p0, p1, t1 );
		VectorSubtract( p2, p1, t2 );
		CrossProduct( t1, t2, normal );
		VectorNormalize( normal );
		if ( VectorLength( normal ) ) {
			break;
		}
	} //end for*/
/*
	float dot;
	for (i = 0; i < surface->numVerts; i++)
	{
		p0 = q3_drawVerts[surface->firstVert + ((i) % surface->numVerts)].xyz;
		p1 = q3_drawVerts[surface->firstVert + ((i+1) % surface->numVerts)].xyz;
		p2 = q3_drawVerts[surface->firstVert + ((i+2) % surface->numVerts)].xyz;
		VectorSubtract(p0, p1, t1);
		VectorSubtract(p2, p1, t2);
		VectorNormalize(t1);
		VectorNormalize(t2);
		dot = DotProduct(t1, t2);
		if (dot > -0.9 && dot < 0.9 &&
			VectorLength(t1) > 0.1 && VectorLength(t2) > 0.1) break;
	} //end for
	CrossProduct(t1, t2, normal);
	VectorNormalize(normal);
*/
	if ( VectorLength( normal ) < 0.9 ) {
		printf( "surface %d bogus normal vector %f %f %f\n", surface - q3_drawSurfaces, normal[0], normal[1], normal[2] );
		printf( "t1 = %f %f %f, t2 = %f %f %f\n", t1[0], t1[1], t1[2], t2[0], t2[1], t2[2] );
		for ( i = 0; i < surface->numVerts; i++ )
		{
			p1 = q3_drawVerts[surface->firstVert + ( ( i ) % surface->numVerts )].xyz;
			Log_Print( "p%d = %f %f %f\n", i, p1[0], p1[1], p1[2] );
		} //end for
	} //end if
	*dist = DotProduct( p0, normal );
} //end of the function Q3_SurfacePlane
//===========================================================================
//
// Parameter:				-
// Returns:					-
// Changes Globals:		-
//===========================================================================
q3_dplane_t *q3_surfaceplanes;

void Q3_CreatePlanarSurfacePlanes( void ) {
	int i;
	q3_dsurface_t *surface;

	Log_Print( "creating planar surface planes...\n" );
	q3_surfaceplanes = (q3_dplane_t *) GetClearedMemory( q3_numDrawSurfaces * sizeof( q3_dplane_t ) );

	for ( i = 0; i < q3_numDrawSurfaces; i++ )
	{
		surface = &q3_drawSurfaces[i];
		if ( surface->surfaceType != MST_PLANAR ) {
			continue;
		}
		Q3_SurfacePlane( surface, q3_surfaceplanes[i].normal, &q3_surfaceplanes[i].dist );
		//Log_Print("normal = %f %f %f, dist = %f\n", q3_surfaceplanes[i].normal[0],
		//											q3_surfaceplanes[i].normal[1],
		//											q3_surfaceplanes[i].normal[2], q3_surfaceplanes[i].dist);
	} //end for
} //end of the function Q3_CreatePlanarSurfacePlanes
//===========================================================================
//
// Parameter:				-
// Returns:					-
// Changes Globals:		-
//===========================================================================
/*
void Q3_SurfacePlane(q3_dsurface_t *surface, vec3_t normal, float *dist)
{
	//take the plane information from the lightmap vector
	//VectorCopy(surface->lightmapVecs[2], normal);
	//calculate plane dist with first surface vertex
	// *dist = DotProduct(q3_drawVerts[surface->firstVert].xyz, normal);
	Q3_PlaneFromPoints(q3_drawVerts[surface->firstVert].xyz,
						q3_drawVerts[surface->firstVert+1].xyz,
						q3_drawVerts[surface->firstVert+2].xyz, normal, dist);
} //end of the function Q3_SurfacePlane*/
//===========================================================================
// returns the amount the face and the winding overlap
//
// Parameter:				-
// Returns:					-
// Changes Globals:		-
//===========================================================================
float Q3_FaceOnWinding( q3_dsurface_t *surface, winding_t *winding ) {
	int i;
	float dist, area;
	q3_dplane_t plane;
	vec_t *v1, *v2;
	vec3_t normal, edgevec;
	winding_t *w;

	//copy the winding before chopping
	w = CopyWinding( winding );
	//retrieve the surface plane
	Q3_SurfacePlane( surface, plane.normal, &plane.dist );
	//chop the winding with the surface edge planes
	for ( i = 0; i < surface->numVerts && w; i++ )
	{
		v1 = q3_drawVerts[surface->firstVert + ( ( i ) % surface->numVerts )].xyz;
		v2 = q3_drawVerts[surface->firstVert + ( ( i + 1 ) % surface->numVerts )].xyz;
		//create a plane through the edge from v1 to v2, orthogonal to the
		//surface plane and with the normal vector pointing inward
		VectorSubtract( v2, v1, edgevec );
		CrossProduct( edgevec, plane.normal, normal );
		VectorNormalize( normal );
		dist = DotProduct( normal, v1 );
		//
		ChopWindingInPlace( &w, normal, dist, -0.1 ); //CLIP_EPSILON
	} //end for
	if ( w ) {
		area = WindingArea( w );
		FreeWinding( w );
		return area;
	} //end if
	return 0;
} //end of the function Q3_FaceOnWinding
//===========================================================================
// creates a winding for the given brush side on the given brush
//
// Parameter:				-
// Returns:					-
// Changes Globals:		-
//===========================================================================
winding_t *Q3_BrushSideWinding( q3_dbrush_t *brush, q3_dbrushside_t *baseside ) {
	int i;
	q3_dplane_t *baseplane, *plane;
	winding_t *w;
	q3_dbrushside_t *side;

	//create a winding for the brush side with the given planenumber
	baseplane = &q3_dplanes[baseside->planeNum];
	w = BaseWindingForPlane( baseplane->normal, baseplane->dist );
	for ( i = 0; i < brush->numSides && w; i++ )
	{
		side = &q3_dbrushsides[brush->firstSide + i];
		//don't chop with the base plane
		if ( side->planeNum == baseside->planeNum ) {
			continue;
		}
		//also don't use planes that are almost equal
		plane = &q3_dplanes[side->planeNum];
		if ( DotProduct( baseplane->normal, plane->normal ) > 0.999
			 && fabs( baseplane->dist - plane->dist ) < 0.01 ) {
			continue;
		}
		//
		plane = &q3_dplanes[side->planeNum ^ 1];
		ChopWindingInPlace( &w, plane->normal, plane->dist, -0.1 ); //CLIP_EPSILON);
	} //end for
	return w;
} //end of the function Q3_BrushSideWinding
//===========================================================================
// fix screwed brush texture references
//
// Parameter:				-
// Returns:					-
// Changes Globals:		-
//===========================================================================
qboolean WindingIsTiny( winding_t *w );

void Q3_FindVisibleBrushSides( void ) {
	int i, j, k, we, numtextured, numsides;
	float dot;
	q3_dplane_t *plane;
	q3_dbrushside_t *brushside;
	q3_dbrush_t *brush;
	q3_dsurface_t *surface;
	winding_t *w;

	memset( q3_dbrushsidetextured, false, Q3_MAX_MAP_BRUSHSIDES );
	//
	numsides = 0;
	//create planes for the planar surfaces
	Q3_CreatePlanarSurfacePlanes();
	Log_Print( "searching visible brush sides...\n" );
	Log_Print( "%6d brush sides", numsides );
	//go over all the brushes
	for ( i = 0; i < q3_numbrushes; i++ )
	{
		brush = &q3_dbrushes[i];
		// if one of the brush sides uses the terrain shader mark all sides as visible
		for ( j = 0; j < brush->numSides; j++ ) {
			brushside = &q3_dbrushsides[brush->firstSide + j];
			// NOTE: using "terrain" just like in q3map/terrain.c
			if ( strstr( q3_dshaders[brushside->shaderNum].shader, "terrain" ) ) {
				for ( j = 0; j < brush->numSides; j++ ) {
					q3_dbrushsidetextured[brush->firstSide + j] = true;
				}
				break;
			}
		}
		if ( j < brush->numSides ) {
			continue;
		}
		//go over all the sides of the brush
		for ( j = 0; j < brush->numSides; j++ )
		{
			qprintf( "\r%6d", numsides++ );
			brushside = &q3_dbrushsides[brush->firstSide + j];
			//
			w = Q3_BrushSideWinding( brush, brushside );
			if ( !w ) {
				q3_dbrushsidetextured[brush->firstSide + j] = true;
				continue;
			} //end if
			else
			{
				//RemoveEqualPoints(w, 0.2);
				if ( WindingIsTiny( w ) ) {
					FreeWinding( w );
					q3_dbrushsidetextured[brush->firstSide + j] = true;
					continue;
				} //end if
				else
				{
					we = WindingError( w );
					if ( we == WE_NOTENOUGHPOINTS
						 || we == WE_SMALLAREA
						 || we == WE_POINTBOGUSRANGE
//						|| we == WE_NONCONVEX
						 ) {
						FreeWinding( w );
						q3_dbrushsidetextured[brush->firstSide + j] = true;
						continue;
					} //end if
				} //end else
			} //end else
			if ( WindingArea( w ) < 20 ) {
				q3_dbrushsidetextured[brush->firstSide + j] = true;
				continue;
			} //end if
			  //find a face for texturing this brush
			for ( k = 0; k < q3_numDrawSurfaces; k++ )
			{
				surface = &q3_drawSurfaces[k];
				if ( surface->surfaceType != MST_PLANAR ) {
					continue;
				}
				//
				//Q3_SurfacePlane(surface, plane.normal, &plane.dist);
				plane = &q3_surfaceplanes[k];
				//the surface plane and the brush side plane should be pretty much the same
				if ( fabs( fabs( plane->dist ) - fabs( q3_dplanes[brushside->planeNum].dist ) ) > 5 ) {
					continue;
				}
				dot = DotProduct( plane->normal, q3_dplanes[brushside->planeNum].normal );
				if ( dot > -0.9 && dot < 0.9 ) {
					continue;
				}
				//if the face is partly or totally on the brush side
				if ( Q3_FaceOnWinding( surface, w ) ) {
					q3_dbrushsidetextured[brush->firstSide + j] = true;
					//Log_Write("Q3_FaceOnWinding");
					break;
				} //end if
			} //end for
			FreeWinding( w );
		} //end for
	} //end for
	qprintf( "\r%6d brush sides\n", numsides );
	numtextured = 0;
	for ( i = 0; i < q3_numbrushsides; i++ )
	{
		if ( forcesidesvisible ) {
			q3_dbrushsidetextured[i] = true;
		}
		if ( q3_dbrushsidetextured[i] ) {
			numtextured++;
		}
	} //end for
	Log_Print( "%d brush sides textured out of %d\n", numtextured, q3_numbrushsides );
} //end of the function Q3_FindVisibleBrushSides

/*
=============
Q3_SwapBlock

If all values are 32 bits, this can be used to swap everything
=============
*/
void Q3_SwapBlock( int *block, int sizeOfBlock ) {
	int i;

	sizeOfBlock >>= 2;
	for ( i = 0 ; i < sizeOfBlock ; i++ ) {
		block[i] = LittleLong( block[i] );
	}
} //end of the function Q3_SwapBlock

/*
=============
Q3_SwapBSPFile

Byte swaps all data in a bsp file.
=============
*/
void Q3_SwapBSPFile( void ) {
	int i;

	// models
	Q3_SwapBlock( (int *)q3_dmodels, q3_nummodels * sizeof( q3_dmodels[0] ) );

	// shaders (don't swap the name)
	for ( i = 0 ; i < q3_numShaders ; i++ ) {
		q3_dshaders[i].contentFlags = LittleLong( q3_dshaders[i].contentFlags );
		q3_dshaders[i].surfaceFlags = LittleLong( q3_dshaders[i].surfaceFlags );
		//
		// RF, only keep content flags that are consistent with q3map
		q3_dshaders[i].contentFlags &= ( CONTENTS_SOLID | CONTENTS_WINDOW | CONTENTS_LAVA | CONTENTS_SLIME | CONTENTS_WATER | CONTENTS_MIST | CONTENTS_AREAPORTAL | CONTENTS_PLAYERCLIP | CONTENTS_MONSTERCLIP | CONTENTS_ORIGIN | CONTENTS_DETAIL );
	}

	// planes
	Q3_SwapBlock( (int *)q3_dplanes, q3_numplanes * sizeof( q3_dplanes[0] ) );

	// nodes
	Q3_SwapBlock( (int *)q3_dnodes, q3_numnodes * sizeof( q3_dnodes[0] ) );

	// leafs
	Q3_SwapBlock( (int *)q3_dleafs, q3_numleafs * sizeof( q3_dleafs[0] ) );

	// leaffaces
	Q3_SwapBlock( (int *)q3_dleafsurfaces, q3_numleafsurfaces * sizeof( q3_dleafsurfaces[0] ) );

	// leafbrushes
	Q3_SwapBlock( (int *)q3_dleafbrushes, q3_numleafbrushes * sizeof( q3_dleafbrushes[0] ) );

	// brushes
	Q3_SwapBlock( (int *)q3_dbrushes, q3_numbrushes * sizeof( q3_dbrushes[0] ) );

	// brushsides
	Q3_SwapBlock( (int *)q3_dbrushsides, q3_numbrushsides * sizeof( q3_dbrushsides[0] ) );

	// vis
	( (int *)&q3_visBytes )[0] = LittleLong( ( (int *)&q3_visBytes )[0] );
	( (int *)&q3_visBytes )[1] = LittleLong( ( (int *)&q3_visBytes )[1] );

	// drawverts (don't swap colors )
	for ( i = 0 ; i < q3_numDrawVerts ; i++ ) {
		q3_drawVerts[i].lightmap[0] = LittleFloat( q3_drawVerts[i].lightmap[0] );
		q3_drawVerts[i].lightmap[1] = LittleFloat( q3_drawVerts[i].lightmap[1] );
		q3_drawVerts[i].st[0] = LittleFloat( q3_drawVerts[i].st[0] );
		q3_drawVerts[i].st[1] = LittleFloat( q3_drawVerts[i].st[1] );
		q3_drawVerts[i].xyz[0] = LittleFloat( q3_drawVerts[i].xyz[0] );
		q3_drawVerts[i].xyz[1] = LittleFloat( q3_drawVerts[i].xyz[1] );
		q3_drawVerts[i].xyz[2] = LittleFloat( q3_drawVerts[i].xyz[2] );
		q3_drawVerts[i].normal[0] = LittleFloat( q3_drawVerts[i].normal[0] );
		q3_drawVerts[i].normal[1] = LittleFloat( q3_drawVerts[i].normal[1] );
		q3_drawVerts[i].normal[2] = LittleFloat( q3_drawVerts[i].normal[2] );
	}

	// drawindexes
	Q3_SwapBlock( (int *)q3_drawIndexes, q3_numDrawIndexes * sizeof( q3_drawIndexes[0] ) );

	// drawsurfs
	Q3_SwapBlock( (int *)q3_drawSurfaces, q3_numDrawSurfaces * sizeof( q3_drawSurfaces[0] ) );

	// fogs
	for ( i = 0 ; i < q3_numFogs ; i++ ) {
		q3_dfogs[i].brushNum = LittleLong( q3_dfogs[i].brushNum );
	}
}



/*
=============
Q3_CopyLump
=============
*/
int Q3_CopyLump( q3_dheader_t   *header, int lump, void **dest, int size ) {
	int length, ofs;

	length = header->lumps[lump].filelen;
	ofs = header->lumps[lump].fileofs;

	if ( length % size ) {
		Error( "Q3_LoadBSPFile: odd lump size" );
	}

	*dest = GetMemory( length );

	memcpy( *dest, (byte *)header + ofs, length );

	return length / size;
}

/*
=============
Q3_LoadBSPFile
=============
*/
void    Q3_LoadBSPFile( struct quakefile_s *qf ) {
	q3_dheader_t    *header;

	// load the file header
	//LoadFile(filename, (void **)&header, offset, length);
	//
	LoadQuakeFile( qf, (void **)&header );

	// swap the header
	Q3_SwapBlock( (int *)header, sizeof( *header ) );

	if ( header->ident != Q3_BSP_IDENT ) {
		Error( "%s is not a IBSP file", qf->filename );
	}
	if ( header->version != Q3_BSP_VERSION ) {
		Error( "%s is version %i, not %i", qf->filename, header->version, Q3_BSP_VERSION );
	}

	q3_numShaders = Q3_CopyLump( header, Q3_LUMP_SHADERS, (void *) &q3_dshaders, sizeof( q3_dshader_t ) );
	q3_nummodels = Q3_CopyLump( header, Q3_LUMP_MODELS, (void *) &q3_dmodels, sizeof( q3_dmodel_t ) );
	q3_numplanes = Q3_CopyLump( header, Q3_LUMP_PLANES, (void *) &q3_dplanes, sizeof( q3_dplane_t ) );
	q3_numleafs = Q3_CopyLump( header, Q3_LUMP_LEAFS, (void *) &q3_dleafs, sizeof( q3_dleaf_t ) );
	q3_numnodes = Q3_CopyLump( header, Q3_LUMP_NODES, (void *) &q3_dnodes, sizeof( q3_dnode_t ) );
	q3_numleafsurfaces = Q3_CopyLump( header, Q3_LUMP_LEAFSURFACES, (void *) &q3_dleafsurfaces, sizeof( q3_dleafsurfaces[0] ) );
	q3_numleafbrushes = Q3_CopyLump( header, Q3_LUMP_LEAFBRUSHES, (void *) &q3_dleafbrushes, sizeof( q3_dleafbrushes[0] ) );
	q3_numbrushes = Q3_CopyLump( header, Q3_LUMP_BRUSHES, (void *) &q3_dbrushes, sizeof( q3_dbrush_t ) );
	q3_numbrushsides = Q3_CopyLump( header, Q3_LUMP_BRUSHSIDES, (void *) &q3_dbrushsides, sizeof( q3_dbrushside_t ) );
	q3_numDrawVerts = Q3_CopyLump( header, Q3_LUMP_DRAWVERTS, (void *) &q3_drawVerts, sizeof( q3_drawVert_t ) );
	q3_numDrawSurfaces = Q3_CopyLump( header, Q3_LUMP_SURFACES, (void *) &q3_drawSurfaces, sizeof( q3_dsurface_t ) );
	q3_numFogs = Q3_CopyLump( header, Q3_LUMP_FOGS, (void *) &q3_dfogs, sizeof( q3_dfog_t ) );
	q3_numDrawIndexes = Q3_CopyLump( header, Q3_LUMP_DRAWINDEXES, (void *) &q3_drawIndexes, sizeof( q3_drawIndexes[0] ) );

	q3_numVisBytes = Q3_CopyLump( header, Q3_LUMP_VISIBILITY, (void *) &q3_visBytes, 1 );
	q3_numLightBytes = Q3_CopyLump( header, Q3_LUMP_LIGHTMAPS, (void *) &q3_lightBytes, 1 );
	q3_entdatasize = Q3_CopyLump( header, Q3_LUMP_ENTITIES, (void *) &q3_dentdata, 1 );

	q3_numGridPoints = Q3_CopyLump( header, Q3_LUMP_LIGHTGRID, (void *) &q3_gridData, 8 );


	FreeMemory( header );       // everything has been copied out

	// swap everything
	Q3_SwapBSPFile();

	Q3_FindVisibleBrushSides();

	//Q3_PrintBSPFileSizes();
}


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

/*
=============
Q3_AddLump
=============
*/
void Q3_AddLump( FILE *bspfile, q3_dheader_t *header, int lumpnum, void *data, int len ) {
	q3_lump_t *lump;

	lump = &header->lumps[lumpnum];

	lump->fileofs = LittleLong( ftell( bspfile ) );
	lump->filelen = LittleLong( len );
	SafeWrite( bspfile, data, ( len + 3 ) & ~3 );
}

/*
=============
Q3_WriteBSPFile

Swaps the bsp file in place, so it should not be referenced again
=============
*/
void    Q3_WriteBSPFile( char *filename ) {
	q3_dheader_t outheader, *header;
	FILE        *bspfile;

	header = &outheader;
	memset( header, 0, sizeof( q3_dheader_t ) );

	Q3_SwapBSPFile();

	header->ident = LittleLong( Q3_BSP_IDENT );
	header->version = LittleLong( Q3_BSP_VERSION );

	bspfile = SafeOpenWrite( filename );
	SafeWrite( bspfile, header, sizeof( q3_dheader_t ) ); // overwritten later

	Q3_AddLump( bspfile, header, Q3_LUMP_SHADERS, q3_dshaders, q3_numShaders * sizeof( q3_dshader_t ) );
	Q3_AddLump( bspfile, header, Q3_LUMP_PLANES, q3_dplanes, q3_numplanes * sizeof( q3_dplane_t ) );
	Q3_AddLump( bspfile, header, Q3_LUMP_LEAFS, q3_dleafs, q3_numleafs * sizeof( q3_dleaf_t ) );
	Q3_AddLump( bspfile, header, Q3_LUMP_NODES, q3_dnodes, q3_numnodes * sizeof( q3_dnode_t ) );
	Q3_AddLump( bspfile, header, Q3_LUMP_BRUSHES, q3_dbrushes, q3_numbrushes * sizeof( q3_dbrush_t ) );
	Q3_AddLump( bspfile, header, Q3_LUMP_BRUSHSIDES, q3_dbrushsides, q3_numbrushsides * sizeof( q3_dbrushside_t ) );
	Q3_AddLump( bspfile, header, Q3_LUMP_LEAFSURFACES, q3_dleafsurfaces, q3_numleafsurfaces * sizeof( q3_dleafsurfaces[0] ) );
	Q3_AddLump( bspfile, header, Q3_LUMP_LEAFBRUSHES, q3_dleafbrushes, q3_numleafbrushes * sizeof( q3_dleafbrushes[0] ) );
	Q3_AddLump( bspfile, header, Q3_LUMP_MODELS, q3_dmodels, q3_nummodels * sizeof( q3_dmodel_t ) );
	Q3_AddLump( bspfile, header, Q3_LUMP_DRAWVERTS, q3_drawVerts, q3_numDrawVerts * sizeof( q3_drawVert_t ) );
	Q3_AddLump( bspfile, header, Q3_LUMP_SURFACES, q3_drawSurfaces, q3_numDrawSurfaces * sizeof( q3_dsurface_t ) );
	Q3_AddLump( bspfile, header, Q3_LUMP_VISIBILITY, q3_visBytes, q3_numVisBytes );
	Q3_AddLump( bspfile, header, Q3_LUMP_LIGHTMAPS, q3_lightBytes, q3_numLightBytes );
	Q3_AddLump( bspfile, header, Q3_LUMP_LIGHTGRID, q3_gridData, 8 * q3_numGridPoints );
	Q3_AddLump( bspfile, header, Q3_LUMP_ENTITIES, q3_dentdata, q3_entdatasize );
	Q3_AddLump( bspfile, header, Q3_LUMP_FOGS, q3_dfogs, q3_numFogs * sizeof( q3_dfog_t ) );
	Q3_AddLump( bspfile, header, Q3_LUMP_DRAWINDEXES, q3_drawIndexes, q3_numDrawIndexes * sizeof( q3_drawIndexes[0] ) );

	fseek( bspfile, 0, SEEK_SET );
	SafeWrite( bspfile, header, sizeof( q3_dheader_t ) );
	fclose( bspfile );
}

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

/*
=============
Q3_PrintBSPFileSizes

Dumps info about current file
=============
*/
void Q3_PrintBSPFileSizes( void ) {
	if ( !num_entities ) {
		Q3_ParseEntities();
	}

	Log_Print( "%6i models       %7i\n"
			   ,q3_nummodels, (int)( q3_nummodels * sizeof( q3_dmodel_t ) ) );
	Log_Print( "%6i shaders      %7i\n"
			   ,q3_numShaders, (int)( q3_numShaders * sizeof( q3_dshader_t ) ) );
	Log_Print( "%6i brushes      %7i\n"
			   ,q3_numbrushes, (int)( q3_numbrushes * sizeof( q3_dbrush_t ) ) );
	Log_Print( "%6i brushsides   %7i\n"
			   ,q3_numbrushsides, (int)( q3_numbrushsides * sizeof( q3_dbrushside_t ) ) );
	Log_Print( "%6i fogs         %7i\n"
			   ,q3_numFogs, (int)( q3_numFogs * sizeof( q3_dfog_t ) ) );
	Log_Print( "%6i planes       %7i\n"
			   ,q3_numplanes, (int)( q3_numplanes * sizeof( q3_dplane_t ) ) );
	Log_Print( "%6i entdata      %7i\n", num_entities, q3_entdatasize );

	Log_Print( "\n" );

	Log_Print( "%6i nodes        %7i\n"
			   ,q3_numnodes, (int)( q3_numnodes * sizeof( q3_dnode_t ) ) );
	Log_Print( "%6i leafs        %7i\n"
			   ,q3_numleafs, (int)( q3_numleafs * sizeof( q3_dleaf_t ) ) );
	Log_Print( "%6i leafsurfaces %7i\n"
			   ,q3_numleafsurfaces, (int)( q3_numleafsurfaces * sizeof( q3_dleafsurfaces[0] ) ) );
	Log_Print( "%6i leafbrushes  %7i\n"
			   ,q3_numleafbrushes, (int)( q3_numleafbrushes * sizeof( q3_dleafbrushes[0] ) ) );
	Log_Print( "%6i drawverts    %7i\n"
			   ,q3_numDrawVerts, (int)( q3_numDrawVerts * sizeof( q3_drawVerts[0] ) ) );
	Log_Print( "%6i drawindexes  %7i\n"
			   ,q3_numDrawIndexes, (int)( q3_numDrawIndexes * sizeof( q3_drawIndexes[0] ) ) );
	Log_Print( "%6i drawsurfaces %7i\n"
			   ,q3_numDrawSurfaces, (int)( q3_numDrawSurfaces * sizeof( q3_drawSurfaces[0] ) ) );

	Log_Print( "%6i lightmaps    %7i\n"
			   ,q3_numLightBytes / ( LIGHTMAP_WIDTH * LIGHTMAP_HEIGHT * 3 ), q3_numLightBytes );
	Log_Print( "       visibility   %7i\n"
			   , q3_numVisBytes );
}

/*
================
Q3_ParseEntities

Parses the q3_dentdata string into entities
================
*/
void Q3_ParseEntities( void ) {
	script_t *script;

	num_entities = 0;
	script = LoadScriptMemory( q3_dentdata, q3_entdatasize, "*Quake3 bsp file" );
	SetScriptFlags( script, SCFL_NOSTRINGWHITESPACES |
					SCFL_NOSTRINGESCAPECHARS );

	while ( ParseEntity( script ) )
	{
	} //end while

	FreeScript( script );
} //end of the function Q3_ParseEntities


/*
================
Q3_UnparseEntities

Generates the q3_dentdata string from all the entities
================
*/
void Q3_UnparseEntities( void ) {
	char *buf, *end;
	epair_t *ep;
	char line[2048];
	int i;

	buf = q3_dentdata;
	end = buf;
	*end = 0;

	for ( i = 0 ; i < num_entities ; i++ )
	{
		ep = entities[i].epairs;
		if ( !ep ) {
			continue;   // ent got removed

		}
		strcat( end,"{\n" );
		end += 2;

		for ( ep = entities[i].epairs ; ep ; ep = ep->next )
		{
			sprintf( line, "\"%s\" \"%s\"\n", ep->key, ep->value );
			strcat( end, line );
			end += strlen( line );
		}
		strcat( end,"}\n" );
		end += 2;

		if ( end > buf + Q3_MAX_MAP_ENTSTRING ) {
			Error( "Entity text too long" );
		}
	}
	q3_entdatasize = end - buf + 1;
} //end of the function Q3_UnparseEntities