logScaleChart :: Picture
logScaleChart =
    pictures [ color bgColor $ plotChartBackground xAxis yAxis
             , plotAxes xAxis yAxis
             , color pointColor $ plotAxisScales xAxis yAxis (1, 10)
             , translate (chartW + 25) 0 $ color pointColor' 
                                         $ plotAxisScales xAxis yAxis' (0, 10)
             , color pointColor $ plotLineChart xAxis yAxis $ zip xs ys
             , color pointColor' $ plotLineChart xAxis yAxis' $ zip xs ys
             ]
    where xAxis     = fixedScaleAxis Linear chartW 0 10
          yAxis     = fixedScaleAxis Linear chartH 0 1024
          yAxis'    = fixedScaleAxis Log chartH 1 1000
          xs        = [0.1, 0.25..10]
          ys        = map (2 **) xs
logScaleChart :: Picture
logScaleChart =
    pictures [ color bgColor $ plotChartBackground xAxis yAxis
             , plotAxes xAxis yAxis
             , color pointColor $ plotAxisScales xAxis yAxis (1, 10)
             , translate (chartW + 25) 0 $ color pointColor' 
                                         $ plotAxisScales xAxis yAxis' (0, 10)
             , color pointColor $ plotLineChart xAxis yAxis $ zip xs ys
             , color pointColor' $ plotLineChart xAxis yAxis' $ zip xs ys
             ]
    where xAxis     = fixedScaleAxis Linear chartW 0 10
          yAxis     = fixedScaleAxis Linear chartH 0 1024
          yAxis'    = fixedScaleAxis Log chartH 1 1000
          xs        = [0.1, 0.25..10]
          ys        = map (2 **) xs
logScaleChart =
    pictures [ color bgColor $ plotChartBackground xAxis yAxis
             , plotAxes xAxis yAxis
             , color pointColor $ plotAxisScales xAxis yAxis (1, 10)
             , translate (chartW + 25) 0 $ color pointColor' 
                                         $ plotAxisScales xAxis yAxis' (0, 10)
             , color pointColor $ plotLineChart xAxis yAxis $ zip xs ys
             , color pointColor' $ plotLineChart xAxis yAxis' $ zip xs ys
             ]
    where xAxis     = fixedScaleAxis Linear chartW 0 10
          yAxis     = fixedScaleAxis Linear chartH 0 1024
          yAxis'    = fixedScaleAxis Log chartH 1 1000
          xs        = [0.1, 0.25..10]
          ys        = map (2 **) xs