drawarc :: Int -> Int -> Rect -> [DrawCommand] drawpoly :: [Point] -> [DrawCommand] fillarc :: Int -> Int -> Rect -> [DrawCommand] trianglePoints :: Rect -> [Point] trianglePoints' :: Rect -> [Point]
