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