included samples, disabled debug-image generation

2015-11-21 21:42:09 +01:00
parent 14d633586d
commit a29da3ac9a
5 changed files with 131 additions and 1 deletions
--- a/image1.img
+++ b/image1.img
--- a/image2.img
+++ b/image2.img
--- a/src/Main.hs
+++ b/src/Main.hs
@ -47,7 +47,7 @@ run (Options src w h) = do
                 case pix of
                   Nothing -> return ()
                   Just (f,b) -> do
-                     savePngImage "test.png" (ImageRGB8 b)
+                     --savePngImage "test.png" (ImageRGB8 b)
                     str <- return $ img2ascii conv (f,b)
                     mapM_ (\x -> putStr x >> putStrLn "\x1b[0m") (concat <$> str)
              Nothing -> return ()
--- a/test.jpg
+++ b/test.jpg
--- a/test.png
+++ b/test.png