Center and rotate to horizontal sound text

src/Picture.hs

@@ -22,6 +22,7 @@ module Picture
     , line
     , lineCol
     , text
+    , centerText
     , pictures
     , concatMapPic
     , appendPic
@@ -244,6 +245,10 @@ circle :: Float -> Picture
 {-# INLINE circle #-}
 circle rad = thickArc 0 (2*pi) rad 1
 
+centerText :: String -> Picture
+{-# INLINE centerText #-}
+centerText s = translate (25 * (negate . fromIntegral $ length s)) 0 $ text s
+
 text :: String -> Picture
 {-# INLINE text #-}
 text s = map f $ stringToList s