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