Utils.hs

-- | Miscellaneous utils for math
module GIS.Math.Utils where

import           Control.Lens
import           GIS.Types

sinc :: Floating a => a -> a
sinc x = sin x / x

-- | Convert a `Double` from degrees to radians.
radians :: Double -> Double
radians = (*(pi/180))

-- | Convert both coördinates to radians.
toRadians :: Point -> Point
toRadians = over _1 radians . over _2 radians