/*
   Copyright (C) 1999-2007 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
 */

#include "stdafx.h"

#define MAX_POINTFILE   8192
static vec3_t s_pointvecs[MAX_POINTFILE];
static int s_num_points, s_check_point;

CPointfile g_pointfile;

// CPointfile routine used by the standard code ---------------------------------

void CPointfile::Init(){
	s_num_points = 0;
}

void CPointfile::PushPoint( vec3_t v ){
	if ( s_num_points < MAX_POINTFILE ) {
		VectorCopy( v, s_pointvecs[s_num_points] );
		s_num_points++;
	}
}

// create the display list at the end
void CPointfile::GenerateDisplayList(){
	int i;

	if ( !g_qeglobals.d_pointfile_display_list ) {
		g_qeglobals.d_pointfile_display_list = qglGenLists( 1 );
	}

	qglNewList( g_qeglobals.d_pointfile_display_list,  GL_COMPILE );

	qglColor3f( 1, 0, 0 );
	qglDisable( GL_TEXTURE_2D );
	qglDisable( GL_TEXTURE_1D );
	qglLineWidth( 4 );
	qglBegin( GL_LINE_STRIP );
	for ( i = 0; i < s_num_points; i++ )
	{
		if ( s_num_points < MAX_POINTFILE ) {
			qglVertex3fv( s_pointvecs[i] );
		}
	}
	qglEnd();
	qglLineWidth( 1 );

	qglEndList();

	s_check_point = 0;
}

// old (but still relevant) pointfile code -------------------------------------

void Pointfile_Delete( void ){
	char name[1024];

	strcpy( name, currentmap );
	StripExtension( name );
	strcat( name, ".lin" );

	remove( name );
}

// advance camera to next point
void Pointfile_Next( void ){
	vec3_t dir;

	if ( s_check_point >= s_num_points - 2 ) {
		Sys_Status( "End of pointfile", 0 );
		return;
	}
	s_check_point++;
	VectorCopy( s_pointvecs[s_check_point], g_pParentWnd->GetCamWnd()->Camera()->origin );
	VectorCopy( s_pointvecs[s_check_point], g_pParentWnd->GetXYWnd()->GetOrigin() );
	VectorSubtract( s_pointvecs[s_check_point + 1], g_pParentWnd->GetCamWnd()->Camera()->origin, dir );
	VectorNormalize( dir, dir );
	g_pParentWnd->GetCamWnd()->Camera()->angles[1] = atan2( dir[1], dir[0] ) * 180 / 3.14159;
	g_pParentWnd->GetCamWnd()->Camera()->angles[0] = asin( dir[2] ) * 180 / 3.14159;

	Sys_UpdateWindows( W_ALL );
}

// advance camera to previous point
void Pointfile_Prev( void ){
	vec3_t dir;

	if ( s_check_point == 0 ) {
		Sys_Status( "Start of pointfile", 0 );
		return;
	}
	s_check_point--;
	VectorCopy( s_pointvecs[s_check_point], g_pParentWnd->GetCamWnd()->Camera()->origin );
	VectorCopy( s_pointvecs[s_check_point], g_pParentWnd->GetXYWnd()->GetOrigin() );
	VectorSubtract( s_pointvecs[s_check_point + 1], g_pParentWnd->GetCamWnd()->Camera()->origin, dir );
	VectorNormalize( dir, dir );
	g_pParentWnd->GetCamWnd()->Camera()->angles[1] = atan2( dir[1], dir[0] ) * 180 / 3.14159;
	g_pParentWnd->GetCamWnd()->Camera()->angles[0] = asin( dir[2] ) * 180 / 3.14159;

	Sys_UpdateWindows( W_ALL );
}

void WINAPI Pointfile_Check( void ){
	char name[1024];
	int size;
	char    *data;
	char  *text;
	int line = 1;
	vec3_t v;

	strcpy( name, currentmap );
	StripExtension( name );
	strcat( name, ".lin" );

	size = vfsLoadFullPathFile( name, (void**)&data );
	if ( size <= 0 ) {
		Sys_FPrintf( SYS_ERR, "Pointfile %s not found\n", name );
		return;
	}

	// store a pointer
	text = data;

	Sys_Printf( "Reading pointfile %s\n", name );

	g_pointfile.Init();

	while ( *data )
	{
		if ( sscanf( data,"%f %f %f", &v[0], &v[1], &v[2] ) != 3 ) {
			Sys_Printf( "Corrupt point file, line %d\n",line );
			break;
		}

		while ( *data && *data != '\n' )
		{
			if ( *( data - 1 ) == ' ' && *( data ) == '-' && *( data + 1 ) == ' ' ) {
				break;
			}
			data++;
		}
		// deal with zhlt style point files.
		if ( *data == '-' ) {
			if ( sscanf( data,"- %f %f %f", &v[0], &v[1], &v[2] ) != 3 ) {
				Sys_Printf( "Corrupt point file, line %d\n",line );
				break;
			}

			while ( *data && *data != '\n' )
				data++;

		}
		while ( *data == '\n' )
		{
			data++; // skip the \n
			line++;
		}
		g_pointfile.PushPoint( v );
	}

	g_free( text );

	g_pointfile.GenerateDisplayList();

	Sys_UpdateWindows( W_ALL );
}

void Pointfile_Draw( void ){
	qglCallList( g_qeglobals.d_pointfile_display_list );
}

void Pointfile_Clear( void ){
	if ( !g_qeglobals.d_pointfile_display_list ) {
		return;
	}

	qglDeleteLists( g_qeglobals.d_pointfile_display_list, 1 );
	g_qeglobals.d_pointfile_display_list = 0;
	Sys_UpdateWindows( W_ALL );
}

// CPointfile implementation for SAX speicific stuff -------------------------------
void CPointfile::saxStartElement( message_info_t *ctx, const xmlChar *name, const xmlChar **attrs ){
	if ( strcmp( (char *)name, "polyline" ) == 0 ) {
		Init();
		// there's a prefs setting to avoid stopping on leak
		if ( !g_PrefsDlg.m_bLeakStop ) {
			ctx->stop_depth = 0;
		}
	}
}

void CPointfile::saxEndElement( message_info_t *ctx, const xmlChar *name ){
	if ( strcmp( (char *)name, "polyline" ) == 0 ) {
		// we are done
		GenerateDisplayList();
		ctx->bGeometry = false;
	}
}

// only "point" is expected to have characters around here
void CPointfile::saxCharacters( message_info_t *ctx, const xmlChar *ch, int len ){
	vec3_t v;

	sscanf( (char *)ch, "%f %f %f\n", &v[0], &v[1], &v[2] );
	PushPoint( v );
}

char * CPointfile::getName(){
	return "Map is leaked";
}
