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