animation :: Animation
animation = newAnimation & animationChannels .~ V.singleton animNode
  where
    animNode :: NodeAnim
    animNode = newNodeAnim
        & nodeAnimPositionKeys .~ V.singleton vecKey
        & nodeAnimRotationKeys .~ V.singleton quatKey
    vecKey = VectorKey 0.1 (V3 (-1) (-2) 3)
    quatKey = QuatKey 0.2 (Quaternion 1 (V3 (-1) (-2) 3))
animation :: Animation
animation = newAnimation & animationChannels .~ V.singleton animNode
  where
    animNode :: NodeAnim
    animNode = newNodeAnim
        & nodeAnimPositionKeys .~ V.singleton vecKey
        & nodeAnimRotationKeys .~ V.singleton quatKey
    vecKey = VectorKey 0.1 (V3 (-1) (-2) 3)
    quatKey = QuatKey 0.2 (Quaternion 1 (V3 (-1) (-2) 3))
animation = newAnimation & animationChannels .~ V.singleton animNode
  where
    animNode :: NodeAnim
    animNode = newNodeAnim
        & nodeAnimPositionKeys .~ V.singleton vecKey
        & nodeAnimRotationKeys .~ V.singleton quatKey
    vecKey = VectorKey 0.1 (V3 (-1) (-2) 3)
    quatKey = QuatKey 0.2 (Quaternion 1 (V3 (-1) (-2) 3))