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