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