boxPlot :: Picture
boxPlot = 
    pictures [ color bgColor $ plotChartBackground xAxis yAxis
             , color gridColor $ plotGrid xAxis yAxis (0, 0.25)
             , plotAxes xAxis yAxis
             , plotAxisScales xAxis yAxis (0, 0.5)
             , boxPlots xAxis yAxis 25 barColor (pts ++ pts' ++ pts'' ++ pts''')
             ]
    where xAxis  = fixedScaleAxis Linear chartW 0.5 4.5
          yAxis  = fixedScaleAxis Linear chartH (-1) 1
          pts    = zip (repeat 1) (map sin [0..10])
          pts'   = zip (repeat 2) (map cos [0, 0.1..2])
          pts''  = zip (repeat 3) (map cos [1, 1.1..3])
          pts''' = zip (repeat 4) (map cos [1, 1.1..2])

-----------------------------------------------------------------------------
boxPlot :: Picture
boxPlot = 
    pictures [ color bgColor $ plotChartBackground xAxis yAxis
             , color gridColor $ plotGrid xAxis yAxis (0, 0.25)
             , plotAxes xAxis yAxis
             , plotAxisScales xAxis yAxis (0, 0.5)
             , boxPlots xAxis yAxis 25 barColor (pts ++ pts' ++ pts'' ++ pts''')
             ]
    where xAxis  = fixedScaleAxis Linear chartW 0.5 4.5
          yAxis  = fixedScaleAxis Linear chartH (-1) 1
          pts    = zip (repeat 1) (map sin [0..10])
          pts'   = zip (repeat 2) (map cos [0, 0.1..2])
          pts''  = zip (repeat 3) (map cos [1, 1.1..3])
          pts''' = zip (repeat 4) (map cos [1, 1.1..2])

-----------------------------------------------------------------------------
boxPlot = 
    pictures [ color bgColor $ plotChartBackground xAxis yAxis
             , color gridColor $ plotGrid xAxis yAxis (0, 0.25)
             , plotAxes xAxis yAxis
             , plotAxisScales xAxis yAxis (0, 0.5)
             , boxPlots xAxis yAxis 25 barColor (pts ++ pts' ++ pts'' ++ pts''')
             ]
    where xAxis  = fixedScaleAxis Linear chartW 0.5 4.5
          yAxis  = fixedScaleAxis Linear chartH (-1) 1
          pts    = zip (repeat 1) (map sin [0..10])
          pts'   = zip (repeat 2) (map cos [0, 0.1..2])
          pts''  = zip (repeat 3) (map cos [1, 1.1..3])
          pts''' = zip (repeat 4) (map cos [1, 1.1..2])

-----------------------------------------------------------------------------