Safe Haskell	None
Language	Haskell2010

Codec.Picture.Jpg.Internal.Types

Synopsis

type MutableMacroBlock s a = STVector s a
createEmptyMutableMacroBlock :: (Storable a, Num a) => ST s (MutableMacroBlock s a)
printMacroBlock :: (Storable a, PrintfArg a) => MutableMacroBlock s a -> ST s String
printPureMacroBlock :: (Storable a, PrintfArg a) => MacroBlock a -> String
type DcCoefficient = Int16
data JpgImage = JpgImage {
- jpgFrame :: [JpgFrame]
}
data JpgComponent = JpgComponent {
- componentIdentifier :: !Word8
- horizontalSamplingFactor :: !Word8
- verticalSamplingFactor :: !Word8
- quantizationTableDest :: !Word8
}
data JpgFrameHeader = JpgFrameHeader {
- jpgFrameHeaderLength :: !Word16
- jpgSamplePrecision :: !Word8
- jpgHeight :: !Word16
- jpgWidth :: !Word16
- jpgImageComponentCount :: !Word8
- jpgComponents :: ![JpgComponent]
}
data JpgFrame
- = JpgAppFrame !Word8 ByteString
- | JpgAdobeAPP14 !JpgAdobeApp14
- | JpgJFIF !JpgJFIFApp0
- | JpgExif ![ImageFileDirectory]
- | JpgExtension !Word8 ByteString
- | JpgQuantTable ![JpgQuantTableSpec]
- | JpgHuffmanTable ![(JpgHuffmanTableSpec, HuffmanPackedTree)]
- | JpgScanBlob !JpgScanHeader !ByteString
- | JpgScans !JpgFrameKind !JpgFrameHeader
- | JpgIntervalRestart !Word16
data JpgFrameKind
- = JpgBaselineDCTHuffman
- | JpgExtendedSequentialDCTHuffman
- | JpgProgressiveDCTHuffman
- | JpgLosslessHuffman
- | JpgDifferentialSequentialDCTHuffman
- | JpgDifferentialProgressiveDCTHuffman
- | JpgDifferentialLosslessHuffman
- | JpgExtendedSequentialArithmetic
- | JpgProgressiveDCTArithmetic
- | JpgLosslessArithmetic
- | JpgDifferentialSequentialDCTArithmetic
- | JpgDifferentialProgressiveDCTArithmetic
- | JpgDifferentialLosslessArithmetic
- | JpgQuantizationTable
- | JpgHuffmanTableMarker
- | JpgStartOfScan
- | JpgEndOfImage
- | JpgAppSegment Word8
- | JpgExtensionSegment Word8
- | JpgRestartInterval
- | JpgRestartIntervalEnd Word8
data JpgScanHeader = JpgScanHeader {
- scanLength :: !Word16
- scanComponentCount :: !Word8
- scans :: [JpgScanSpecification]
- spectralSelection :: (Word8, Word8)
- successiveApproxHigh :: !Word8
- successiveApproxLow :: !Word8
}
data JpgQuantTableSpec = JpgQuantTableSpec {
- quantPrecision :: !Word8
- quantDestination :: !Word8
- quantTable :: MacroBlock Int16
}
data JpgHuffmanTableSpec = JpgHuffmanTableSpec {
- huffmanTableClass :: !DctComponent
- huffmanTableDest :: !Word8
- huffSizes :: !(Vector Word8)
- huffCodes :: !(Vector (Vector Word8))
}
data JpgImageKind
- = BaseLineDCT
- | ProgressiveDCT
data JpgScanSpecification = JpgScanSpecification {
- componentSelector :: !Word8
- dcEntropyCodingTable :: !Word8
- acEntropyCodingTable :: !Word8
}
data JpgColorSpace
- = JpgColorSpaceYCbCr
- | JpgColorSpaceYCC
- | JpgColorSpaceY
- | JpgColorSpaceYA
- | JpgColorSpaceYCCA
- | JpgColorSpaceYCCK
- | JpgColorSpaceCMYK
- | JpgColorSpaceRGB
- | JpgColorSpaceRGBA
data AdobeTransform
- = AdobeUnknown
- | AdobeYCbCr
- | AdobeYCck
data JpgAdobeApp14 = JpgAdobeApp14 {
- _adobeDctVersion :: !Word16
- _adobeFlag0 :: !Word16
- _adobeFlag1 :: !Word16
- _adobeTransform :: !AdobeTransform
}
data JpgJFIFApp0 = JpgJFIFApp0 {
- _jfifUnit :: !JFifUnit
- _jfifDpiX :: !Word16
- _jfifDpiY :: !Word16
- _jfifThumbnail :: !(Maybe Int)
}
data JFifUnit
- = JFifUnitUnknown
- | JFifPixelsPerInch
- | JFifPixelsPerCentimeter
calculateSize :: SizeCalculable a => a -> Int
dctBlockSize :: Num a => a

Documentation

type MutableMacroBlock s a = STVector s a Source #

Macroblock that can be transformed.

createEmptyMutableMacroBlock :: (Storable a, Num a) => ST s (MutableMacroBlock s a) Source #

Create a new macroblock with the good array size

printMacroBlock :: (Storable a, PrintfArg a) => MutableMacroBlock s a -> ST s String Source #

printPureMacroBlock :: (Storable a, PrintfArg a) => MacroBlock a -> String Source #

type DcCoefficient = Int16 Source #

Type only used to make clear what kind of integer we are carrying Might be transformed into newtype in the future

data JpgImage Source #

Constructors

JpgImage
Fields jpgFrame :: [JpgFrame]

Instances

Instances details

Show JpgImage Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods showsPrec :: Int -> JpgImage -> ShowS # show :: JpgImage -> String # showList :: [JpgImage] -> ShowS #
Binary JpgImage Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods put :: JpgImage -> Put # get :: Get JpgImage # putList :: [JpgImage] -> Put #

data JpgComponent Source #

Constructors

JpgComponent
Fields componentIdentifier :: !Word8 horizontalSamplingFactor :: !Word8 Stored with 4 bits verticalSamplingFactor :: !Word8 Stored with 4 bits quantizationTableDest :: !Word8

Instances

Instances details

Show JpgComponent Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods showsPrec :: Int -> JpgComponent -> ShowS # show :: JpgComponent -> String # showList :: [JpgComponent] -> ShowS #
Binary JpgComponent Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods put :: JpgComponent -> Put # get :: Get JpgComponent # putList :: [JpgComponent] -> Put #

data JpgFrameHeader Source #

Constructors

JpgFrameHeader
Fields jpgFrameHeaderLength :: !Word16 jpgSamplePrecision :: !Word8 jpgHeight :: !Word16 jpgWidth :: !Word16 jpgImageComponentCount :: !Word8 jpgComponents :: ![JpgComponent]

Instances

Instances details

Show JpgFrameHeader Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods showsPrec :: Int -> JpgFrameHeader -> ShowS # show :: JpgFrameHeader -> String # showList :: [JpgFrameHeader] -> ShowS #
Binary JpgFrameHeader Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods put :: JpgFrameHeader -> Put # get :: Get JpgFrameHeader # putList :: [JpgFrameHeader] -> Put #

data JpgFrame Source #

Instances

Instances details

Show JpgFrame Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods showsPrec :: Int -> JpgFrame -> ShowS # show :: JpgFrame -> String # showList :: [JpgFrame] -> ShowS #

data JpgFrameKind Source #

Instances

Instances details

Eq JpgFrameKind Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods (==) :: JpgFrameKind -> JpgFrameKind -> Bool # (/=) :: JpgFrameKind -> JpgFrameKind -> Bool #
Show JpgFrameKind Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods showsPrec :: Int -> JpgFrameKind -> ShowS # show :: JpgFrameKind -> String # showList :: [JpgFrameKind] -> ShowS #
Binary JpgFrameKind Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods put :: JpgFrameKind -> Put # get :: Get JpgFrameKind # putList :: [JpgFrameKind] -> Put #

data JpgScanHeader Source #

Constructors

JpgScanHeader
Fields scanLength :: !Word16 scanComponentCount :: !Word8 scans :: [JpgScanSpecification] spectralSelection :: (Word8, Word8) (begin, end) successiveApproxHigh :: !Word8 Encoded as 4 bits successiveApproxLow :: !Word8 Encoded as 4 bits

Instances

Instances details

Show JpgScanHeader Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods showsPrec :: Int -> JpgScanHeader -> ShowS # show :: JpgScanHeader -> String # showList :: [JpgScanHeader] -> ShowS #
Binary JpgScanHeader Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods put :: JpgScanHeader -> Put # get :: Get JpgScanHeader # putList :: [JpgScanHeader] -> Put #

data JpgQuantTableSpec Source #

Constructors

JpgQuantTableSpec
Fields quantPrecision :: !Word8 Stored on 4 bits quantDestination :: !Word8 Stored on 4 bits quantTable :: MacroBlock Int16

Instances

Instances details

Show JpgQuantTableSpec Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods showsPrec :: Int -> JpgQuantTableSpec -> ShowS # show :: JpgQuantTableSpec -> String # showList :: [JpgQuantTableSpec] -> ShowS #
Binary JpgQuantTableSpec Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods put :: JpgQuantTableSpec -> Put # get :: Get JpgQuantTableSpec # putList :: [JpgQuantTableSpec] -> Put #

data JpgHuffmanTableSpec Source #

Constructors

JpgHuffmanTableSpec
Fields huffmanTableClass :: !DctComponent 0 : DC, 1 : AC, stored on 4 bits huffmanTableDest :: !Word8 Stored on 4 bits huffSizes :: !(Vector Word8) huffCodes :: !(Vector (Vector Word8))

Instances

Instances details

Show JpgHuffmanTableSpec Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods showsPrec :: Int -> JpgHuffmanTableSpec -> ShowS # show :: JpgHuffmanTableSpec -> String # showList :: [JpgHuffmanTableSpec] -> ShowS #
Binary JpgHuffmanTableSpec Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods put :: JpgHuffmanTableSpec -> Put # get :: Get JpgHuffmanTableSpec # putList :: [JpgHuffmanTableSpec] -> Put #

data JpgImageKind Source #

Constructors

BaseLineDCT
ProgressiveDCT

data JpgScanSpecification Source #

Constructors

JpgScanSpecification
Fields componentSelector :: !Word8 dcEntropyCodingTable :: !Word8 Encoded as 4 bits acEntropyCodingTable :: !Word8 Encoded as 4 bits

Instances

Instances details

Show JpgScanSpecification Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods showsPrec :: Int -> JpgScanSpecification -> ShowS # show :: JpgScanSpecification -> String # showList :: [JpgScanSpecification] -> ShowS #
Binary JpgScanSpecification Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods put :: JpgScanSpecification -> Put # get :: Get JpgScanSpecification # putList :: [JpgScanSpecification] -> Put #

data JpgColorSpace Source #

Constructors

JpgColorSpaceYCbCr
JpgColorSpaceYCC
JpgColorSpaceY
JpgColorSpaceYA
JpgColorSpaceYCCA
JpgColorSpaceYCCK
JpgColorSpaceCMYK
JpgColorSpaceRGB
JpgColorSpaceRGBA

Instances

Instances details

Show JpgColorSpace Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods showsPrec :: Int -> JpgColorSpace -> ShowS # show :: JpgColorSpace -> String # showList :: [JpgColorSpace] -> ShowS #

data AdobeTransform Source #

Constructors

AdobeUnknown	Value 0
AdobeYCbCr	value 1
AdobeYCck	value 2

Instances

Instances details

Show AdobeTransform Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods showsPrec :: Int -> AdobeTransform -> ShowS # show :: AdobeTransform -> String # showList :: [AdobeTransform] -> ShowS #
Binary AdobeTransform Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods put :: AdobeTransform -> Put # get :: Get AdobeTransform # putList :: [AdobeTransform] -> Put #

data JpgAdobeApp14 Source #

Constructors

JpgAdobeApp14
Fields _adobeDctVersion :: !Word16 _adobeFlag0 :: !Word16 _adobeFlag1 :: !Word16 _adobeTransform :: !AdobeTransform

Instances

Instances details

Show JpgAdobeApp14 Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods showsPrec :: Int -> JpgAdobeApp14 -> ShowS # show :: JpgAdobeApp14 -> String # showList :: [JpgAdobeApp14] -> ShowS #
Binary JpgAdobeApp14 Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods put :: JpgAdobeApp14 -> Put # get :: Get JpgAdobeApp14 # putList :: [JpgAdobeApp14] -> Put #

data JpgJFIFApp0 Source #

Constructors

JpgJFIFApp0
Fields _jfifUnit :: !JFifUnit _jfifDpiX :: !Word16 _jfifDpiY :: !Word16 _jfifThumbnail :: !(Maybe Int)

Instances

Instances details

Show JpgJFIFApp0 Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods showsPrec :: Int -> JpgJFIFApp0 -> ShowS # show :: JpgJFIFApp0 -> String # showList :: [JpgJFIFApp0] -> ShowS #
Binary JpgJFIFApp0 Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods put :: JpgJFIFApp0 -> Put # get :: Get JpgJFIFApp0 # putList :: [JpgJFIFApp0] -> Put #

data JFifUnit Source #

Size: 1

Constructors

JFifUnitUnknown	0
JFifPixelsPerInch	1
JFifPixelsPerCentimeter	2

Instances

Instances details

Show JFifUnit Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods showsPrec :: Int -> JFifUnit -> ShowS # show :: JFifUnit -> String # showList :: [JFifUnit] -> ShowS #
Binary JFifUnit Source #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods put :: JFifUnit -> Put # get :: Get JFifUnit # putList :: [JFifUnit] -> Put #

calculateSize :: SizeCalculable a => a -> Int Source #

dctBlockSize :: Num a => a Source #

JpgAppFrame !Word8 ByteString
JpgAdobeAPP14 !JpgAdobeApp14
JpgJFIF !JpgJFIFApp0
JpgExif ![ImageFileDirectory]
JpgExtension !Word8 ByteString
JpgQuantTable ![JpgQuantTableSpec]
JpgHuffmanTable ![(JpgHuffmanTableSpec, HuffmanPackedTree)]
JpgScanBlob !JpgScanHeader !ByteString
JpgScans !JpgFrameKind !JpgFrameHeader
JpgIntervalRestart !Word16

JpgBaselineDCTHuffman
JpgExtendedSequentialDCTHuffman
JpgProgressiveDCTHuffman
JpgLosslessHuffman
JpgDifferentialSequentialDCTHuffman
JpgDifferentialProgressiveDCTHuffman
JpgDifferentialLosslessHuffman
JpgExtendedSequentialArithmetic
JpgProgressiveDCTArithmetic
JpgLosslessArithmetic
JpgDifferentialSequentialDCTArithmetic
JpgDifferentialProgressiveDCTArithmetic
JpgDifferentialLosslessArithmetic
JpgQuantizationTable
JpgHuffmanTableMarker
JpgStartOfScan
JpgEndOfImage
JpgAppSegment Word8
JpgExtensionSegment Word8
JpgRestartInterval
JpgRestartIntervalEnd Word8