module Data.ByteString.IsoBaseFileFormat.Boxes.TrackFragmentHeader where
import Data.ByteString.IsoBaseFileFormat.Box
import Data.ByteString.IsoBaseFileFormat.Util.BoxFields
import Data.ByteString.IsoBaseFileFormat.Util.FullBox
import Data.Default
trackFragmentHeader
:: TrackFragmentHeader -> Box (FullBox TrackFragmentHeader 0)
trackFragmentHeader =
fullBox 0x020000
newtype TrackFragmentHeader where
TrackFragmentHeader ::
Template (U32 "track_ID") 0x001
-> TrackFragmentHeader
deriving (IsBoxContent, Default)
instance IsBox TrackFragmentHeader
type instance BoxTypeSymbol TrackFragmentHeader = "tfhd"
trackFragmentHeaderStaticSize :: Num a => a
trackFragmentHeaderStaticSize = fromBoxSize 0 (boxSize (trackFragmentHeader def))