module Data.ByteString.IsoBaseFileFormat.Boxes.MovieHeader where
import Data.ByteString.IsoBaseFileFormat.Box
import Data.ByteString.IsoBaseFileFormat.Util.BoxFields
import Data.ByteString.IsoBaseFileFormat.Util.FullBox
import Data.ByteString.IsoBaseFileFormat.Util.Time
import Data.ByteString.IsoBaseFileFormat.ReExports
movieHeader
:: (KnownNat version)
=> MovieHeader version -> Box (FullBox (MovieHeader version) version)
movieHeader = fullBox 0
newtype MovieHeader (version :: Nat) where
MovieHeader ::
Timing version
:+ Template (I32 "rate") 0x00010000
:+ Template (I16 "volume") 0x0100
:+ Constant (I16 "reserved") 0
:+ Constant (I32Arr "reserved" 2) '[0,0]
:+ Template (I32Arr "matrix" 9)
'[65536, 0, 0, 0, 65536, 0, 0, 0, 1073741824]
:+ Template (U32Arr "pre_defined" 6) '[0,0,0,0,0,0]
:+ Template (U32 "next_track_ID") 0xFFFFFFFF
-> MovieHeader version
deriving (IsBoxContent)
type MovieHeaderTimesV0 = MovieHeaderTimes
(Scalar Word32)
(Template (U32 "duration") 0xffffffff)
type MovieHeaderTimesV1 = MovieHeaderTimes
(Scalar Word64)
(Template (U64 "duration") 0xffffffffffffffff)
type MovieHeaderTimes uint dur =
uint "creation_time"
:+ uint "modification_time"
:+ TimeScale
:+ dur
instance IsBox (MovieHeader version)
type instance BoxTypeSymbol (MovieHeader v) = "mvhd"