expectedSimplePolygonPts :: [(Double, Double)]
expectedSimplePolygonPts = [(0, 0), (4, 0), (4, 4), (0, 4), (0,0)]
expectedSimplePolygonPts :: [(Double, Double)]
expectedSimplePolygonPts = [(0, 0), (4, 0), (4, 4), (0, 4), (0,0)]
expectedSimplePolygonPts = [(0, 0), (4, 0), (4, 4), (0, 4), (0,0)]