-- ALSA output device for OAK.

#INCLUDE "oak.inc"
#INCLUDE "alsa.inc"

--{{{ PROC alsa.out (CHAN SIGNAL left?, right?)
PROC alsa.out (CHAN SIGNAL left?, right?)
  SEQ
    C.alsa.pcm.init (INT ROUND SAMPLE.RATE)
    WHILE TRUE
      SIGNAL l.sig, r.sig:
      SEQ
        PAR
          left ? l.sig
          right ? r.sig
        VAL []REAL32 l RETYPES l.sig:
        VAL []REAL32 r RETYPES r.sig:
        B.alsa.pcm.play (l, r)
:
--}}}