module Roland.TB3 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
"padZ" -> a
1
String
"padYplay" -> a
11
String
"padXenvMod" -> a
12
String
"padYenvMod" -> a
13
String
"accent" -> a
16
String
"effect" -> a
17
String
"scatterType" -> a
68
String
"scatterDepth" -> a
69
String
"resonance" -> a
71
String
"cutoff" -> a
74
String
"patternSlide" -> a
102
String
"patternAccent" -> a
103
String
"tuning" -> a
104
String
_ -> a
0