From 66fb61785ad2ea9f055e7420d6f622dc3d0c05ee Mon Sep 17 00:00:00 2001
From: Yann Herklotz Grave <git@yannherklotzgrave.com>
Date: Sun, 24 Feb 2019 15:03:22 +0000
Subject: Add file conversion from pfm to ppm

---
 src/Main.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'src')

diff --git a/src/Main.hs b/src/Main.hs
index 647885c..9f73361 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -164,9 +164,20 @@ generateCuts stop splitFun image prefix i = do
     newColour = splitFun i (fIntens $ pfmColour image) $ pfmColour image
     img       = PFMImage (pfmWidth image) (pfmHeight image) newColour
 
+convertPFMtoPPM :: String -> IO ()
+convertPFMtoPPM name = do
+    im <- B.readFile $ name <> ".pfm"
+    let image = revColour $ parse im
+    BL.writeFile (name <> ".ppm")
+        . encodePPM
+        . clampImage 0
+        . applyGamma 2.2
+        $ image
+
 main :: IO ()
 main = do
     im <- B.readFile "data/grace_latlong.pfm"
     let grace = revColour $ parse im
     mapM_ (generateCuts 0 recSplit grace "median_cut")                  [1 .. 10]
     mapM_ (generateCuts (-6) recSplitRadiance grace "median_cut_radiance") [6]
+    mapM_ convertPFMtoPPM $ ("data/simple_sphere"<>) <$> ["08", "16", "32", "64"]
-- 
cgit