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