OutputWriter

module OutputWriter
    (
        showInterpolation,
        showPoint
    ) where

import Interpolation
import Point

showInterpolation :: Double -> Bool -> Interpolation -> IO ()
showInterpolation frequency flag i = foldr (>>) (return ()) (map (showPoint . interpolate i) (genFractional frequency (getL i) (getR i) flag))

showPoint :: Point -> IO ()
showPoint p = putStrLn ("" ++ (show . getX $ p) ++ "; " ++ (show . getY $ p))

genFractional :: Double -> Double -> Double -> Bool -> [Double]
genFractional 0 _ _ _ = error "Frequency must be more then 0"
genFractional frequency l r flag = do
    if (l >= r) then
        [r]
    else if ((r >= l + frequency) || flag) then
        [l] ++ genFractional frequency (l + frequency) r flag
    else []