PureScript Audio Behaviors Sine

Sine.purs

module Klank.Dev where
-- new to purescript? check out https://www.purescript.org/ for learning resources!
import Prelude
import Data.Typelevel.Num (D1)
import FRP.Behavior (Behavior)
import FRP.Behavior.Audio (AudioUnit, gain', runInBrowser_, sinOsc, speaker')

scene :: Behavior Number -> Behavior (AudioUnit D1)
scene _ = pure (speaker' $ (gain' 0.5 $ sinOsc 440.0))


-- change to true if you use `microphone` above
enableMicrophone = false

-- add a mouse, keyboard or other device here if needed
main = runInBrowser_ (pure scene)