module Sound.Tidal.MIDI.VolcaBeats where

import Sound.Tidal.MIDI.Control
import Sound.Tidal.Params

volcabeatsController :: ControllerShape
volcabeatsController =
  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.1
  }

volcabeats = toShape volcabeatsController