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

module Korg.VolcaKeys 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
"portamento"      -> a
5
      String
"expression"      -> a
11
      String
"voice"           -> a
40
      String
"octave"          -> a
41
      String
"detune"          -> a
42
      String
"vcoEgInt"        -> a
43
      String
"cutoff"          -> a
44
      String
"vcfEgInt"        -> a
45
      String
"lfoRate"         -> a
46
      String
"lfoPitchInt"     -> a
47
      String
"lfoCutoffInt"    -> a
48
      String
"egAttack"        -> a
49
      String
"egDecayRelease"  -> a
50
      String
"egSustain"       -> a
51
      String
"delayTime"       -> a
52
      String
"delayFeedback"   -> a
53
      String
_                 -> a
0