module SVG where
-- Making a SVG diagram of the points and hull
makeSVG :: [(Int, Int)] -> [(Int, Int)] -> String
makeSVG points hull
= unlines
$ [ ""]
svgPolygon :: [(Int, Int)] -> String
svgPolygon points
= ""
svgPoint :: (Int, Int) -> String
svgPoint (x, y)
= ""
svgPointHull :: (Int, Int) -> String
svgPointHull (x, y)
= ""
roundPoints :: [(Double, Double)] -> [(Int, Int)]
roundPoints ps = [(round x, round y) | (x, y) <- ps]