module Sound.Tidal.MIDI.VolcaKeys where

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

volcakeysController :: ControllerShape
volcakeysController =
  ControllerShape
  { controls =
      [ mCC portamento_p 5
      , mCC expression_p 11
      , mCC voice_p 40 -- voi
      , mCC octave_p 41 -- oct
      , mCC detune_p 42 -- det
      , mCC vcoegint_p 43 -- vco
      , mCC cutoff_p 44 -- ctf
      , mCC vcfegint_p 45 -- vcf
      , mCC lfo_p 46
      , mCC lfopitchint_p 47 -- lfop
      , mCC lfocutoffint_p 48 -- lfoc
      , mCC attack_p 49 -- att
      , mCC decay_p 50 -- dec
      , mCC sustain_p 51 -- sus
      , mCC delaytime_p 52 -- delayt
      , mCC delayfeedback_p 53 -- delayfb
      ]
  , latency = 0.1
  }

volcakeys = toShape volcakeysController