polarChart :: Picture
polarChart =
    pictures [ color bgColor $ plotChartBackground tAxis rAxis
             , color gridColor $ plotPolarGrid tAxis rAxis (pi / 4, pi / 8)
             , color pointColor $ plotPolarChart line tAxis rAxis pts
             , color pointColor' $ plotPolarChart line tAxis rAxis pts'
             ]
     where tAxis = angularAxis chartW
           rAxis = radialAxis Linear chartH 0 (pi / 2)
           xs    = map ((2 * pi / 100) * ) [0..100]
           ys    = map (\x -> sin (4 * x) ) xs
           xs'   = map ((4 * pi / 100) * ) [0..100]
           ys'   = map (/ (2.6 * pi)) $ xs'
           pts   = zip xs ys
           pts'  = zip xs' ys'
           renderPointFn = pictures . map point
           point (x, y)  = translate x y $ circleSolid 2.5

-----------------------------------------------------------------------------
polarChart :: Picture
polarChart =
    pictures [ color bgColor $ plotChartBackground tAxis rAxis
             , color gridColor $ plotPolarGrid tAxis rAxis (pi / 4, pi / 8)
             , color pointColor $ plotPolarChart line tAxis rAxis pts
             , color pointColor' $ plotPolarChart line tAxis rAxis pts'
             ]
     where tAxis = angularAxis chartW
           rAxis = radialAxis Linear chartH 0 (pi / 2)
           xs    = map ((2 * pi / 100) * ) [0..100]
           ys    = map (\x -> sin (4 * x) ) xs
           xs'   = map ((4 * pi / 100) * ) [0..100]
           ys'   = map (/ (2.6 * pi)) $ xs'
           pts   = zip xs ys
           pts'  = zip xs' ys'
           renderPointFn = pictures . map point
           point (x, y)  = translate x y $ circleSolid 2.5

-----------------------------------------------------------------------------
polarChart =
    pictures [ color bgColor $ plotChartBackground tAxis rAxis
             , color gridColor $ plotPolarGrid tAxis rAxis (pi / 4, pi / 8)
             , color pointColor $ plotPolarChart line tAxis rAxis pts
             , color pointColor' $ plotPolarChart line tAxis rAxis pts'
             ]
     where tAxis = angularAxis chartW
           rAxis = radialAxis Linear chartH 0 (pi / 2)
           xs    = map ((2 * pi / 100) * ) [0..100]
           ys    = map (\x -> sin (4 * x) ) xs
           xs'   = map ((4 * pi / 100) * ) [0..100]
           ys'   = map (/ (2.6 * pi)) $ xs'
           pts   = zip xs ys
           pts'  = zip xs' ys'
           renderPointFn = pictures . map point
           point (x, y)  = translate x y $ circleSolid 2.5

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