Chart-tests-1.9.3: tests/Drawing/Cairo.hs

module Drawing.Cairo where

import Control.Monad

import Graphics.Rendering.Chart.Backend
import Graphics.Rendering.Chart.Backend.Cairo

import Drawing.Tests

main :: IO ()
main = (flip mapM_) tests $ \(name, w, h, draw) -> do
  render (name ++ ".png") w h draw

render :: FilePath -> Int -> Int -> BackendProgram a -> IO ()
render f w h m = void $ cBackendToFile (FileOptions (w,h) PNG) m f