main :: IO ()
main = do
    let disp = InWindow "HsCharts Demo" (windowW, windowH) (50, 50)
    display disp white $ pictures [ q 0 0 pointChart
                                  , q 1 0 lineChart
                                  , q 2 0 bubbleChart
                                  , q 3 0 logScaleChart
                                  , q 0 1 barChart
                                  , q 1 1 areaChart
                                  , q 2 1 Main.boxPlot
                                  , q 3 1 polarChart
                                  ]
main :: IO ()
main = do
    let disp = InWindow "HsCharts Demo" (windowW, windowH) (50, 50)
    display disp white $ pictures [ q 0 0 pointChart
                                  , q 1 0 lineChart
                                  , q 2 0 bubbleChart
                                  , q 3 0 logScaleChart
                                  , q 0 1 barChart
                                  , q 1 1 areaChart
                                  , q 2 1 Main.boxPlot
                                  , q 3 1 polarChart
                                  ]
main = do
    let disp = InWindow "HsCharts Demo" (windowW, windowH) (50, 50)
    display disp white $ pictures [ q 0 0 pointChart
                                  , q 1 0 lineChart
                                  , q 2 0 bubbleChart
                                  , q 3 0 logScaleChart
                                  , q 0 1 barChart
                                  , q 1 1 areaChart
                                  , q 2 1 Main.boxPlot
                                  , q 3 1 polarChart
                                  ]