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