module Geometry.Zone
    ( divTo
    , modTo
    ) where

divTo :: Float -> Float -> Int
{-# INLINE divTo #-}
divTo s = floor . (/s)

modTo :: Float -> Float -> Float
{-# INLINE modTo #-}
modTo s x = x - s * fromIntegral (divTo s x)

--remTo :: Float -> Float -> Float
--remTo s x = x - s * fromIntegral (quotTo s x)
--
--quotTo :: Float -> Float -> Int
--{-# INLINE quotTo #-}
--quotTo s = truncate . (/s)