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