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