Run.purs

module Ocarina.Run where

import Prelude

import Bolson.Core as B
import Control.Monad.ST.Class (liftST)
import Control.Monad.ST.Internal as Ref
import Data.Typelevel.Num (D2)
import Effect (Effect)
import FRP.Event (Event, subscribe)
import Ocarina.Control (speaker2)
import Ocarina.Core as C
import Ocarina.Interpret (FFIAudioSnapshot, close, context, effectfulAudioInterpret, makeFFIAudioSnapshot)
import Ocarina.WebAPI (AudioContext)

run2_
  :: (forall lock. Array (C.Audible D2 (FFIAudioSnapshot -> Effect Unit)))
  -> Effect (Effect Unit)
run2_ s = do
  ctx <- context
  map (_ *> close ctx) (run2 ctx s)

run2
  :: AudioContext
  -> (forall lock. Array (C.Audible D2 (FFIAudioSnapshot -> Effect Unit)))
  -> Effect (Effect Unit)
run2 ctx s = do
    ffi <- makeFFIAudioSnapshot ctx
    rf <- liftST $ Ref.new 0
    u <- subscribe (speaker2 s (effectfulAudioInterpret rf))
      \f -> f ffi
    pure u

run2e_
  :: (forall lock. Event (Array (C.Audible D2 (FFIAudioSnapshot -> Effect Unit))))
  -> Effect (Effect Unit)
run2e_ s = do
  ctx <- context
  map (_ *> close ctx) (run2e ctx s)

run2e
  :: AudioContext
  -> (forall lock. Event (Array (C.Audible D2 (FFIAudioSnapshot -> Effect Unit))))
  -> Effect (Effect Unit)
run2e ctx s = do
    ffi <- makeFFIAudioSnapshot ctx
    rf <- liftST $ Ref.new 0
    u <- subscribe (speaker2 [B.EventfulElement' $ B.EventfulElement (map (B.FixedChildren' <<< B.FixedChildren) s)] (effectfulAudioInterpret rf))
      \f -> f ffi
    pure u