Plot.hs

module Plot (Plot.plot)
  where

import Graphics.Rendering.Chart.Easy
import Graphics.Rendering.Chart.Backend.Cairo
import Data.Complex
import Spectrum

-- An artificial max to make sure all graphs are the same height
maxHeight = 25000
dummyList :: [(Double, Double)]
dummyList = [(0, maxHeight)]

plot :: [(Double, Double)] -> String -> FilePath -> IO()
plot input title filePath = do
  toFile def filePath $ do
    layout_title .= title
    Graphics.Rendering.Chart.Easy.plot (line "magnitude" [input])
    --Graphics.Rendering.Chart.Easy.plot (points "points" input)