/***************************************************************************
                          ksplanet.cpp  -  Trinity Desktop Planetarium
                             -------------------
    begin                : Sun Jul 22 2001
    copyright            : (C) 2001 by Jason Harris
    email                : jharris@30doradus.org
 ***************************************************************************/

/***************************************************************************
 *                                                                         *
 *   This program 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.                                   *
 *                                                                         *
 ***************************************************************************/

#include <math.h>
#include <kdebug.h>
#include <tqfile.h>

#include "ksplanet.h"
#include "ksnumbers.h"
#include "ksutils.h"
#include "ksfilereader.h"

KSPlanet::OrbitDataManager KSPlanet::odm;

KSPlanet::OrbitDataColl::OrbitDataColl() {
// avoid memory leaks
	for (int i=0; i<6; i++) {
		Lon[i].setAutoDelete(true);
		Lat[i].setAutoDelete(true);
		Dst[i].setAutoDelete(true);
	}
}


KSPlanet::OrbitDataManager::OrbitDataManager() : dict(31, true) {
	// delete all data automatically to avoid a leak
	dict.setAutoDelete(true);
}

bool KSPlanet::OrbitDataManager::readOrbitData(TQString fname,
		TQPtrVector<KSPlanet::OrbitData> *vector) {
	TQString line;
	TQFile f;
	double A, B, C;

	TQPtrList<OrbitData> DData;

	if ( KSUtils::openDataFile( f, fname ) ) {
		KSFileReader fileReader( f ); // close file is included
    while ( fileReader.hasMoreLines() ) {
      line = fileReader.readLine();
			TQTextIStream instream( &line );
			instream >> A >> B >> C;
			DData.append(new OrbitData(A, B, C));

		}
/* old code
		TQTextStream stream( &f );
		while ( !stream.eof() ) {
			line = stream.readLine();
			TQTextIStream instream( &line );
			instream >> A >> B >> C;
			DData.append(new OrbitData(A, B, C));

		}
		f.close();
*/
	} else {
		return false;
	}

	DData.toVector(vector);

	return true;
}

KSPlanet::OrbitDataColl *KSPlanet::OrbitDataManager::loadData(TQString n) {
	TQString fname, snum, line;
	TQFile f;
	int nCount = 0;
	OrbitDataColl *ret;

//	kdDebug() << k_funcinfo << " Loading data named " << n << endl;

	n = n.lower();

	if ((ret = dict[n])) {
//		kdDebug() << k_funcinfo << " already loaded - returning" << endl;
		return ret;
	}

	ret = new OrbitDataColl;

	//Ecliptic Longitude
	for (int i=0; i<6; ++i) {
		snum.setNum( i );
		fname = n + ".L" + snum + ".vsop";
		if (readOrbitData(fname, &(ret->Lon[i])))
			nCount++;
	}

	if ( nCount==0 ){ //No longitude data found!
		delete ret;
		return 0;
	}

	//Ecliptic Latitude
	for (int i=0; i<6; ++i) {
		snum.setNum( i );
		fname = n + ".B" + snum + ".vsop";
		if (readOrbitData(fname, &(ret->Lat[i])))
			nCount++;

	}

	if (nCount==0){ //no latitude data found!
		delete ret;
		return 0;
	}

	//Heliocentric Distance
	for (int i=0; i<6; ++i) {
		snum.setNum( i );
		fname = n + ".R" + snum + ".vsop";
		if (readOrbitData(fname, &(ret->Dst[i])))
			nCount++;

	}

	if (nCount==0){ //no distance data found!
		delete ret;
		return 0;
	}

	dict.insert(n, ret);


//	kdDebug() << k_funcinfo << " successful load" << endl;

	return ret;
}

KSPlanet::KSPlanet( KStarsData *kd, TQString s, TQString imfile, double pSize )
 : KSPlanetBase(kd, s, imfile, pSize ), data_loaded(false) {
}

bool KSPlanet::loadData() {
	return (odm.loadData(name()) != 0);
}

void KSPlanet::calcEcliptic(double Tau, EclipticPosition &epret) const {
	double sum[6];
	OrbitDataColl * odc;
	double Tpow[6];

	Tpow[0] = 1.0;
	for (int i=1; i<6; ++i) {
		Tpow[i] = Tpow[i-1] * Tau;
	}

	if (!(odc =  odm.loadData(name()))) {
		epret.longitude = 0.0;
		epret.latitude = 0.0;
		epret.radius = 0.0;
		kdError() << "Could not get data for '" << name() << "'" << endl;
		return;
	}

	//Ecliptic Longitude
	for (int i=0; i<6; ++i) {
		sum[i] = 0.0;
		for (uint j = 0; j < odc->Lon[i].size(); ++j) {
			sum[i] += odc->Lon[i][j]->A * cos( odc->Lon[i][j]->B + odc->Lon[i][j]->C*Tau );
			/*
			kdDebug() << "sum[" << i <<"] =" << sum[i] <<
				" A = " << odc->Lon[i][j]->A << " B = " << odc->Lon[i][j]->B <<
				" C = " << odc->Lon[i][j]->C << endl;
				*/
	  	}
		sum[i] *= Tpow[i];
		//kdDebug() << name() << " : sum[" << i << "] = " << sum[i] <<endl;
  	}

	epret.longitude.setRadians( sum[0] + sum[1] + sum[2] + sum[3] + sum[4] + sum[5] );
	epret.longitude.setD( epret.longitude.reduce().Degrees() );

	//Compute Ecliptic Latitude
	for (uint i=0; i<6; ++i) {
		sum[i] = 0.0;
		for (uint j = 0; j < odc->Lat[i].size(); ++j) {
			sum[i] += odc->Lat[i][j]->A * cos( odc->Lat[i][j]->B + odc->Lat[i][j]->C*Tau );
	  	}
		sum[i] *= Tpow[i];
  	}


	epret.latitude.setRadians( sum[0] + sum[1] + sum[2] + sum[3] + sum[4] + sum[5] );

	//Compute Heliocentric Distance
	for (uint i=0; i<6; ++i) {
		sum[i] = 0.0;
		for (uint j = 0; j < odc->Dst[i].size(); ++j) {
			sum[i] += odc->Dst[i][j]->A * cos( odc->Dst[i][j]->B + odc->Dst[i][j]->C*Tau );
	  	}
		sum[i] *= Tpow[i];
  	}

	epret.radius = sum[0] + sum[1] + sum[2] + sum[3] + sum[4] + sum[5];

	/*
	kdDebug() << name() << " pre: Lat = " << epret.latitude.toDMSString() << " Long = " <<
		epret.longitude.toDMSString() << " Dist = " << epret.radius << endl;
	*/

}

bool KSPlanet::findGeocentricPosition( const KSNumbers *num, const KSPlanetBase *Earth ) {

	if ( Earth != NULL ) {
		double sinL, sinL0, sinB, sinB0;
		double cosL, cosL0, cosB, cosB0;
		double x = 0.0, y = 0.0, z = 0.0;

		double olddst = -1000;
		double dst = 0;

		EclipticPosition trialpos;

		double jm = num->julianMillenia();

		Earth->ecLong()->SinCos( sinL0, cosL0 );
		Earth->ecLat()->SinCos( sinB0, cosB0 );

		double eX = Earth->rsun()*cosB0*cosL0;
		double eY = Earth->rsun()*cosB0*sinL0;
		double eZ = Earth->rsun()*sinB0;

		bool once=true;
		while (fabs(dst - olddst) > .001) {
			calcEcliptic(jm, trialpos);
			
			// We store the heliocentric ecliptic coordinates the first time they are computed.
			if(once){
				helEcPos = trialpos;
				once=false;
			}
			
			olddst = dst;

			trialpos.longitude.SinCos( sinL, cosL );
			trialpos.latitude.SinCos( sinB, cosB );

			x = trialpos.radius*cosB*cosL - eX;
			y = trialpos.radius*cosB*sinL - eY;
			z = trialpos.radius*sinB - eZ;

			//distance from Earth
			dst = sqrt(x*x + y*y + z*z);

			double delay = (.0057755183 * dst) / 365250.0;

			jm = num->julianMillenia() - delay;

		}

		ep.longitude.setRadians( atan( y/x ) );
		if (x<0) ep.longitude.setD( ep.longitude.Degrees() + 180.0 ); //resolve atan ambiguity
		ep.latitude.setRadians( atan( z/( sqrt( x*x + y*y ) ) ) );
		setRsun( trialpos.radius );
		setRearth( dst );

		EclipticToEquatorial( num->obliquity() );

		nutate(num);
		aberrate(num);

	} else {

		calcEcliptic(num->julianMillenia(), ep);
		helEcPos = ep;
	}

	//determine the position angle
	findPA( num );

	return true;
}
