/*
Copyright (C) 1999-2006 Id Software, Inc. and contributors.
For a list of contributors, see the accompanying CONTRIBUTORS file.

This file is part of GtkRadiant.

GtkRadiant 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 2 of the License, or
(at your option) any later version.

GtkRadiant 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 GtkRadiant; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
*/

//
// trilib.c: library for loading triangles from an Alias triangle file
//

#include <stdio.h>
#include "cmdlib.h"
#include "inout.h"
#include "mathlib.h"
#include "trilib.h"
#include "token.h"
#include "l3dslib.h"
#include "fmodel.h"
#if 1
#include "qd_skeletons.h"
#endif

// on disk representation of a face
#define	FLOAT_START	99999.0
#define	FLOAT_END	-FLOAT_START
#define MAGIC       123322
#ifndef M_PI
  #define M_PI		3.14159265
#endif

float FixHTRRotateX = 0.0;
float FixHTRRotateY = 0.0;
float FixHTRRotateZ = 0.0;
float FixHTRTranslateX = 0.0;
float FixHTRTranslateY = 0.0;
float FixHTRTranslateZ = 0.0;

//#define NOISY 1

typedef struct {
	float v[3];
} vector;

typedef struct
{
	vector n;    /* normal */
	vector p;    /* point */
	vector c;    /* color */
	float  u;    /* u */
	float  v;    /* v */
} aliaspoint_t;

typedef struct {
	aliaspoint_t	pt[3];
} tf_triangle;


void ByteSwapTri (tf_triangle *tri)
{
	int		i;
	
	for (i=0 ; i<sizeof(tf_triangle)/4 ; i++)
	{
		((int *)tri)[i] = BigLong (((int *)tri)[i]);
	}
}

void LoadTRI (char *filename, triangle_t **pptri, int *numtriangles, mesh_node_t **nodesList, int *num_mesh_nodes)
{
	FILE        *input;
	float       start;
	char        name[256], tex[256];
	int         i, count, magic;
	tf_triangle	tri;
	triangle_t	*ptri;
	int			iLevel;
	int			exitpattern;
	float		t;

	if (nodesList)
	{
		*num_mesh_nodes = 0;
		*nodesList = (mesh_node_t *) SafeMalloc(MAX_FM_MESH_NODES * sizeof(mesh_node_t), "Mesh Node List");
	}

	t = -FLOAT_START;
	*((unsigned char *)&exitpattern + 0) = *((unsigned char *)&t + 3);
	*((unsigned char *)&exitpattern + 1) = *((unsigned char *)&t + 2);
	*((unsigned char *)&exitpattern + 2) = *((unsigned char *)&t + 1);
	*((unsigned char *)&exitpattern + 3) = *((unsigned char *)&t + 0);

	if ((input = fopen(filename, "rb")) == 0)
		Error ("reader: could not open file '%s'", filename);

	iLevel = 0;

	fread(&magic, sizeof(int), 1, input);
	if (BigLong(magic) != MAGIC)
		Error ("%s is not a Alias object separated triangle file, magic number is wrong.", filename);

	ptri = malloc (MAXTRIANGLES * sizeof(triangle_t));

	*pptri = ptri;

	while (feof(input) == 0) {
		if (fread(&start,  sizeof(float), 1, input) < 1)
			break;
		*(int *)&start = BigLong(*(int *)&start);
		if (*(int *)&start != exitpattern)
		{
			if (start == FLOAT_START) {
				/* Start of an object or group of objects. */
				i = -1;
				do {
					/* There are probably better ways to read a string from */
					/* a file, but this does allow you to do error checking */
					/* (which I'm not doing) on a per character basis.      */
					++i;
					fread( &(name[i]), sizeof( char ), 1, input);
				} while( name[i] != '\0' );
	
//				indent();
//				fprintf(stdout,"OBJECT START: %s\n",name);
				fread( &count, sizeof(int), 1, input);
				count = BigLong(count);
				++iLevel;
				if (count != 0) {
//					indent();
//					fprintf(stdout,"NUMBER OF TRIANGLES: %d\n",count);
	
					i = -1;
					do {
						++i;
						fread( &(tex[i]), sizeof( char ), 1, input);
					} while( tex[i] != '\0' );
	
//					indent();
//					fprintf(stdout,"  Object texture name: '%s'\n",tex);
				}
	
				/* Else (count == 0) this is the start of a group, and */
				/* no texture name is present. */
			}
			else if (start == FLOAT_END) {
				/* End of an object or group. Yes, the name should be */
				/* obvious from context, but it is in here just to be */
				/* safe and to provide a little extra information for */
				/* those who do not wish to write a recursive reader. */
				/* Mia culpa. */
				--iLevel;
				i = -1;
				do {
					++i;
					fread( &(name[i]), sizeof( char ), 1, input);
				} while( name[i] != '\0' );
	
//				indent();
//				fprintf(stdout,"OBJECT END: %s\n",name);
				continue;
			}
		}

//
// read the triangles
//		
		for (i = 0; i < count; ++i) {
			int		j;

			fread( &tri, sizeof(tf_triangle), 1, input );
			ByteSwapTri (&tri);
			for (j=0 ; j<3 ; j++)
			{
				int		k;

				for (k=0 ; k<3 ; k++)
				{
					ptri->verts[j][k] = tri.pt[j].p.v[k];
				}
			}

			ptri++;

			if ((ptri - *pptri) >= MAXTRIANGLES)
				Error ("Error: too many triangles; increase MAXTRIANGLES\n");
		}
	}

	*numtriangles = ptri - *pptri;

	fclose (input);

	DefaultNodesList(nodesList,num_mesh_nodes,numtriangles);
}


//==========================================================================
//
// LoadHRC
//
//==========================================================================

float	scaling[3];
float	rotation[3];
float	translation[3];
static char		*hrc_name;

struct
{
	float v[3];
} vList[8192];

void HandleHRCModel(triangle_t **triList, int *triangleCount, mesh_node_t **nodesList, int *num_mesh_nodes,
						   int ActiveNode, int Depth, int numVerts)
{
	void ReadHRCClusterList(mesh_node_t *meshNode, int baseIndex);

	int			i, j;
	int			vertexCount;
	int			triCount;
	triangle_t	*tList;
	mesh_node_t *meshNode;
	float		x, y, z;
	float		x2, y2, z2;
	float		rx, ry, rz;
	tokenType_t nextToken;
	float		orig_scaling[3];
	float		orig_rotation[3];
	float		orig_translation[3];
	int			start_tri;
	int			pos,bit;
	int			vertIndexBase;

	// Update Node Info
	if (nodesList)
	{
		TK_BeyondRequire(TK_NAME, TK_STRING);

		if (Depth == 0 || tk_String[0] == '_')
		{	// Root
			ActiveNode = *num_mesh_nodes;
			(*num_mesh_nodes)++;
			if ((*num_mesh_nodes) > MAX_FM_MESH_NODES)
			{
				Error("Too many mesh nodes in file %s\n", hrc_name);
			}
			meshNode = &(*nodesList)[ActiveNode];

//			memset(meshNode, 0, sizeof(mesh_node_t));
			strcpy(meshNode->name, tk_String);

			memset(meshNode->tris, 0, sizeof(meshNode->tris));
			memset(meshNode->verts, 0, sizeof(meshNode->verts));

			meshNode->start_glcmds = 0;
			meshNode->num_glcmds = 0;
			vertIndexBase = 0;
		}
		else
		{	// Childs under the children
			meshNode = &(*nodesList)[ActiveNode];
			vertIndexBase = numVerts;
		}
	}
	else 
	{
		meshNode = NULL;
	}


	// Get the scaling, rotation, and translation values
	TK_Beyond(TK_SCALING);
	for(i = 0; i < 3; i++)
	{
		orig_scaling[i] = scaling[i];

		TK_Require(TK_FLOATNUMBER);
		scaling[i] *= tk_FloatNumber;

		TK_Fetch();
	}
	TK_Beyond(TK_ROTATION);
	for(i = 0; i < 3; i++)
	{
		orig_rotation[i] = rotation[i];

		TK_Require(TK_FLOATNUMBER);
		rotation[i] = tk_FloatNumber;

		TK_Fetch();
	}
	TK_Beyond(TK_TRANSLATION);
	for(i = 0; i < 3; i++)
	{
		orig_translation[i] = translation[i];

		TK_Require(TK_FLOATNUMBER);
		translation[i] += tk_FloatNumber;

		TK_Fetch();
	}

	rx = ((rotation[0]-90.0)/360.0)*2.0*M_PI;
	ry = (rotation[2]/360.0)*2.0*M_PI;
	rz = (rotation[1]/360.0)*2.0*M_PI;

	// rjr - might not work if there an item doesn't have a mesh
	nextToken = tk_Token;
	if (nextToken == TK_ACTOR_DATA)
	{
		while (nextToken != TK_MODEL && nextToken != TK_RBRACE)
		{
			nextToken = TK_Fetch();
		}
	}

	while (nextToken == TK_SPLINE)
	{	// spline node has two right braces
		nextToken = TK_Beyond(TK_RBRACE);
		nextToken = TK_Beyond(TK_RBRACE);
	}

	while (nextToken == TK_MATERIAL)
	{
		nextToken = TK_Beyond(TK_RBRACE);
	}

	while(nextToken == TK_MODEL)
	{
		HandleHRCModel(triList,triangleCount,nodesList,num_mesh_nodes,ActiveNode, Depth+1, 0);

		nextToken = TK_Fetch();
	}

	if (nextToken == TK_MESH)
	{
		// Get all the tri and vertex info
		TK_BeyondRequire(TK_VERTICES, TK_INTNUMBER);
		vertexCount = tk_IntNumber;
		for(i = 0; i < vertexCount; i++)
		{
			TK_BeyondRequire(TK_LBRACKET, TK_INTNUMBER);
			if(tk_IntNumber != i)
			{
				Error("File '%s', line %d:\nVertex index mismatch.\n",
					tk_SourceName, tk_Line);
			}
			TK_Beyond(TK_POSITION);
			// Apply the scaling, rotation, and translation in the order
			// specified in the HRC file.  This could be wrong.
			TK_Require(TK_FLOATNUMBER);
			x = tk_FloatNumber*scaling[0];
			TK_FetchRequire(TK_FLOATNUMBER);
			y = tk_FloatNumber*scaling[1];
			TK_FetchRequire(TK_FLOATNUMBER);
			z = tk_FloatNumber*scaling[2];

			y2 = y*cos(rx)+z*sin(rx);
			z2 = -y*sin(rx)+z*cos(rx);
			y = y2;
			z = z2;

			x2 = x*cos(ry)-z*sin(ry);
			z2 = x*sin(ry)+z*cos(ry);
			x = x2;
			z = z2;

			x2 = x*cos(rz)+y*sin(rz);
			y2 = -x*sin(rz)+y*cos(rz);
			x = x2;
			y = y2;

			vList[i].v[0] = x+translation[0];
			vList[i].v[1] = y-translation[2];
			vList[i].v[2] = z+translation[1];
		}
		TK_BeyondRequire(TK_POLYGONS, TK_INTNUMBER);
		triCount = tk_IntNumber;
		if(triCount >= MAXTRIANGLES)
		{
			Error("Too many triangles in file %s\n", hrc_name);
		}

		start_tri = *triangleCount;
		*triangleCount += triCount;

		tList = *triList;

		for(i = 0; i < triCount; i++)
		{
			if (meshNode)
			{	// Update the node
				pos = (i + start_tri) >> 3;
				bit = 1 << ((i + start_tri) & 7 );
				meshNode->tris[pos] |= bit;
			}

			TK_BeyondRequire(TK_LBRACKET, TK_INTNUMBER);
			if(tk_IntNumber != i)
			{
				Error("File '%s', line %d:\nTriangle index mismatch.\n",
					tk_SourceName, tk_Line);
			}
			TK_BeyondRequire(TK_NODES, TK_INTNUMBER);
			if(tk_IntNumber != 3)
			{
				Error("File '%s', line %d:\nBad polygon vertex count: %d.",
					tk_SourceName, tk_Line, tk_IntNumber);
			}
			tList[i+start_tri].HasUV = true;
			for(j = 0; j < 3; j++)
			{
				TK_BeyondRequire(TK_LBRACKET, TK_INTNUMBER);
				if(tk_IntNumber != j)
				{
					Error("File '%s', line %d:\nTriangle vertex index"
						" mismatch.  %d should be %d\n", tk_SourceName, tk_Line,
						tk_IntNumber, j);
				}
				TK_BeyondRequire(TK_VERTEX, TK_INTNUMBER);

				tList[i+start_tri].verts[2-j][0] = vList[tk_IntNumber].v[0];
				tList[i+start_tri].verts[2-j][1] = vList[tk_IntNumber].v[1];
				tList[i+start_tri].verts[2-j][2] = vList[tk_IntNumber].v[2];
#if 1
				tList[i+start_tri].indicies[2-j] = tk_IntNumber+vertIndexBase;
#endif
				TK_BeyondRequire(TK_UVTEXTURE, TK_FLOATNUMBER);
				tList[i+start_tri].uv[2-j][0] = tk_FloatNumber;
				TK_Fetch();
				TK_Require(TK_FLOATNUMBER);
				tList[i+start_tri].uv[2-j][1] = tk_FloatNumber;
			}

	/*		printf("Face %i:\n  v0: %f, %f, %f\n  v1: %f, %f, %f\n"
				"  v2: %f, %f, %f\n", i,
				tList[i].verts[0][0],
				tList[i].verts[0][1],
				tList[i].verts[0][2],
				tList[i].verts[1][0],
				tList[i].verts[1][1],
				tList[i].verts[1][2],
				tList[i].verts[2][0],
				tList[i].verts[2][1],
				tList[i].verts[2][2]);
	*/
		}

		TK_Beyond(TK_RBRACE);
		TK_Beyond(TK_RBRACE);

		if (tk_Token == TK_EDGES)
		{
		//	TK_Beyond(TK_EDGES);
			TK_Beyond(TK_RBRACE);
		}

		scaling[0] = scaling[1] = scaling[2] = 1.0;
	//	rotation[0] = rotation[1] = rotation[2] = 0.0;
	//	translation[0] = translation[1] = translation[2] = 0.0;

		// See if there are any other models belonging to this node

#if 1
		TK_Fetch();

		nextToken = tk_Token;
		if(nextToken == TK_CLUSTERS)
		{
			if(g_skelModel.clustered == -1)
			{
				ReadHRCClusterList(meshNode, vertIndexBase);
			}
			else
			{
				nextToken = TK_Get(TK_CLUSTER_NAME);

				while (nextToken == TK_CLUSTER_NAME)
				{
					TK_BeyondRequire(TK_CLUSTER_STATE, TK_INTNUMBER);
					nextToken = TK_Fetch();
				}
			}

			// one right brace follow the list of clusters
			nextToken = TK_Beyond(TK_RBRACE);
		}
		else
		{
			if(g_skelModel.clustered == -1 && !vertIndexBase)
			{
				meshNode->clustered = false;
			}
		}
#endif

		nextToken = tk_Token;
		if(nextToken == TK_SPLINE)
		{
			while (nextToken == TK_SPLINE)
			{	// spline node has two right braces
				nextToken = TK_Beyond(TK_RBRACE);
				nextToken = TK_Beyond(TK_RBRACE);
			}

			nextToken = TK_Beyond(TK_RBRACE);
		}

		while (nextToken == TK_MATERIAL)
		{
			nextToken = TK_Beyond(TK_RBRACE);
		}

		while(nextToken == TK_MODEL)
		{
			HandleHRCModel(triList,triangleCount,nodesList, num_mesh_nodes, ActiveNode, Depth+1, vertexCount+vertIndexBase);

			nextToken = TK_Fetch();
		}
	}

	for(i=0;i<3;i++)
	{
		scaling[i] = orig_scaling[i];
		rotation[i] = orig_rotation[i];
		translation[i] = orig_translation[i];
	}
}

static void LoadHRC(char *fileName, triangle_t **triList, int *triangleCount, mesh_node_t **nodesList, int *num_mesh_nodes)
{
	if (nodesList)
	{
		*num_mesh_nodes = 0;

		if(!*nodesList)
		{
			*nodesList = (mesh_node_t *) SafeMalloc(MAX_FM_MESH_NODES * sizeof(mesh_node_t), "Mesh Node List");
		}
	}

	hrc_name = fileName;

	scaling[0] = scaling[1] = scaling[2] = 1.0;
	rotation[0] = rotation[1] = rotation[2] = 0.0;
	translation[0] = translation[1] = translation[2] = 0.0;

	*triangleCount = 0;
	*triList = (triangle_t *) SafeMalloc(MAXTRIANGLES*sizeof(triangle_t), "Triangle list");
	memset(*triList,0,MAXTRIANGLES*sizeof(triangle_t));

	TK_OpenSource(fileName);
	TK_FetchRequire(TK_HRCH);
	TK_FetchRequire(TK_COLON);
	TK_FetchRequire(TK_SOFTIMAGE);

	// prime it
	TK_Beyond(TK_MODEL);

	HandleHRCModel(triList, triangleCount, nodesList, num_mesh_nodes, 0, 0, 0);
	TK_CloseSource();
}

//==========================================================================
//
// LoadHTR
//
//==========================================================================
/*
static int Version2;

void HandleHTRModel(triangle_t **triList, int *triangleCount, mesh_node_t **nodesList, int *num_mesh_nodes,
						   int ActiveNode, int Depth, int numVerts)
{
	int			i, j;
	int			vertexCount;
	int			vertexNum;
	int			triCount;
	float		origin[3];
	triangle_t	*tList;
	float		x, y, z;
	float		x2, y2, z2;
	float		rx, ry, rz;
	mesh_node_t *meshNode;
	int			pos,bit;
	int			vertIndexBase;
	int			start_tri;

	if (nodesList)
	{
		TK_BeyondRequire(TK_NAME, TK_STRING);

		if (Depth == 0 || tk_String[0] == '_')
		{	// Root
			ActiveNode = *num_mesh_nodes;
			(*num_mesh_nodes)++;
			if ((*num_mesh_nodes) > MAX_FM_MESH_NODES)
			{
				Error("Too many mesh nodes in file %s\n", hrc_name);
			}
			meshNode = &(*nodesList)[ActiveNode];

//			memset(meshNode, 0, sizeof(mesh_node_t));
			strcpy(meshNode->name, tk_String);

			memset(meshNode->tris, 0, sizeof(meshNode->tris));
			memset(meshNode->verts, 0, sizeof(meshNode->verts));

			meshNode->start_glcmds = 0;
			meshNode->num_glcmds = 0;
			vertIndexBase = 0;
		}
		else
		{	// Childs under the children
			meshNode = &(*nodesList)[ActiveNode];
			vertIndexBase = numVerts;
		}
	}
	else 
	{
		meshNode = NULL;
	}

	// Get vertex count
	TK_BeyondRequire(TK_VERTICES, TK_INTNUMBER);
	vertexCount = tk_IntNumber;
	
	// Get triangle count
	TK_BeyondRequire(TK_FACES, TK_INTNUMBER);
	triCount = tk_IntNumber;
	if(triCount >= MAXTRIANGLES)
	{
		Error("Too many triangles in file %s\n", hrc_name);
	}

	// Get origin
	TK_Beyond(TK_ORIGIN);
	TK_Require(TK_FLOATNUMBER);
	origin[0] = tk_FloatNumber;
	TK_FetchRequire(TK_FLOATNUMBER);
	origin[1] = tk_FloatNumber;
	TK_FetchRequire(TK_FLOATNUMBER);
	origin[2] = tk_FloatNumber;

	//rx = 90.0/360.0*2.0*M_PI;
	rx = FixHTRRotateX/360.0*2.0*M_PI;
	ry = FixHTRRotateY/360.0*2.0*M_PI;
	rz = FixHTRRotateZ/360.0*2.0*M_PI;

	// Get vertex list
	for(i = 0; i < vertexCount; i++)
	{
		TK_FetchRequire(TK_VERTEX);
		TK_FetchRequire(TK_FLOATNUMBER);
		x = tk_FloatNumber-origin[0];
		TK_FetchRequire(TK_FLOATNUMBER);
		y = tk_FloatNumber-origin[1];
		TK_FetchRequire(TK_FLOATNUMBER);
		z = tk_FloatNumber-origin[2];

		x += FixHTRTranslateX;
		y += FixHTRTranslateY;
		z += FixHTRTranslateZ;

		y2 = y*cos(rx)-z*sin(rx);
		z2 = y*sin(rx)+z*cos(rx);
		y = y2;
		z = z2;
		x2 = x*cos(ry)+z*sin(ry);
		z2 = -x*sin(ry)+z*cos(ry);
		x = x2;
		z = z2;
		x2 = x*cos(rz)-y*sin(rz);
		y2 = x*sin(rz)+y*cos(rz);
		x = x2;
		y = y2;

		vList[i].v[0] = x;
		vList[i].v[1] = y;
		vList[i].v[2] = z;
	}

	start_tri = *triangleCount;
	*triangleCount += triCount;

	tList = *triList;

	// Get face list
	for(i = 0; i < triCount; i++)
	{
		if (meshNode)
		{	// Update the node
			pos = (i + start_tri) >> 3;
			bit = 1 << ((i + start_tri) & 7 );
			meshNode->tris[pos] |= bit;
		}

		TK_FetchRequire(TK_FACE);
		TK_FetchRequire(TK_LPAREN);
		for(j = 0; j < 3; j++)
		{
			TK_FetchRequire(TK_INTNUMBER);
			vertexNum = tk_IntNumber-1;
			if(vertexNum >= vertexCount)
			{
				Error("File '%s', line %d:\nVertex number"
					" >= vertexCount: %d\n", tk_SourceName, tk_Line,
					tk_IntNumber);
			}
			tList[i+start_tri].verts[2-j][0] = vList[vertexNum].v[0];
			tList[i+start_tri].verts[2-j][1] = vList[vertexNum].v[1];
			tList[i+start_tri].verts[2-j][2] = vList[vertexNum].v[2];
		}
		TK_FetchRequire(TK_RPAREN);
#ifdef _QDATA
		if (Version2)
		{
			TK_FetchRequire(TK_FLOATNUMBER);
			tList[i+start_tri].uv[0][0]=tk_FloatNumber;
			TK_FetchRequire(TK_FLOATNUMBER);
			tList[i+start_tri].uv[0][1]=tk_FloatNumber;
			TK_FetchRequire(TK_FLOATNUMBER);
			tList[i+start_tri].uv[1][0]=tk_FloatNumber;
			TK_FetchRequire(TK_FLOATNUMBER);
			tList[i+start_tri].uv[1][1]=tk_FloatNumber;
			TK_FetchRequire(TK_FLOATNUMBER);
			tList[i+start_tri].uv[2][0]=tk_FloatNumber;
			TK_FetchRequire(TK_FLOATNUMBER);
			tList[i+start_tri].uv[2][1]=tk_FloatNumber;
			tList[i+start_tri].HasUV=1;
		}
		else
			tList[i+start_tri].HasUV=0;
#endif
//		printf("Face %i:\n  v0: %f, %f, %f\n  v1: %f, %f, %f\n"
//			"  v2: %f, %f, %f\n", i,
//			tList[i].verts[0][0],
//			tList[i].verts[0][1],
//			tList[i].verts[0][2],
//			tList[i].verts[1][0],
//			tList[i].verts[1][1],
//			tList[i].verts[1][2],
//			tList[i].verts[2][0],
//			tList[i].verts[2][1],
//			tList[i].verts[2][2]);

	}

	TK_Fetch();

	if (tk_Token == TK_VERTICES) 
	{
		HandleHTRModel(triList,triangleCount,nodesList, num_mesh_nodes, ActiveNode, Depth+1, vertexCount+vertIndexBase);
	}
}

static void LoadHTR(char *fileName, triangle_t **triList, int *triangleCount, mesh_node_t **nodesList, int *num_mesh_nodes)
{
	if (nodesList)
	{
		*num_mesh_nodes = 0;

		if(!*nodesList)
		{
			*nodesList = SafeMalloc(MAX_FM_MESH_NODES * sizeof(mesh_node_t), "Mesh Node List");
		}
	}

	hrc_name = fileName;

	scaling[0] = scaling[1] = scaling[2] = 1.0;
	rotation[0] = rotation[1] = rotation[2] = 0.0;
	translation[0] = translation[1] = translation[2] = 0.0;

	*triangleCount = 0;
	*triList = SafeMalloc(MAXTRIANGLES*sizeof(triangle_t), "Triangle list");
	memset(*triList,0,MAXTRIANGLES*sizeof(triangle_t));

	TK_OpenSource(fileName);

	TK_Beyond(TK_C_HEXEN);
	TK_Beyond(TK_C_TRIANGLES);
	TK_BeyondRequire(TK_C_VERSION, TK_INTNUMBER);
	if(tk_IntNumber != 1&&tk_IntNumber != 2)
	{
		Error("Unsupported version (%d) in file %s\n", tk_IntNumber,
			fileName);
	}
	Version2=(tk_IntNumber==2);


	HandleHTRModel(triList, triangleCount, nodesList, num_mesh_nodes, 0, 0, 0);
}

*/

static void LoadHTR(char *fileName, triangle_t **triList, int *triangleCount, mesh_node_t **nodesList, int *num_mesh_nodes)
{
	int Version2=0;
	int			i, j;
	int			vertexCount;
	int			vertexNum;
	struct
	{
		float v[3];
	}			*vList;
	int			triCount;
	float		origin[3];
	triangle_t	*tList;
	float		x, y, z;
	float		x2, y2, z2;
	float		rx, ry, rz;

	if (nodesList)
	{
		*num_mesh_nodes = 0;
		*nodesList = (mesh_node_t *) SafeMalloc(MAX_FM_MESH_NODES * sizeof(mesh_node_t), "Mesh Node List");
	}

	TK_OpenSource(fileName);

	TK_Beyond(TK_C_HEXEN);
	TK_Beyond(TK_C_TRIANGLES);
	TK_BeyondRequire(TK_C_VERSION, TK_INTNUMBER);
	if(tk_IntNumber != 1&&tk_IntNumber != 2)
	{
		Error("Unsupported version (%d) in file %s\n", tk_IntNumber,
			fileName);
	}
	Version2=(tk_IntNumber==2);


	// Get vertex count
	TK_BeyondRequire(TK_VERTICES, TK_INTNUMBER);
	vertexCount = tk_IntNumber;
	vList = (void *) SafeMalloc(vertexCount*sizeof vList[0], "Vertex list");
	
	// Get triangle count
	TK_BeyondRequire(TK_FACES, TK_INTNUMBER);
	triCount = tk_IntNumber;
	if(triCount >= MAXTRIANGLES)
	{
		Error("Too many triangles in file %s\n", fileName);
	}
	*triangleCount = triCount;
	tList = (triangle_t *) SafeMalloc(MAXTRIANGLES*sizeof(triangle_t), "Triangle list");
	*triList = tList;
	memset(*triList,0,MAXTRIANGLES*sizeof(triangle_t));

	// Get origin
	TK_Beyond(TK_ORIGIN);
	TK_Require(TK_FLOATNUMBER);
	origin[0] = tk_FloatNumber;
	TK_FetchRequire(TK_FLOATNUMBER);
	origin[1] = tk_FloatNumber;
	TK_FetchRequire(TK_FLOATNUMBER);
	origin[2] = tk_FloatNumber;

	//rx = 90.0/360.0*2.0*M_PI;
	rx = FixHTRRotateX/360.0*2.0*M_PI;
	ry = FixHTRRotateY/360.0*2.0*M_PI;
	rz = FixHTRRotateZ/360.0*2.0*M_PI;

	// Get vertex list
	for(i = 0; i < vertexCount; i++)
	{
		TK_FetchRequire(TK_VERTEX);
		TK_FetchRequire(TK_FLOATNUMBER);
		x = tk_FloatNumber-origin[0];
		TK_FetchRequire(TK_FLOATNUMBER);
		y = tk_FloatNumber-origin[1];
		TK_FetchRequire(TK_FLOATNUMBER);
		z = tk_FloatNumber-origin[2];

		x += FixHTRTranslateX;
		y += FixHTRTranslateY;
		z += FixHTRTranslateZ;

		y2 = y*cos(rx)-z*sin(rx);
		z2 = y*sin(rx)+z*cos(rx);
		y = y2;
		z = z2;
		x2 = x*cos(ry)+z*sin(ry);
		z2 = -x*sin(ry)+z*cos(ry);
		x = x2;
		z = z2;
		x2 = x*cos(rz)-y*sin(rz);
		y2 = x*sin(rz)+y*cos(rz);
		x = x2;
		y = y2;

		vList[i].v[0] = x;
		vList[i].v[1] = y;
		vList[i].v[2] = z;
	}

	// Get face list
	for(i = 0; i < triCount; i++)
	{
		TK_FetchRequire(TK_FACE);
		TK_FetchRequire(TK_LPAREN);
		for(j = 0; j < 3; j++)
		{
			TK_FetchRequire(TK_INTNUMBER);
			vertexNum = tk_IntNumber-1;
			if(vertexNum >= vertexCount)
			{
				Error("File '%s', line %d:\nVertex number"
					" >= vertexCount: %d\n", tk_SourceName, tk_Line,
					tk_IntNumber);
			}
			tList[i].verts[2-j][0] = vList[vertexNum].v[0];
			tList[i].verts[2-j][1] = vList[vertexNum].v[1];
			tList[i].verts[2-j][2] = vList[vertexNum].v[2];
		}
		TK_FetchRequire(TK_RPAREN);
#if 1
		if (Version2)
		{
			TK_FetchRequire(TK_FLOATNUMBER);
			tList[i].uv[2][0]= fmod(1000+tk_FloatNumber,1);
			TK_FetchRequire(TK_FLOATNUMBER);
			tList[i].uv[2][1]=fmod(1000+tk_FloatNumber,1);
			TK_FetchRequire(TK_FLOATNUMBER);
			tList[i].uv[1][0]=fmod(1000+tk_FloatNumber,1);
			TK_FetchRequire(TK_FLOATNUMBER);
			tList[i].uv[1][1]=fmod(1000+tk_FloatNumber,1);
			TK_FetchRequire(TK_FLOATNUMBER);
			tList[i].uv[0][0]=fmod(1000+tk_FloatNumber,1);
			TK_FetchRequire(TK_FLOATNUMBER);
			tList[i].uv[0][1]=fmod(1000+tk_FloatNumber,1);
			tList[i].HasUV=1;
		}
		else
			tList[i].HasUV=0;
#endif
/*		printf("Face %i:\n  v0: %f, %f, %f\n  v1: %f, %f, %f\n"
			"  v2: %f, %f, %f\n", i,
			tList[i].verts[0][0],
			tList[i].verts[0][1],
			tList[i].verts[0][2],
			tList[i].verts[1][0],
			tList[i].verts[1][1],
			tList[i].verts[1][2],
			tList[i].verts[2][0],
			tList[i].verts[2][1],
			tList[i].verts[2][2]);
*/
	}

	free(vList);
	TK_CloseSource();
	DefaultNodesList(nodesList,num_mesh_nodes,triangleCount);
}

//==========================================================================
//
// LoadTriangleList
//
//==========================================================================

void LoadTriangleList(char *fileName, triangle_t **triList, int *triangleCount, mesh_node_t **ppmnodes, int *num_mesh_nodes)
{
	FILE	*file1;
    int		dot = '.';
	char	*dotstart;
	char	InputFileName[256];

	dotstart = strrchr(fileName,dot); // Does it already have an extension on the file name?

	if (!dotstart)
	{
		strcpy(InputFileName, fileName);
		strcat(InputFileName, ".hrc");
		if((file1 = fopen(InputFileName, "rb")) != NULL)
		{
			fclose(file1);
			LoadHRC(InputFileName, triList, triangleCount, ppmnodes, num_mesh_nodes);
			printf(" - assuming .HRC\n");
			return;
		}

		strcpy(InputFileName, fileName);
		strcat(InputFileName, ".asc");
		if((file1 = fopen(InputFileName, "rb")) != NULL)
		{
			fclose(file1);
			LoadASC(InputFileName, triList, triangleCount, ppmnodes, num_mesh_nodes);
			printf(" - assuming .ASC\n");
			return;
		}

		strcpy(InputFileName, fileName);
		strcat(InputFileName, ".tri");
		if((file1 = fopen(InputFileName, "rb")) != NULL)
		{			
			fclose(file1);
			LoadTRI(InputFileName, triList, triangleCount, ppmnodes, num_mesh_nodes);
			printf(" - assuming .TRI\n");
			return;
		}

		strcpy(InputFileName, fileName);
		strcat(InputFileName, ".3ds");
		if((file1 = fopen(InputFileName, "rb")) != NULL)
		{			
			fclose(file1);
			Load3DSTriangleList (InputFileName, triList, triangleCount, ppmnodes, num_mesh_nodes);
			printf(" - assuming .3DS\n");
			return;
		}

		strcpy(InputFileName, fileName);
		strcat(InputFileName, ".htr");
		if((file1 = fopen(InputFileName, "rb")) != NULL)
		{			
			fclose(file1);
			LoadHTR (InputFileName, triList, triangleCount, ppmnodes, num_mesh_nodes);
			printf(" - assuming .HTR\n");
			return;
		}
		Error("\n Could not open file '%s':\n"
			"No HRC, ASC, 3DS, HTR, or TRI match.\n", fileName);
	}
	else
	{
		if((file1 = fopen(fileName, "rb")) != NULL)
		{
			printf("\n");
			fclose(file1);
			if (strcmp(dotstart,".hrc") == 0 || strcmp(dotstart,".HRC") == 0)
			{
				LoadHRC(fileName, triList, triangleCount, ppmnodes, num_mesh_nodes);
			}
			else if (strcmp(dotstart,".asc") == 0 || strcmp(dotstart,".ASC") == 0)
			{
				LoadASC(fileName, triList, triangleCount, ppmnodes, num_mesh_nodes);
			}
			else if (strcmp(dotstart,".tri") == 0 || strcmp(dotstart,".TRI") == 0)
			{
				LoadTRI(fileName, triList, triangleCount, ppmnodes, num_mesh_nodes);
			}
			else if (strcmp(dotstart,".3ds") == 0 || strcmp(dotstart,".3DS") == 0)
			{
				Load3DSTriangleList (fileName, triList, triangleCount, ppmnodes, num_mesh_nodes);
			}
			else if (strcmp(dotstart,".htr") == 0 || strcmp(dotstart,".HTR") == 0)
			{
				LoadHTR (fileName, triList, triangleCount, ppmnodes, num_mesh_nodes);
			}
			else
			{
				Error("Could not open file '%s':\n",fileName);
				return;
			}
		}
		else	//failed to load file
		{
				Error("Could not open file '%s':\n",fileName);
		}

	}
}