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

module ChaseBliss.WarpedVinylHiFi 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
"tone"                -> a
14
      String
"lag"                 -> a
15
      String
"mix"                 -> a
16
      String
"rpm"                 -> a
17
      String
"depth"               -> a
18
      String
"warp"                -> 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