-- maquinitas-tidal
-- parameters for instruments by Korg

module ChaseBliss.Blooper where

  import qualified Sound.Tidal.Params
  import Sound.Tidal.Pattern

  -- ControlChange list

  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