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 #

Macroblock that can be transformed.

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

Create a new macroblock with the good array size

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

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

type DcCoefficient = Int16 #

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

data JpgImage #

Constructors

JpgImage
Fields jpgFrame :: [JpgFrame]

Instances

Instances details

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

data JpgComponent #

Constructors

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

Instances

Instances details

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

data JpgFrameHeader #

Constructors

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

Instances

Instances details

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

data JpgFrame #

Constructors

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

Instances

Instances details

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

data JpgFrameKind #

Instances

Instances details

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

data JpgScanHeader #

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 #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods showsPrec :: Int -> JpgScanHeader -> ShowS show :: JpgScanHeader -> String showList :: [JpgScanHeader] -> ShowS
Binary JpgScanHeader #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods put :: JpgScanHeader -> Put get :: Get JpgScanHeader putList :: [JpgScanHeader] -> Put

data JpgQuantTableSpec #

Constructors

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

Instances

Instances details

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

data JpgHuffmanTableSpec #

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 #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods showsPrec :: Int -> JpgHuffmanTableSpec -> ShowS show :: JpgHuffmanTableSpec -> String showList :: [JpgHuffmanTableSpec] -> ShowS
Binary JpgHuffmanTableSpec #
Instance details Defined in Codec.Picture.Jpg.Internal.Types Methods put :: JpgHuffmanTableSpec -> Put get :: Get JpgHuffmanTableSpec putList :: [JpgHuffmanTableSpec] -> Put

data JpgImageKind #

Constructors

BaseLineDCT
ProgressiveDCT

data JpgScanSpecification #

Constructors

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

Instances

Instances details

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

data JpgColorSpace #

Constructors

JpgColorSpaceYCbCr
JpgColorSpaceYCC
JpgColorSpaceY
JpgColorSpaceYA
JpgColorSpaceYCCA
JpgColorSpaceYCCK
JpgColorSpaceCMYK
JpgColorSpaceRGB
JpgColorSpaceRGBA

Instances

Instances details

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

data AdobeTransform #

Constructors

AdobeUnknown	Value 0
AdobeYCbCr	value 1
AdobeYCck	value 2

Instances

Instances details

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

data JpgAdobeApp14 #

Constructors

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

Instances

Instances details

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

data JpgJFIFApp0 #

Constructors

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

Instances

Instances details

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

data JFifUnit #

Size: 1

Constructors

JFifUnitUnknown	0
JFifPixelsPerInch	1
JFifPixelsPerCentimeter	2

Instances

Instances details

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

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

dctBlockSize :: Num a => a #

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