{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module THREE.AnimationObjectGroup
(
AnimationObjectGroup (..)
, THREE.AnimationObjectGroup.new
) where
import Miso
import qualified THREE.Internal as THREE
newtype AnimationObjectGroup
= AnimationObjectGroup
{ AnimationObjectGroup -> JSVal
unAnimationObjectGroupCamera :: JSVal
} deriving (AnimationObjectGroup -> IO Object
(AnimationObjectGroup -> IO Object)
-> ToObject AnimationObjectGroup
forall a. (a -> IO Object) -> ToObject a
$ctoObject :: AnimationObjectGroup -> IO Object
toObject :: AnimationObjectGroup -> IO Object
ToObject)
new :: THREE.Three AnimationObjectGroup
new :: Three AnimationObjectGroup
new = (JSVal -> AnimationObjectGroup)
-> MisoString -> [MisoString] -> Three AnimationObjectGroup
forall args con.
ToArgs args =>
(JSVal -> con) -> MisoString -> args -> Three con
THREE.new JSVal -> AnimationObjectGroup
AnimationObjectGroup MisoString
"AnimationObjectGroup" ([] :: [MisoString])