diff options
author | Yann Herklotz Grave <git@yannherklotzgrave.com> | 2019-02-20 17:03:44 +0000 |
---|---|---|
committer | Yann Herklotz Grave <git@yannherklotzgrave.com> | 2019-02-20 17:03:44 +0000 |
commit | fcffa2e1bcd94ca2f6ddc52a886a6f0eba18caf0 (patch) | |
tree | 3821b249c1680bc1f33c19a5ae0dce8f499adc37 /src | |
parent | 2a9adab396ba76158abbcb2435f55211a0b63333 (diff) | |
download | mirror-ball-fcffa2e1bcd94ca2f6ddc52a886a6f0eba18caf0.tar.gz mirror-ball-fcffa2e1bcd94ca2f6ddc52a886a6f0eba18caf0.zip |
Remove duplicate functions and update library
Diffstat (limited to 'src')
-rw-r--r-- | src/Main.hs | 7 |
1 files changed, 0 insertions, 7 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 |