module Data.Geo.Jord.Ellipsoids where
import Data.Geo.Jord.Ellipsoid
import Data.Geo.Jord.Length
eWGS84 :: Ellipsoid
eWGS84 :: Ellipsoid
eWGS84 = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
6378137.0) Double
298.257223563
eGRS80 :: Ellipsoid
eGRS80 :: Ellipsoid
eGRS80 = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
6378137.0) Double
298.257222101
eWGS72 :: Ellipsoid
eWGS72 :: Ellipsoid
eWGS72 = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
6378135.0) Double
298.26
eIntl1924 :: Ellipsoid
eIntl1924 :: Ellipsoid
eIntl1924 = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
6378388.0) Double
297.0
eAiry1830 :: Ellipsoid
eAiry1830 :: Ellipsoid
eAiry1830 = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
6377563.396) Double
299.3249646
eAiryModified :: Ellipsoid
eAiryModified :: Ellipsoid
eAiryModified = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
6377340.189) Double
299.3249646
eBessel1841 :: Ellipsoid
eBessel1841 :: Ellipsoid
eBessel1841 = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
6377397.155) Double
299.1528128
eClarke1866 :: Ellipsoid
eClarke1866 :: Ellipsoid
eClarke1866 = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
6378206.4) Double
294.978698214
eClarke1880IGN :: Ellipsoid
eClarke1880IGN :: Ellipsoid
eClarke1880IGN = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
6378249.2) Double
293.466021294
eMars2000 :: Ellipsoid
eMars2000 :: Ellipsoid
eMars2000 = Length -> Double -> Ellipsoid
ellispoid (Double -> Length
metres Double
3398627.0) Double
169.8
eMoon :: Ellipsoid
eMoon :: Ellipsoid
eMoon = Length -> Ellipsoid
sphere (Double -> Length
metres Double
1737400.0)