Commit ce57871c by Guerric Chupin

Corrected init state in layerMetronome.

parent d4f27f1d
......@@ -51,7 +51,7 @@ layerMetronome StaticLayerConf { beatsPerBar = bpb
proc (eb, DynLayerConf { layerBeat = r
}) -> do
ewbno <- accumFilter (\_ (ab,r) -> ((),selectBeat (ab,r))) () -< (,r) <$> eb
accumBy (flip nextBeatNo) 1 -< ewbno `tag` bpb
accumBy (flip nextBeatNo) 0 -< ewbno `tag` bpb
where selectBeat (absBeat, layBeat) =
maybeIf ((absBeat - 1) `mod`
floor (fromIntegral maxAbsBeat * layBeat) == 0)
......
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