{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.BiquadFilterNode (js_getFrequencyResponse, getFrequencyResponse, pattern LOWPASS, pattern HIGHPASS, pattern BANDPASS, pattern LOWSHELF, pattern HIGHSHELF, pattern PEAKING, pattern NOTCH, pattern ALLPASS, js_setType, setType, js_getType, getType, js_getFrequency, getFrequency, js_getDetune, getDetune, js_getQ, getQ, js_getGain, getGain, BiquadFilterNode, castToBiquadFilterNode, gTypeBiquadFilterNode) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"getFrequencyResponse\"]($2,\n$3, $4)" js_getFrequencyResponse :: BiquadFilterNode -> Nullable Float32Array -> Nullable Float32Array -> Nullable Float32Array -> IO () -- | getFrequencyResponse :: (MonadIO m, IsFloat32Array frequencyHz, IsFloat32Array magResponse, IsFloat32Array phaseResponse) => BiquadFilterNode -> Maybe frequencyHz -> Maybe magResponse -> Maybe phaseResponse -> m () getFrequencyResponse self frequencyHz magResponse phaseResponse = liftIO (js_getFrequencyResponse (self) (maybeToNullable (fmap toFloat32Array frequencyHz)) (maybeToNullable (fmap toFloat32Array magResponse)) (maybeToNullable (fmap toFloat32Array 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 foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: BiquadFilterNode -> JSString -> IO () -- | setType :: (MonadIO m, ToJSString val) => BiquadFilterNode -> val -> m () setType self val = liftIO (js_setType (self) (toJSString val)) foreign import javascript unsafe "$1[\"type\"]" js_getType :: BiquadFilterNode -> IO JSString -- | getType :: (MonadIO m, FromJSString result) => BiquadFilterNode -> m result getType self = liftIO (fromJSString <$> (js_getType (self))) foreign import javascript unsafe "$1[\"frequency\"]" js_getFrequency :: BiquadFilterNode -> IO (Nullable AudioParam) -- | getFrequency :: (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam) getFrequency self = liftIO (nullableToMaybe <$> (js_getFrequency (self))) foreign import javascript unsafe "$1[\"detune\"]" js_getDetune :: BiquadFilterNode -> IO (Nullable AudioParam) -- | getDetune :: (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam) getDetune self = liftIO (nullableToMaybe <$> (js_getDetune (self))) foreign import javascript unsafe "$1[\"Q\"]" js_getQ :: BiquadFilterNode -> IO (Nullable AudioParam) -- | getQ :: (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam) getQ self = liftIO (nullableToMaybe <$> (js_getQ (self))) foreign import javascript unsafe "$1[\"gain\"]" js_getGain :: BiquadFilterNode -> IO (Nullable AudioParam) -- | getGain :: (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam) getGain self = liftIO (nullableToMaybe <$> (js_getGain (self)))