-- maquinitas-tidal
-- parameters for instruments by Korg
module Korg.VolcaKeys where
import qualified Sound.Tidal.Params
import Sound.Tidal.Pattern
-- ControlChange list
ccn :: Pattern String -> ControlPattern
ccn = Sound.Tidal.Params.ccn . (ccnList <$>)
ccnList :: Num a => String -> a
ccnList m =
case m of
"portamento" -> 5
"expression" -> 11
"voice" -> 40
"octave" -> 41
"detune" -> 42
"vcoEgInt" -> 43
"cutoff" -> 44
"vcfEgInt" -> 45
"lfoRate" -> 46
"lfoPitchInt" -> 47
"lfoCutoffInt" -> 48
"egAttack" -> 49
"egDecayRelease" -> 50
"egSustain" -> 51
"delayTime" -> 52
"delayFeedback" -> 53
_ -> 0