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