diff options
| -rw-r--r-- | src/Main.hs | 7 | ||||
| -rw-r--r-- | stack.yaml | 2 |
2 files changed, 1 insertions, 8 deletions
diff --git a/src/Main.hs b/src/Main.hs index a2fb368..c7c0fbf 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -48,10 +48,6 @@ circleImage :: ((Int, Int) -> PFMColour) -> Int -> PFMImage circleImage f s = PFMImage s s $ toCircle f ((s - 1) `div` 2) [ [ (y, x) | x <- [0..s-1] ] | y <- reverse [0..s-1] ] -revColour :: PFMImage -> PFMImage -revColour (PFMImage w h i) = - PFMImage w h $ reverse i - bench :: IO () bench = do im <- B.readFile "data/urbanEM_latlong.pfm" @@ -77,9 +73,6 @@ fromImageF :: (Int, Int) -> PFMImage -> PFMColour fromImageF (y, x) (PFMImage w h c) = c !! y !! x -gamma :: (Floating a) => a -> a -> a -gamma g m = m ** (1 / g) - myForkIO :: IO () -> IO (MVar ()) myForkIO io = do mvar <- newEmptyMVar @@ -39,7 +39,7 @@ packages: # (e.g., acme-missiles-0.3) extra-deps: - git: https://github.com/ymherklotz/pfm.git - commit: 733de0cfaac119c0e1a309014a1da4a3aeaad01d + commit: 8f5147d0bf8fefff89d880288053b2d1b13de849 # Override default flag values for local packages and extra-deps # flags: {} |