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