barChart :: Picture
barChart = 
    pictures [ color bgColor $ plotChartBackground xAxis yAxis
             , color gridColor $ plotGrid xAxis yAxis (0, 0.1)
             , plotAxes xAxis yAxis
             , plotAxisScales xAxis yAxis (1, 0.1)
             , color barColor $ plotBarChart xAxis yAxis pts
             ]
     where xAxis = autoScaleAxis Linear chartW xs
           yAxis = fixedScaleAxis Linear chartH 0 1
           xs    = [0..18]
           ys    = [sin (x / 6) | x <- xs]
           pts   = zip xs ys
           
-----------------------------------------------------------------------------
barChart :: Picture
barChart = 
    pictures [ color bgColor $ plotChartBackground xAxis yAxis
             , color gridColor $ plotGrid xAxis yAxis (0, 0.1)
             , plotAxes xAxis yAxis
             , plotAxisScales xAxis yAxis (1, 0.1)
             , color barColor $ plotBarChart xAxis yAxis pts
             ]
     where xAxis = autoScaleAxis Linear chartW xs
           yAxis = fixedScaleAxis Linear chartH 0 1
           xs    = [0..18]
           ys    = [sin (x / 6) | x <- xs]
           pts   = zip xs ys
           
-----------------------------------------------------------------------------
barChart = 
    pictures [ color bgColor $ plotChartBackground xAxis yAxis
             , color gridColor $ plotGrid xAxis yAxis (0, 0.1)
             , plotAxes xAxis yAxis
             , plotAxisScales xAxis yAxis (1, 0.1)
             , color barColor $ plotBarChart xAxis yAxis pts
             ]
     where xAxis = autoScaleAxis Linear chartW xs
           yAxis = fixedScaleAxis Linear chartH 0 1
           xs    = [0..18]
           ys    = [sin (x / 6) | x <- xs]
           pts   = zip xs ys
           
-----------------------------------------------------------------------------