pointChart :: Picture
pointChart =
    pictures [ color bgColor $ plotChartBackground xAxis yAxis
             , color gridColor $ plotGrid xAxis yAxis (1, 1)
             , plotAxes xAxis yAxis
             , plotAxisScales xAxis yAxis (1, 1)
             , color pointColor $ plotPointChart' (circleSolid 3) xAxis yAxis pts
             , color pointColor' $ plotPointChart' (eqTriangleSolid 6) xAxis yAxis pts'
             ]
    where xAxis = fixedScaleAxis Linear chartW 0 10
          yAxis = fixedScaleAxis Linear chartH 0 10
          pts   = [ (0.5, 0.7), (0.9, 1.3), (1.3, 2.1), (2.3, 3.9)
                  , (3.0, 0.9), (3.2, 4.1), (3.4, 3.8), (3.7, 2.6)
                  , (4.1, 5.2), (4.3, 1.2), (4.5, 2.3), (5.1, 2.5)
                  ]
          pts'  = [ (5.2, 6.1), (5.7, 6.5), (6.1, 8.9), (6.2, 8.4)
                  , (6.3, 7.5), (6.8, 8.2), (7.1, 5.5), (7.6, 8.9)
                  , (8.0, 9.5), (8.3, 6.6), (8.4, 7.5), (8.7, 5.6)
                  , (8.7, 9.6), (9.4, 8.7), (9.9, 9.9)
                  ]
                  
-----------------------------------------------------------------------------
pointChart :: Picture
pointChart =
    pictures [ color bgColor $ plotChartBackground xAxis yAxis
             , color gridColor $ plotGrid xAxis yAxis (1, 1)
             , plotAxes xAxis yAxis
             , plotAxisScales xAxis yAxis (1, 1)
             , color pointColor $ plotPointChart' (circleSolid 3) xAxis yAxis pts
             , color pointColor' $ plotPointChart' (eqTriangleSolid 6) xAxis yAxis pts'
             ]
    where xAxis = fixedScaleAxis Linear chartW 0 10
          yAxis = fixedScaleAxis Linear chartH 0 10
          pts   = [ (0.5, 0.7), (0.9, 1.3), (1.3, 2.1), (2.3, 3.9)
                  , (3.0, 0.9), (3.2, 4.1), (3.4, 3.8), (3.7, 2.6)
                  , (4.1, 5.2), (4.3, 1.2), (4.5, 2.3), (5.1, 2.5)
                  ]
          pts'  = [ (5.2, 6.1), (5.7, 6.5), (6.1, 8.9), (6.2, 8.4)
                  , (6.3, 7.5), (6.8, 8.2), (7.1, 5.5), (7.6, 8.9)
                  , (8.0, 9.5), (8.3, 6.6), (8.4, 7.5), (8.7, 5.6)
                  , (8.7, 9.6), (9.4, 8.7), (9.9, 9.9)
                  ]
                  
-----------------------------------------------------------------------------
pointChart =
    pictures [ color bgColor $ plotChartBackground xAxis yAxis
             , color gridColor $ plotGrid xAxis yAxis (1, 1)
             , plotAxes xAxis yAxis
             , plotAxisScales xAxis yAxis (1, 1)
             , color pointColor $ plotPointChart' (circleSolid 3) xAxis yAxis pts
             , color pointColor' $ plotPointChart' (eqTriangleSolid 6) xAxis yAxis pts'
             ]
    where xAxis = fixedScaleAxis Linear chartW 0 10
          yAxis = fixedScaleAxis Linear chartH 0 10
          pts   = [ (0.5, 0.7), (0.9, 1.3), (1.3, 2.1), (2.3, 3.9)
                  , (3.0, 0.9), (3.2, 4.1), (3.4, 3.8), (3.7, 2.6)
                  , (4.1, 5.2), (4.3, 1.2), (4.5, 2.3), (5.1, 2.5)
                  ]
          pts'  = [ (5.2, 6.1), (5.7, 6.5), (6.1, 8.9), (6.2, 8.4)
                  , (6.3, 7.5), (6.8, 8.2), (7.1, 5.5), (7.6, 8.9)
                  , (8.0, 9.5), (8.3, 6.6), (8.4, 7.5), (8.7, 5.6)
                  , (8.7, 9.6), (9.4, 8.7), (9.9, 9.9)
                  ]
                  
-----------------------------------------------------------------------------