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