module Graphics.Image.Interface.Repa (
makeImage, fromLists,
readImageY, readImageYA, readImageRGB, readImageRGBA,
computeS, computeP, delay,
RD(..), RS(..), RP(..),
) where
import Graphics.Image.IO
import Graphics.Image.Interface hiding (makeImage, fromLists)
import qualified Graphics.Image.Interface as I (makeImage, fromLists)
import Graphics.Image.Interface.Repa.Internal
import Graphics.Image.ColorSpace
makeImage :: Array RD cs Double =>
(Int, Int)
-> ((Int, Int) -> Pixel cs Double)
-> Image RD cs Double
makeImage = I.makeImage
fromLists :: Array RD cs e =>
[[Pixel cs e]]
-> Image RD cs e
fromLists = I.fromLists
readImageY :: FilePath -> IO (Image RD Y Double)
readImageY = fmap (either error id) . readImage
readImageYA :: FilePath -> IO (Image RD YA Double)
readImageYA = fmap (either error id) . readImage
readImageRGB :: FilePath -> IO (Image RD RGB Double)
readImageRGB = fmap (either error id) . readImage
readImageRGBA :: FilePath -> IO (Image RD RGBA Double)
readImageRGBA = fmap (either error id) . readImage