Chart-0.13: tests/Test6.hs

module Test6 where

import Graphics.Rendering.Chart
import Graphics.Rendering.Chart.Simple
import Graphics.Rendering.Chart.Gtk
import System.Environment(getArgs)

chart :: Renderable ()
chart = toRenderable (plotLayout pp){layout1_title_="Graphics.Rendering.Chart.Simple example"}
  where
    pp = plot xs sin "sin"
                 cos "cos" "o"
                 (sin.sin.cos) "sin.sin.cos" "."
                 (/3) "- "
                 (const 0.5)
                 [0.1,0.7,0.5::Double] "+"
    xs = [0,0.3..3] :: [Double]

main1 :: [String] -> IO()
main1 ["small"]  = renderableToPNGFile chart 320 240 "test6_small.png"
main1 ["big"]    = renderableToPNGFile chart 800 600 "test6_big.png"
main1 _          = renderableToWindow  chart 640 480

main = getArgs >>= main1