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