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)