module ChaseBliss.Blooper 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
"record" -> a
1
String
"play" -> a
2
String
"overdub" -> a
3
String
"stop" -> a
4
String
"undo" -> a
5
String
"redo" -> a
6
String
"erase" -> a
7
String
"holdSwitchB" -> a
8
String
"multiControl" -> a
11
String
"volume" -> a
14
String
"layers" -> a
15
String
"repeats" -> a
16
String
"knobModA" -> a
17
String
"stability" -> a
18
String
"knobModB" -> a
19
String
"ramp" -> a
20
String
"switchModA" -> a
21
String
"looperMode" -> a
22
String
"switchModB" -> a
23
String
"previewSaveLoad" -> a
24
String
"toogleModA" -> a
30
String
"toogleModB" -> a
31
String
"midiClockIgnore" -> a
51
String
"ramping" -> a
52
String
"noteDivisions" -> a
54
String
"expression" -> a
100
String
_ -> a
0