Module Ephemeris

type planet =
  1. | Mercury
  2. | Venus
  3. | Mars
  4. | Jupiter
  5. | Saturn
val planets : planet list
val planet_name : planet -> string
val kepler : e:float -> float -> float
val heliocentric : planet option -> float -> float * float * float
val planet : planet -> float -> Celestial.equatorial
val sun : float -> Celestial.equatorial
val moon_ecliptic : float -> float * float
val moon : float -> Celestial.equatorial
val illuminated : sun:Celestial.equatorial -> Celestial.equatorial -> float