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

module Roland.TB3 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
"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