module Rattletrap.Encode.KeyFrame
  ( putKeyFrame
  )
where

import Rattletrap.Encode.Float32le
import Rattletrap.Encode.Word32le
import Rattletrap.Type.KeyFrame

import qualified Data.Binary as Binary

putKeyFrame :: KeyFrame -> Binary.Put
putKeyFrame :: KeyFrame -> Put
putKeyFrame KeyFrame
keyFrame = do
  Float32le -> Put
putFloat32 (KeyFrame -> Float32le
keyFrameTime KeyFrame
keyFrame)
  Word32le -> Put
putWord32 (KeyFrame -> Word32le
keyFrameFrame KeyFrame
keyFrame)
  Word32le -> Put
putWord32 (KeyFrame -> Word32le
keyFramePosition KeyFrame
keyFrame)