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