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