module CsoundExpr.Base.Score (
Arrangeable(..),
Time, Dur, Score, toList,
dur, rest, stretch, note, delay,
line, chord, loop, cut, tmap)
where
import CsoundExpr.Translator.Types(Time, Dur)
import qualified Temporal.Media as M
import Temporal.Media(Arrangeable(..))
type Score a = M.MediaUnit Dur () a
dur :: M.Temporal Dur a => a -> Dur
dur = M.dur
rest :: M.Temporal Dur a => Dur -> a
rest = M.none
stretch :: M.Stretchable Dur a => Dur -> a -> a
stretch = M.stretch
note :: Dur -> a -> Score a
note = M.temp
delay :: (M.Temporal Dur a, Arrangeable a) => Dur -> a -> a
delay = M.delay
line :: Arrangeable a => [a] -> a
line = M.sequent
chord :: Arrangeable a => [a] -> a
chord = M.parallel
loop :: Arrangeable a => Int -> a -> a
loop = M.loop
cut :: Dur -> Dur -> Score a -> Score a
cut = M.cut
tmap :: (Dur -> a -> b) -> Score a -> Score b
tmap = M.tmap
toList :: Score a -> M.EventList Dur a
toList = M.fromMediaUnit (const id)