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