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