package internal

import . "b612.me/astro/tools"

func SunLo(jd float64) float64 {
	t := (jd - 2451545.0) / 365250.0
	return Limit360(280.4664567 + 360007.6982779*t + 0.03032028*t*t + t*t*t/49931.0 - t*t*t*t/15299.0 - t*t*t*t*t/1988000.0)
}

func SunMeanAnomaly(jd float64) float64 {
	t := (jd - 2451545.0) / 36525.0
	return Limit360(357.5291092 + 35999.0502909*t - 0.0001559*t*t - 0.00000048*t*t*t)
}

func EarthEccentricity(jd float64) float64 {
	t := (jd - 2451545.0) / 36525.0
	return 0.016708617 - 0.000042037*t - 0.0000001236*t*t
}

func SunCenter(jd float64) float64 {
	t := (jd - 2451545.0) / 36525.0
	m := SunMeanAnomaly(jd)
	return (1.9146-0.004817*t-0.000014*t*t)*Sin(m) + (0.019993-0.000101*t)*Sin(2*m) + 0.00029*Sin(3*m)
}

func SunTrueLo(jd float64) float64 {
	return Limit360(SunLo(jd) + SunCenter(jd))
}

func SunApparentLo(jd float64) float64 {
	t := (jd - 2451545.0) / 36525.0
	return Limit360(SunTrueLo(jd) - 0.00569 - 0.00478*Sin(125.04-1934.136*t))
}

func SunDistanceAU(jd float64) float64 {
	c := SunCenter(jd)
	m := SunMeanAnomaly(jd)
	e := EarthEccentricity(jd)
	return 1.000001018 * (1 - e*e) / (1 + e*Cos(m+c))
}

func SunTrueRaDec(jd float64) (float64, float64) {
	return EclipticToEquatorial(jd, SunTrueLo(jd), 0)
}

func SunApparentRaDec(jd float64) (float64, float64) {
	return EclipticToEquatorial(jd, SunApparentLo(jd), 0)
}