module Rattletrap.Encode.CompressedWordVector
  ( putCompressedWordVector
  )
where

import Rattletrap.Encode.CompressedWord
import Rattletrap.Type.CompressedWordVector

import qualified Data.Binary.Bits.Put as BinaryBits

putCompressedWordVector :: CompressedWordVector -> BinaryBits.BitPut ()
putCompressedWordVector :: CompressedWordVector -> BitPut ()
putCompressedWordVector CompressedWordVector
compressedWordVector = do
  CompressedWord -> BitPut ()
putCompressedWord (CompressedWordVector -> CompressedWord
compressedWordVectorX CompressedWordVector
compressedWordVector)
  CompressedWord -> BitPut ()
putCompressedWord (CompressedWordVector -> CompressedWord
compressedWordVectorY CompressedWordVector
compressedWordVector)
  CompressedWord -> BitPut ()
putCompressedWord (CompressedWordVector -> CompressedWord
compressedWordVectorZ CompressedWordVector
compressedWordVector)