module ChaseBliss.TonalRecall 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
"tone" -> a
14
String
"mix" -> a
15
String
"rate" -> a
16
String
"time" -> a
17
String
"regen" -> a
18
String
"depth" -> a
19
String
"ramp" -> a
20
String
"midiNoteDivisions" -> a
21
String
"midiClockIgnore" -> a
51
String
"tapSwitch" -> a
93
String
"expression" -> a
100
String
"bypassSwitch" -> a
102
String
_ -> a
0