Move toward adding infoboxes/better creature information display

src/Picture.hs

@@ -25,6 +25,7 @@ module Picture
     , lineCol
     , text
     , centerText
+    , stackText
     , pictures
     , concatMapPic
     , appendPic
@@ -224,6 +225,10 @@ centerText :: String -> Picture
 {-# INLINE centerText #-}
 centerText s = translate (50 * (negate . fromIntegral $ length s - 1)) 0 $ text s
 
+stackText :: [String] -> Picture
+{-# INLINE stackText #-}
+stackText = mconcat . zipWith (\y s -> translate 0 y $ centerText s) [0,100..]
+
 text :: String -> Picture
 {-# INLINE text #-}
 text = map f . stringToList