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