module Sound.Tidal.MIDI.VolcaBeats where
import Sound.Tidal.Params
import Sound.Tidal.MIDI.Control
beatsController :: ControllerShape
beatsController = ControllerShape { controls = [
mCC lkick_p 40,
mCC lsnare_p 41,
mCC llotom_p 42,
mCC lhitom_p 43,
mCC lclhat_p 44,
mCC lophat_p 45,
mCC lclap_p 46,
mCC lclaves_p 47,
mCC lagogo_p 48,
mCC lcrash_p 49,
mCC sclap_p 50,
mCC sclaves_p 51,
mCC sagogo_p 52,
mCC scrash_p 53,
mCC stuttertime_p 54,
mCC stutterdepth_p 55,
mCC tomdecay_p 56,
mCC clhatdecay_p 57,
mCC ophatdecay_p 58,
mCC hatgrain_p 59
],
latency = 0.01
}
beats = toShape beatsController