diff options
author | Yann Herklotz <ymherklotz@gmail.com> | 2019-01-30 22:31:10 +0000 |
---|---|---|
committer | Yann Herklotz <ymherklotz@gmail.com> | 2019-01-30 22:31:10 +0000 |
commit | 00a9db504cf921946207998b2897677bb3d4cbf6 (patch) | |
tree | fefa0f39fe9fed7cefea282ef978ba8e45b7630e /src | |
parent | 0d2696a55d3b5c718b641492a9b73aa431b3b6f5 (diff) | |
download | mirror-ball-00a9db504cf921946207998b2897677bb3d4cbf6.tar.gz mirror-ball-00a9db504cf921946207998b2897677bb3d4cbf6.zip |
Update cabal and Main to create directory
Diffstat (limited to 'src')
-rw-r--r-- | src/Main.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/Main.hs b/src/Main.hs index b674eb6..8bba9a0 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -6,6 +6,7 @@ import qualified Data.ByteString.Lazy as BL import qualified Data.Text as T import Data.Word (Word8) import PFM +import System.Directory (createDirectoryIfMissing) import Vec clamp :: PFMColour -> PPMColour @@ -49,9 +50,10 @@ revColour (PFMImage w h i) = main :: IO () main = do + createDirectoryIfMissing True "data" let i = circleImage (normalise 511) 511 - BL.writeFile "normal.ppm" . encodePPM . clampImage $ i - BL.writeFile "normal.pfm" . encode . revColour $ i + BL.writeFile "data/normal.ppm" . encodePPM . clampImage $ i + BL.writeFile "data/normal.pfm" . encode . revColour $ i let r = circleImage (reflect 511 (Vec (0, 0, 1))) 511 - BL.writeFile "reflect.ppm" . encodePPM . clampImage $ r - BL.writeFile "reflect.pfm" . encode . revColour $ r + BL.writeFile "data/reflect.ppm" . encodePPM . clampImage $ r + BL.writeFile "data/reflect.pfm" . encode . revColour $ r |