Module Celestial

type equatorial = {
  1. ra : float;
  2. dec : float;
}
type horizontal = {
  1. az : float;
  2. alt : float;
}
val hours : float -> float -> float -> float
val degrees : float -> float
val dms : int -> float -> float -> float -> float
val to_degrees : float -> float
val to_hours : float -> float
val normalize : float -> float
val julian_date : float -> float
val j2000 : float
val centuries : float -> float
val gmst : float -> float
val lst : float -> lon:float -> float
val obliquity : float -> float
val of_ecliptic : obliquity:float -> float -> float -> equatorial
val of_vector : (float * float * float) -> equatorial
val to_vector : equatorial -> float * float * float
val precess : float -> equatorial -> equatorial
val to_horizontal : lat:float -> lst:float -> equatorial -> horizontal
val separation : equatorial -> equatorial -> float