module Korg.VolcaBass 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
"slideTime" -> a
5
String
"expression" -> a
11
String
"octave" -> a
40
String
"lfoRate" -> a
41
String
"lfoInt" -> a
42
String
"vcoPitch1" -> a
43
String
"vcoPitch2" -> a
44
String
"vcoPitch3" -> a
45
String
"egAttack" -> a
46
String
"egDecayRelease" -> a
47
String
"cutoffEgInt" -> a
48
String
"gateTime" -> a
49
String
_ -> a
0