{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.BiquadFilterNode (getFrequencyResponse, pattern LOWPASS, pattern HIGHPASS, pattern BANDPASS, pattern LOWSHELF, pattern HIGHSHELF, pattern PEAKING, pattern NOTCH, pattern ALLPASS, setType, getType, getFrequency, getDetune, getQ, getGain, BiquadFilterNode, castToBiquadFilterNode, gTypeBiquadFilterNode) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) import Data.Int (Int64) import Data.Word (Word, Word64) import Language.Javascript.JSaddle.DOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName) import Language.Javascript.JSaddle.DOM.Enums -- | getFrequencyResponse :: (MonadDOM m, IsFloat32Array frequencyHz, IsFloat32Array magResponse, IsFloat32Array phaseResponse) => BiquadFilterNode -> Maybe frequencyHz -> Maybe magResponse -> Maybe phaseResponse -> m () getFrequencyResponse self frequencyHz magResponse phaseResponse = liftDOM (void (self ^. jsf "getFrequencyResponse" [toJSVal frequencyHz, toJSVal magResponse, toJSVal phaseResponse])) pattern LOWPASS = 0 pattern HIGHPASS = 1 pattern BANDPASS = 2 pattern LOWSHELF = 3 pattern HIGHSHELF = 4 pattern PEAKING = 5 pattern NOTCH = 6 pattern ALLPASS = 7 -- | setType :: (MonadDOM m, ToJSString val) => BiquadFilterNode -> val -> m () setType self val = liftDOM (self ^. jss "type" (toJSVal val)) -- | getType :: (MonadDOM m, FromJSString result) => BiquadFilterNode -> m result getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked) -- | getFrequency :: (MonadDOM m) => BiquadFilterNode -> m (Maybe AudioParam) getFrequency self = liftDOM ((self ^. js "frequency") >>= fromJSVal) -- | getDetune :: (MonadDOM m) => BiquadFilterNode -> m (Maybe AudioParam) getDetune self = liftDOM ((self ^. js "detune") >>= fromJSVal) -- | getQ :: (MonadDOM m) => BiquadFilterNode -> m (Maybe AudioParam) getQ self = liftDOM ((self ^. js "Q") >>= fromJSVal) -- | getGain :: (MonadDOM m) => BiquadFilterNode -> m (Maybe AudioParam) getGain self = liftDOM ((self ^. js "gain") >>= fromJSVal)