module Rattletrap.Encode.TitleAttribute
  ( putTitleAttribute
  )
where

import Rattletrap.Encode.Word32le
import Rattletrap.Type.TitleAttribute

import qualified Data.Binary.Bits.Put as BinaryBits

putTitleAttribute :: TitleAttribute -> BinaryBits.BitPut ()
putTitleAttribute :: TitleAttribute -> BitPut ()
putTitleAttribute TitleAttribute
titleAttribute = do
  Bool -> BitPut ()
BinaryBits.putBool (TitleAttribute -> Bool
titleAttributeUnknown1 TitleAttribute
titleAttribute)
  Bool -> BitPut ()
BinaryBits.putBool (TitleAttribute -> Bool
titleAttributeUnknown2 TitleAttribute
titleAttribute)
  Word32le -> BitPut ()
putWord32Bits (TitleAttribute -> Word32le
titleAttributeUnknown3 TitleAttribute
titleAttribute)
  Word32le -> BitPut ()
putWord32Bits (TitleAttribute -> Word32le
titleAttributeUnknown4 TitleAttribute
titleAttribute)
  Word32le -> BitPut ()
putWord32Bits (TitleAttribute -> Word32le
titleAttributeUnknown5 TitleAttribute
titleAttribute)
  Word32le -> BitPut ()
putWord32Bits (TitleAttribute -> Word32le
titleAttributeUnknown6 TitleAttribute
titleAttribute)
  Word32le -> BitPut ()
putWord32Bits (TitleAttribute -> Word32le
titleAttributeUnknown7 TitleAttribute
titleAttribute)
  Bool -> BitPut ()
BinaryBits.putBool (TitleAttribute -> Bool
titleAttributeUnknown8 TitleAttribute
titleAttribute)