-- | 
-- Module:      Data.Geo.Jord.Ellipsoids 
-- Copyright:   (c) 2020 Cedric Liegeois 
-- License:     BSD3 
-- Maintainer:  Cedric Liegeois <ofmooseandmen@yahoo.fr> 
-- Stability:   experimental 
-- Portability: portable 
--
-- Common ellipsoids of different celestial bodies.
--
-- This module has been generated.
module Data.Geo.Jord.Ellipsoids where

import Data.Geo.Jord.Ellipsoid
import Data.Geo.Jord.Length

-- | World Geodetic 84 Ellipsoid.
eWGS84 :: Ellipsoid
eWGS84 :: Ellipsoid
eWGS84 = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
6378137.0) Double
298.257223563

-- | Geodetic Reference System 1980 Ellipsoid.
eGRS80 :: Ellipsoid
eGRS80 :: Ellipsoid
eGRS80 = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
6378137.0) Double
298.257222101

-- | World Geodetic 72 Ellipsoid.
eWGS72 :: Ellipsoid
eWGS72 :: Ellipsoid
eWGS72 = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
6378135.0) Double
298.26

-- | IUGG 1924 Ellipsoid.
eIntl1924 :: Ellipsoid
eIntl1924 :: Ellipsoid
eIntl1924 = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
6378388.0) Double
297.0

-- | Original definition Ellipsoid (1796).
eAiry1830 :: Ellipsoid
eAiry1830 :: Ellipsoid
eAiry1830 = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
6377563.396) Double
299.3249646

-- | Not specified, use only in cases where geodetic datum is unknown.
eAiryModified :: Ellipsoid
eAiryModified :: Ellipsoid
eAiryModified = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
6377340.189) Double
299.3249646

-- | Bessel 1841 Ellipsoid.
eBessel1841 :: Ellipsoid
eBessel1841 :: Ellipsoid
eBessel1841 = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
6377397.155) Double
299.1528128

-- | Clarke (1866) Ellipsoid.
eClarke1866 :: Ellipsoid
eClarke1866 :: Ellipsoid
eClarke1866 = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
6378206.4) Double
294.978698214

-- |  Clarke (1880) Ellipsoid.
eClarke1880IGN :: Ellipsoid
eClarke1880IGN :: Ellipsoid
eClarke1880IGN = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
6378249.2) Double
293.466021294

-- | Mars Orbiter Laser Altimeter Ellipsoid.
eMars2000 :: Ellipsoid
eMars2000 :: Ellipsoid
eMars2000 = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
3398627.0) Double
169.8

-- | Moon IAU/IAG Sphere.
eMoon :: Ellipsoid
eMoon :: Ellipsoid
eMoon = Length -> Ellipsoid
sphere (Double -> Length
metres Double
1737400.0)