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