diff options
Diffstat (limited to 'src/Main.hs')
-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 |