Cleanup pictures

src/Picture/Arc.hs

@@ -1,4 +1,6 @@
-module Picture.Arc where
+module Picture.Arc 
+    ( arcFull
+    ) where
 
 import Color
 import Geometry
@@ -7,6 +9,7 @@ import Picture.Data
 -- this should work regardless of which angle is larger, though swapping the
 -- angles will affect the winding of the drawn triangles
 arcFull :: Float -> Float -> Color -> Float -> Float -> Color -> Float -> Color -> Picture
+{-# INLINE arcFull #-}
 arcFull startA swidth scol endA ewidth ecol r centercol
     | abs (difference startA endA) > pi / 2 =
         arcFull startA swidth scol midA mw mc r centercol