Commit 48fda476 by Guerric Chupin

Correction to previous commit.

parent 546eceb1
......@@ -12,13 +12,13 @@ data Layer = Layer { relTempo :: Double
, strength :: Strength
}
layerClock :: SF () Tempo -> SF Layer Tempo
layerClock globalTempo = proc Layer { relTempo = r } -> do
layerTempo :: SF () Tempo -> SF Layer Tempo
layerTempo globalTempo = proc Layer { relTempo = r } -> do
t <- tempo -< ()
returnA -< floor $ r * fromIntegral t
layerMetronome :: SF Layer Tempo -> SF () (Event Beat)
layerMetronome = metronome
layerMetronome :: SF () Tempo -> SF () (Event Beat)
layerMetronome tempo = layerTempo tempo >>> metronome
-- A layer is a producer of events triggered by the system beat clock.
layer :: SF () (Event Beat) -> SF Layer (Event Note)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment