module Rattletrap.Encode.TeamPaintAttribute
  ( putTeamPaintAttribute
  )
where

import Rattletrap.Encode.Word32le
import Rattletrap.Encode.Word8le
import Rattletrap.Type.TeamPaintAttribute

import qualified Data.Binary.Bits.Put as BinaryBits

putTeamPaintAttribute :: TeamPaintAttribute -> BinaryBits.BitPut ()
putTeamPaintAttribute :: TeamPaintAttribute -> BitPut ()
putTeamPaintAttribute TeamPaintAttribute
teamPaintAttribute = do
  Word8le -> BitPut ()
putWord8Bits (TeamPaintAttribute -> Word8le
teamPaintAttributeTeam TeamPaintAttribute
teamPaintAttribute)
  Word8le -> BitPut ()
putWord8Bits (TeamPaintAttribute -> Word8le
teamPaintAttributePrimaryColor TeamPaintAttribute
teamPaintAttribute)
  Word8le -> BitPut ()
putWord8Bits (TeamPaintAttribute -> Word8le
teamPaintAttributeAccentColor TeamPaintAttribute
teamPaintAttribute)
  Word32le -> BitPut ()
putWord32Bits (TeamPaintAttribute -> Word32le
teamPaintAttributePrimaryFinish TeamPaintAttribute
teamPaintAttribute)
  Word32le -> BitPut ()
putWord32Bits (TeamPaintAttribute -> Word32le
teamPaintAttributeAccentFinish TeamPaintAttribute
teamPaintAttribute)