{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.PannerNode
(setPosition, setOrientation, setVelocity, setPanningModel,
getPanningModel, setDistanceModel, getDistanceModel,
setRefDistance, getRefDistance, setMaxDistance, getMaxDistance,
setRolloffFactor, getRolloffFactor, setConeInnerAngle,
getConeInnerAngle, setConeOuterAngle, getConeOuterAngle,
setConeOuterGain, getConeOuterGain, PannerNode(..),
gTypePannerNode)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Enums
setPosition ::
(MonadDOM m) => PannerNode -> Float -> Float -> Float -> m ()
setPosition :: PannerNode -> Float -> Float -> Float -> m ()
setPosition PannerNode
self Float
x Float
y Float
z
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(PannerNode
self PannerNode
-> Getting (JSM JSVal) PannerNode (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"setPosition" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
x, Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
y, Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
z]))
setOrientation ::
(MonadDOM m) => PannerNode -> Float -> Float -> Float -> m ()
setOrientation :: PannerNode -> Float -> Float -> Float -> m ()
setOrientation PannerNode
self Float
x Float
y Float
z
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(PannerNode
self PannerNode
-> Getting (JSM JSVal) PannerNode (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"setOrientation" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
x, Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
y, Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
z]))
setVelocity ::
(MonadDOM m) => PannerNode -> Float -> Float -> Float -> m ()
setVelocity :: PannerNode -> Float -> Float -> Float -> m ()
setVelocity PannerNode
self Float
x Float
y Float
z
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(PannerNode
self PannerNode
-> Getting (JSM JSVal) PannerNode (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"setVelocity" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
x, Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
y, Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
z]))
setPanningModel ::
(MonadDOM m) => PannerNode -> PanningModelType -> m ()
setPanningModel :: PannerNode -> PanningModelType -> m ()
setPanningModel PannerNode
self PanningModelType
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (PannerNode
self PannerNode -> Getting (DOM ()) PannerNode (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"panningModel" (PanningModelType -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal PanningModelType
val))
getPanningModel :: (MonadDOM m) => PannerNode -> m PanningModelType
getPanningModel :: PannerNode -> m PanningModelType
getPanningModel PannerNode
self
= DOM PanningModelType -> m PanningModelType
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PannerNode
self PannerNode
-> Getting (JSM JSVal) PannerNode (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter PannerNode (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"panningModel") JSM JSVal
-> (JSVal -> DOM PanningModelType) -> DOM PanningModelType
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM PanningModelType
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setDistanceModel ::
(MonadDOM m) => PannerNode -> DistanceModelType -> m ()
setDistanceModel :: PannerNode -> DistanceModelType -> m ()
setDistanceModel PannerNode
self DistanceModelType
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (PannerNode
self PannerNode -> Getting (DOM ()) PannerNode (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"distanceModel" (DistanceModelType -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal DistanceModelType
val))
getDistanceModel ::
(MonadDOM m) => PannerNode -> m DistanceModelType
getDistanceModel :: PannerNode -> m DistanceModelType
getDistanceModel PannerNode
self
= DOM DistanceModelType -> m DistanceModelType
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PannerNode
self PannerNode
-> Getting (JSM JSVal) PannerNode (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter PannerNode (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"distanceModel") JSM JSVal
-> (JSVal -> DOM DistanceModelType) -> DOM DistanceModelType
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM DistanceModelType
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setRefDistance :: (MonadDOM m) => PannerNode -> Double -> m ()
setRefDistance :: PannerNode -> Double -> m ()
setRefDistance PannerNode
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (PannerNode
self PannerNode -> Getting (DOM ()) PannerNode (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"refDistance" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getRefDistance :: (MonadDOM m) => PannerNode -> m Double
getRefDistance :: PannerNode -> m Double
getRefDistance PannerNode
self
= DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PannerNode
self PannerNode
-> Getting (JSM JSVal) PannerNode (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter PannerNode (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"refDistance") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)
setMaxDistance :: (MonadDOM m) => PannerNode -> Double -> m ()
setMaxDistance :: PannerNode -> Double -> m ()
setMaxDistance PannerNode
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (PannerNode
self PannerNode -> Getting (DOM ()) PannerNode (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"maxDistance" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getMaxDistance :: (MonadDOM m) => PannerNode -> m Double
getMaxDistance :: PannerNode -> m Double
getMaxDistance PannerNode
self
= DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PannerNode
self PannerNode
-> Getting (JSM JSVal) PannerNode (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter PannerNode (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"maxDistance") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)
setRolloffFactor :: (MonadDOM m) => PannerNode -> Double -> m ()
setRolloffFactor :: PannerNode -> Double -> m ()
setRolloffFactor PannerNode
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (PannerNode
self PannerNode -> Getting (DOM ()) PannerNode (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"rolloffFactor" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getRolloffFactor :: (MonadDOM m) => PannerNode -> m Double
getRolloffFactor :: PannerNode -> m Double
getRolloffFactor PannerNode
self
= DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PannerNode
self PannerNode
-> Getting (JSM JSVal) PannerNode (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter PannerNode (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"rolloffFactor") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)
setConeInnerAngle :: (MonadDOM m) => PannerNode -> Double -> m ()
setConeInnerAngle :: PannerNode -> Double -> m ()
setConeInnerAngle PannerNode
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (PannerNode
self PannerNode -> Getting (DOM ()) PannerNode (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"coneInnerAngle" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getConeInnerAngle :: (MonadDOM m) => PannerNode -> m Double
getConeInnerAngle :: PannerNode -> m Double
getConeInnerAngle PannerNode
self
= DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PannerNode
self PannerNode
-> Getting (JSM JSVal) PannerNode (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter PannerNode (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"coneInnerAngle") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)
setConeOuterAngle :: (MonadDOM m) => PannerNode -> Double -> m ()
setConeOuterAngle :: PannerNode -> Double -> m ()
setConeOuterAngle PannerNode
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (PannerNode
self PannerNode -> Getting (DOM ()) PannerNode (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"coneOuterAngle" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getConeOuterAngle :: (MonadDOM m) => PannerNode -> m Double
getConeOuterAngle :: PannerNode -> m Double
getConeOuterAngle PannerNode
self
= DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PannerNode
self PannerNode
-> Getting (JSM JSVal) PannerNode (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter PannerNode (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"coneOuterAngle") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)
setConeOuterGain :: (MonadDOM m) => PannerNode -> Double -> m ()
setConeOuterGain :: PannerNode -> Double -> m ()
setConeOuterGain PannerNode
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (PannerNode
self PannerNode -> Getting (DOM ()) PannerNode (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"coneOuterGain" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getConeOuterGain :: (MonadDOM m) => PannerNode -> m Double
getConeOuterGain :: PannerNode -> m Double
getConeOuterGain PannerNode
self
= DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PannerNode
self PannerNode
-> Getting (JSM JSVal) PannerNode (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter PannerNode (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"coneOuterGain") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)