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