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