----------------------------------------------------------------------------- {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} ----------------------------------------------------------------------------- module THREE.LOD ( -- * Types LOD (..) -- * Methods , THREE.LOD.new -- * Properties ) where ----------------------------------------------------------------------------- import Miso ----------------------------------------------------------------------------- import qualified THREE.Internal as THREE ----------------------------------------------------------------------------- -- | https://threejs.org/docs/#api/en/scenes/LOD newtype LOD = LOD { LOD -> JSVal unLODCamera :: JSVal } deriving (LOD -> IO Object (LOD -> IO Object) -> ToObject LOD forall a. (a -> IO Object) -> ToObject a $ctoObject :: LOD -> IO Object toObject :: LOD -> IO Object ToObject) ----------------------------------------------------------------------------- -- | https://threejs.org/docs/#api/en/cameras/LOD new :: THREE.Three LOD new :: Three LOD new = (JSVal -> LOD) -> MisoString -> [MisoString] -> Three LOD forall args con. ToArgs args => (JSVal -> con) -> MisoString -> args -> Three con THREE.new JSVal -> LOD LOD MisoString "LOD" ([] :: [MisoString]) -----------------------------------------------------------------------------