module Rattletrap.Encode.ClubColorsAttribute
  ( putClubColorsAttribute
  )
where

import Rattletrap.Encode.Word8le
import Rattletrap.Type.ClubColorsAttribute

import qualified Data.Binary.Bits.Put as BinaryBits

putClubColorsAttribute :: ClubColorsAttribute -> BinaryBits.BitPut ()
putClubColorsAttribute :: ClubColorsAttribute -> BitPut ()
putClubColorsAttribute ClubColorsAttribute
clubColorsAttribute = do
  Bool -> BitPut ()
BinaryBits.putBool (ClubColorsAttribute -> Bool
clubColorsAttributeBlueFlag ClubColorsAttribute
clubColorsAttribute)
  Word8le -> BitPut ()
putWord8Bits (ClubColorsAttribute -> Word8le
clubColorsAttributeBlueColor ClubColorsAttribute
clubColorsAttribute)
  Bool -> BitPut ()
BinaryBits.putBool (ClubColorsAttribute -> Bool
clubColorsAttributeOrangeFlag ClubColorsAttribute
clubColorsAttribute)
  Word8le -> BitPut ()
putWord8Bits (ClubColorsAttribute -> Word8le
clubColorsAttributeOrangeColor ClubColorsAttribute
clubColorsAttribute)