{-# LANGUAGE DerivingVia #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE OverloadedStrings #-}
module THREE.SphereGeometry
(
SphereGeometry (..)
, THREE.SphereGeometry.new
) where
import Miso hiding (new)
import THREE.BufferGeometry (BufferGeometryClass)
import THREE.Internal as THREE
newtype SphereGeometry
= SphereGeometry
{ SphereGeometry -> JSVal
unSphereGeometry :: JSVal
} deriving (SphereGeometry -> IO [JSVal]
(SphereGeometry -> IO [JSVal]) -> ToArgs SphereGeometry
forall args. (args -> IO [JSVal]) -> ToArgs args
$ctoArgs :: SphereGeometry -> IO [JSVal]
toArgs :: SphereGeometry -> IO [JSVal]
ToArgs, SphereGeometry -> IO Object
(SphereGeometry -> IO Object) -> ToObject SphereGeometry
forall a. (a -> IO Object) -> ToObject a
$ctoObject :: SphereGeometry -> IO Object
toObject :: SphereGeometry -> IO Object
ToObject, SphereGeometry -> IO JSVal
(SphereGeometry -> IO JSVal) -> ToJSVal SphereGeometry
forall a. (a -> IO JSVal) -> ToJSVal a
$ctoJSVal :: SphereGeometry -> IO JSVal
toJSVal :: SphereGeometry -> IO JSVal
ToJSVal)
deriving newtype ToObject SphereGeometry
ToJSVal SphereGeometry
Property SphereGeometry Bool
(ToObject SphereGeometry, ToJSVal SphereGeometry) =>
Property SphereGeometry Bool -> BufferGeometryClass SphereGeometry
forall geometry.
(ToObject geometry, ToJSVal geometry) =>
Property geometry Bool -> BufferGeometryClass geometry
$cisBufferGeometry :: Property SphereGeometry Bool
isBufferGeometry :: Property SphereGeometry Bool
BufferGeometryClass
new :: THREE.Three SphereGeometry
new :: Three SphereGeometry
new = (JSVal -> SphereGeometry)
-> MisoString -> () -> Three SphereGeometry
forall args con.
ToArgs args =>
(JSVal -> con) -> MisoString -> args -> Three con
THREE.new JSVal -> SphereGeometry
SphereGeometry MisoString
"SphereGeometry" ()