Add sample for #76.

src/Graphics/Vty/Image.hs

@@ -184,7 +184,8 @@ pad inL inT inR inB inImage
                 where w = imageWidth  i + l
                       h = imageHeight i
 
--- | translates an image by padding or cropping the top and left.
+-- | translates an image by padding or cropping the left and top. First param is amount to translate
+-- left. Second param is amount to translate top.
 --
 -- This can have an unexpected effect: Translating an image to less than (0,0) then to greater than
 -- (0,0) will crop the image.

test/Issue76.hs

@@ -0,0 +1,17 @@
+module Main where
+
+import Control.Monad (void)
+import Graphics.Vty
+
+main :: IO ()
+main = do
+  cfg <- standardIOConfig
+  vty <- mkVty cfg
+  let line1 = charFill (defAttr `withBackColor` blue) ' ' 10 1
+      line2 = charFill (defAttr `withBackColor` green) ' ' 10 1
+      img = translate 10 5 (line1 `vertJoin` line2)
+      pic = picForImage img
+
+  update vty pic
+  void $ nextEvent vty
+  shutdown vty