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

module Korg.VolcaBass 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
"slideTime"       -> a
5
      String
"expression"      -> a
11
      String
"octave"          -> a
40
      String
"lfoRate"         -> a
41
      String
"lfoInt"          -> a
42
      String
"vcoPitch1"       -> a
43
      String
"vcoPitch2"       -> a
44
      String
"vcoPitch3"       -> a
45
      String
"egAttack"        -> a
46
      String
"egDecayRelease"  -> a
47
      String
"cutoffEgInt"     -> a
48
      String
"gateTime"        -> a
49
      String
_                 -> a
0