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