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