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