module GHCJS.DOM.JSFFI.Generated.OscillatorNode
(js_start, start, js_stop, stop, js_noteOn, noteOn, js_noteOff,
noteOff, js_setPeriodicWave, setPeriodicWave, pattern SINE,
pattern SQUARE, pattern SAWTOOTH, pattern TRIANGLE, pattern CUSTOM,
pattern UNSCHEDULED_STATE, pattern SCHEDULED_STATE,
pattern PLAYING_STATE, pattern FINISHED_STATE, js_setType, setType,
js_getType, getType, js_getPlaybackState, getPlaybackState,
js_getFrequency, getFrequency, getFrequencyUnsafe,
getFrequencyUnchecked, js_getDetune, getDetune, getDetuneUnsafe,
getDetuneUnchecked, ended, OscillatorNode(..), gTypeOscillatorNode)
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)
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 GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
import GHCJS.DOM.JSFFI.Generated.Enums
foreign import javascript unsafe "$1[\"start\"]($2)" js_start ::
OscillatorNode -> Double -> IO ()
start :: (MonadIO m) => OscillatorNode -> Double -> m ()
start self when = liftIO (js_start (self) when)
foreign import javascript unsafe "$1[\"stop\"]($2)" js_stop ::
OscillatorNode -> Double -> IO ()
stop :: (MonadIO m) => OscillatorNode -> Double -> m ()
stop self when = liftIO (js_stop (self) when)
foreign import javascript unsafe "$1[\"noteOn\"]($2)" js_noteOn ::
OscillatorNode -> Double -> IO ()
noteOn :: (MonadIO m) => OscillatorNode -> Double -> m ()
noteOn self when = liftIO (js_noteOn (self) when)
foreign import javascript unsafe "$1[\"noteOff\"]($2)" js_noteOff
:: OscillatorNode -> Double -> IO ()
noteOff :: (MonadIO m) => OscillatorNode -> Double -> m ()
noteOff self when = liftIO (js_noteOff (self) when)
foreign import javascript unsafe "$1[\"setPeriodicWave\"]($2)"
js_setPeriodicWave ::
OscillatorNode -> Nullable PeriodicWave -> IO ()
setPeriodicWave ::
(MonadIO m) => OscillatorNode -> Maybe PeriodicWave -> m ()
setPeriodicWave self wave
= liftIO (js_setPeriodicWave (self) (maybeToNullable wave))
pattern SINE = 0
pattern SQUARE = 1
pattern SAWTOOTH = 2
pattern TRIANGLE = 3
pattern CUSTOM = 4
pattern UNSCHEDULED_STATE = 0
pattern SCHEDULED_STATE = 1
pattern PLAYING_STATE = 2
pattern FINISHED_STATE = 3
foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::
OscillatorNode -> JSString -> IO ()
setType ::
(MonadIO m, ToJSString val) => OscillatorNode -> val -> m ()
setType self val = liftIO (js_setType (self) (toJSString val))
foreign import javascript unsafe "$1[\"type\"]" js_getType ::
OscillatorNode -> IO JSString
getType ::
(MonadIO m, FromJSString result) => OscillatorNode -> m result
getType self = liftIO (fromJSString <$> (js_getType (self)))
foreign import javascript unsafe "$1[\"playbackState\"]"
js_getPlaybackState :: OscillatorNode -> IO Word
getPlaybackState :: (MonadIO m) => OscillatorNode -> m Word
getPlaybackState self = liftIO (js_getPlaybackState (self))
foreign import javascript unsafe "$1[\"frequency\"]"
js_getFrequency :: OscillatorNode -> IO (Nullable AudioParam)
getFrequency ::
(MonadIO m) => OscillatorNode -> m (Maybe AudioParam)
getFrequency self
= liftIO (nullableToMaybe <$> (js_getFrequency (self)))
getFrequencyUnsafe ::
(MonadIO m, HasCallStack) => OscillatorNode -> m AudioParam
getFrequencyUnsafe self
= liftIO
((nullableToMaybe <$> (js_getFrequency (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getFrequencyUnchecked ::
(MonadIO m) => OscillatorNode -> m AudioParam
getFrequencyUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getFrequency (self)))
foreign import javascript unsafe "$1[\"detune\"]" js_getDetune ::
OscillatorNode -> IO (Nullable AudioParam)
getDetune :: (MonadIO m) => OscillatorNode -> m (Maybe AudioParam)
getDetune self = liftIO (nullableToMaybe <$> (js_getDetune (self)))
getDetuneUnsafe ::
(MonadIO m, HasCallStack) => OscillatorNode -> m AudioParam
getDetuneUnsafe self
= liftIO
((nullableToMaybe <$> (js_getDetune (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getDetuneUnchecked :: (MonadIO m) => OscillatorNode -> m AudioParam
getDetuneUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getDetune (self)))
ended :: EventName OscillatorNode Event
ended = unsafeEventName (toJSString "ended")