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