reanimate-svg-0.9.6.0: src/Graphics/SvgTree/Misc.hs

module Graphics.SvgTree.Misc
  ( ppD
  , ppF
  ) where

import           Data.Double.Conversion.Text
import qualified Data.Text                   as T

precision :: Int
precision = 6

ppD :: Double -> String
ppD c = T.unpack $ T.dropWhileEnd (\c -> c == '.' || c == ' ') $ toFixed precision c

ppF :: Float -> String
ppF = ppD . realToFrac