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