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 | |
| parent | 0d2696a55d3b5c718b641492a9b73aa431b3b6f5 (diff) | |
| download | mirror-ball-00a9db504cf921946207998b2897677bb3d4cbf6.tar.gz mirror-ball-00a9db504cf921946207998b2897677bb3d4cbf6.zip | |
Update cabal and Main to create directory
| -rw-r--r-- | mirror-ball.cabal | 1 | ||||
| -rw-r--r-- | src/Main.hs | 10 |
2 files changed, 7 insertions, 4 deletions
diff --git a/mirror-ball.cabal b/mirror-ball.cabal index e2c43d3..44a0b9c 100644 --- a/mirror-ball.cabal +++ b/mirror-ball.cabal @@ -19,5 +19,6 @@ executable mirror-ball default-language: Haskell2010 build-depends: base >= 4.7 && < 5 , bytestring >= 0.10.8.2 + , directory >= 1.3.3.0 , pfm >= 0.1.0.0 , text >= 1.2.3.1 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 |