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