areaChart :: Picture
areaChart = 
    pictures [ color bgColor $ plotChartBackground xAxis yAxis
             , color gridColor $ plotGrid xAxis yAxis (0, 0.1)
             , plotAxes xAxis yAxis
             , plotAxisScales xAxis yAxis (1, 0.2)
             , color areaColor $ plotAreaChart xAxis yAxis pts
             , color pointColor $ plotLineChart xAxis yAxis pts
             ]
     where xAxis = autoScaleAxis Linear chartW xs
           yAxis = fixedScaleAxis Linear chartH (-1) 1
           xs    = [0,0.1..2 * pi]
           ys    = map sin xs
           pts   = zip xs ys
           
-----------------------------------------------------------------------------
areaChart :: Picture
areaChart = 
    pictures [ color bgColor $ plotChartBackground xAxis yAxis
             , color gridColor $ plotGrid xAxis yAxis (0, 0.1)
             , plotAxes xAxis yAxis
             , plotAxisScales xAxis yAxis (1, 0.2)
             , color areaColor $ plotAreaChart xAxis yAxis pts
             , color pointColor $ plotLineChart xAxis yAxis pts
             ]
     where xAxis = autoScaleAxis Linear chartW xs
           yAxis = fixedScaleAxis Linear chartH (-1) 1
           xs    = [0,0.1..2 * pi]
           ys    = map sin xs
           pts   = zip xs ys
           
-----------------------------------------------------------------------------
areaChart = 
    pictures [ color bgColor $ plotChartBackground xAxis yAxis
             , color gridColor $ plotGrid xAxis yAxis (0, 0.1)
             , plotAxes xAxis yAxis
             , plotAxisScales xAxis yAxis (1, 0.2)
             , color areaColor $ plotAreaChart xAxis yAxis pts
             , color pointColor $ plotLineChart xAxis yAxis pts
             ]
     where xAxis = autoScaleAxis Linear chartW xs
           yAxis = fixedScaleAxis Linear chartH (-1) 1
           xs    = [0,0.1..2 * pi]
           ys    = map sin xs
           pts   = zip xs ys
           
-----------------------------------------------------------------------------