{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AudioParam (js_setValueAtTime, setValueAtTime, js_linearRampToValueAtTime, linearRampToValueAtTime, js_exponentialRampToValueAtTime, exponentialRampToValueAtTime, js_setTargetAtTime, setTargetAtTime, js_setValueCurveAtTime, setValueCurveAtTime, js_cancelScheduledValues, cancelScheduledValues, js_setValue, setValue, js_getValue, getValue, js_getMinValue, getMinValue, js_getMaxValue, getMaxValue, js_getDefaultValue, getDefaultValue, js_getName, getName, js_getUnits, getUnits, AudioParam(..), gTypeAudioParam) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust) import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript unsafe "$1[\"setValueAtTime\"]($2, $3)" js_setValueAtTime :: AudioParam -> Float -> Float -> IO () -- | setValueAtTime :: (MonadIO m) => AudioParam -> Float -> Float -> m () setValueAtTime self value time = liftIO (js_setValueAtTime self value time) foreign import javascript unsafe "$1[\"linearRampToValueAtTime\"]($2,\n$3)" js_linearRampToValueAtTime :: AudioParam -> Float -> Float -> IO () -- | linearRampToValueAtTime :: (MonadIO m) => AudioParam -> Float -> Float -> m () linearRampToValueAtTime self value time = liftIO (js_linearRampToValueAtTime self value time) foreign import javascript unsafe "$1[\"exponentialRampToValueAtTime\"]($2,\n$3)" js_exponentialRampToValueAtTime :: AudioParam -> Float -> Float -> IO () -- | exponentialRampToValueAtTime :: (MonadIO m) => AudioParam -> Float -> Float -> m () exponentialRampToValueAtTime self value time = liftIO (js_exponentialRampToValueAtTime self value time) foreign import javascript unsafe "$1[\"setTargetAtTime\"]($2, $3,\n$4)" js_setTargetAtTime :: AudioParam -> Float -> Float -> Float -> IO () -- | setTargetAtTime :: (MonadIO m) => AudioParam -> Float -> Float -> Float -> m () setTargetAtTime self target time timeConstant = liftIO (js_setTargetAtTime self target time timeConstant) foreign import javascript unsafe "$1[\"setValueCurveAtTime\"]($2,\n$3, $4)" js_setValueCurveAtTime :: AudioParam -> Optional Float32Array -> Float -> Float -> IO () -- | setValueCurveAtTime :: (MonadIO m, IsFloat32Array values) => AudioParam -> Maybe values -> Float -> Float -> m () setValueCurveAtTime self values time duration = liftIO (js_setValueCurveAtTime self (maybeToOptional (fmap toFloat32Array values)) time duration) foreign import javascript unsafe "$1[\"cancelScheduledValues\"]($2)" js_cancelScheduledValues :: AudioParam -> Float -> IO () -- | cancelScheduledValues :: (MonadIO m) => AudioParam -> Float -> m () cancelScheduledValues self startTime = liftIO (js_cancelScheduledValues self startTime) foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue :: AudioParam -> Float -> IO () -- | setValue :: (MonadIO m) => AudioParam -> Float -> m () setValue self val = liftIO (js_setValue self val) foreign import javascript unsafe "$1[\"value\"]" js_getValue :: AudioParam -> IO Float -- | getValue :: (MonadIO m) => AudioParam -> m Float getValue self = liftIO (js_getValue self) foreign import javascript unsafe "$1[\"minValue\"]" js_getMinValue :: AudioParam -> IO Float -- | getMinValue :: (MonadIO m) => AudioParam -> m Float getMinValue self = liftIO (js_getMinValue self) foreign import javascript unsafe "$1[\"maxValue\"]" js_getMaxValue :: AudioParam -> IO Float -- | getMaxValue :: (MonadIO m) => AudioParam -> m Float getMaxValue self = liftIO (js_getMaxValue self) foreign import javascript unsafe "$1[\"defaultValue\"]" js_getDefaultValue :: AudioParam -> IO Float -- | getDefaultValue :: (MonadIO m) => AudioParam -> m Float getDefaultValue self = liftIO (js_getDefaultValue self) foreign import javascript unsafe "$1[\"name\"]" js_getName :: AudioParam -> IO JSString -- | getName :: (MonadIO m, FromJSString result) => AudioParam -> m result getName self = liftIO (fromJSString <$> (js_getName self)) foreign import javascript unsafe "$1[\"units\"]" js_getUnits :: AudioParam -> IO Word -- | getUnits :: (MonadIO m) => AudioParam -> m Word getUnits self = liftIO (js_getUnits self)