MovieFragmentHeader.hs

-- | Meta data for a presentation of a /movie fragment/.
module Data.ByteString.IsoBaseFileFormat.Boxes.MovieFragmentHeader where

import Data.ByteString.IsoBaseFileFormat.Box
import Data.ByteString.IsoBaseFileFormat.Util.BoxFields
import Data.ByteString.IsoBaseFileFormat.Util.FullBox
import Data.Default

-- * @mvhd@ Box

-- | Construct a 'MovieFragmentHeader' box.
movieFragmentHeader
  :: MovieFragmentHeader-> Box (FullBox MovieFragmentHeader 0)
movieFragmentHeader = fullBox 0

-- | Movie fragment meta data
-- The sequence number, just an increasing number, of this fragment
newtype MovieFragmentHeader where
        MovieFragmentHeader ::  U32 "sequence_number" -> MovieFragmentHeader
    deriving (IsBoxContent, Default)

instance IsBox MovieFragmentHeader

type instance BoxTypeSymbol MovieFragmentHeader = "mfhd"

-- | Return the static size of the empty box
movieFragmentHeaderStaticSize :: Num a => a
movieFragmentHeaderStaticSize = fromBoxSize 0 (boxSize (movieFragmentHeader def))