From 00a9db504cf921946207998b2897677bb3d4cbf6 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Wed, 30 Jan 2019 22:31:10 +0000 Subject: Update cabal and Main to create directory --- mirror-ball.cabal | 1 + 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 -- cgit