module Graphics.Image.IO.Formats.JuicyPixels.Common (
BMP(..),
GIF(..), GIFA(..),
JP.GifDelay, JP.GifLooping(..), JP.PaletteOptions(..), JP.PaletteCreationMethod(..),
HDR(..),
JPG(..),
PNG(..),
TGA(..),
TIF(..),
SaveOption(..),
) where
import Graphics.Image.ColorSpace
import Graphics.Image.IO.Base
import qualified Codec.Picture as JP
data BMP = BMP
instance ImageFormat BMP where
data SaveOption BMP
ext _ = ".bmp"
data GIF = GIF
instance ImageFormat GIF where
data SaveOption GIF = GIFPalette JP.PaletteOptions
ext _ = ".gif"
data GIFA = GIFA
instance ImageFormat GIFA where
data SaveOption GIFA = GIFAPalette JP.PaletteOptions
| GIFALooping JP.GifLooping
ext _ = ext GIF
data HDR = HDR
instance ImageFormat HDR where
data SaveOption HDR
ext _ = ".hdr"
exts _ = [".hdr", ".pic"]
data JPG = JPG
instance ImageFormat JPG where
data SaveOption JPG = JPGQuality Word8
ext _ = ".jpg"
exts _ = [".jpg", ".jpeg"]
data PNG = PNG
instance ImageFormat PNG where
data SaveOption PNG
ext _ = ".png"
data TGA = TGA
instance ImageFormat TGA where
data SaveOption TGA
ext _ = ".tga"
data TIF = TIF
instance ImageFormat TIF where
data SaveOption TIF
ext _ = ".tif"
exts _ = [".tif", ".tiff"]