diff --git a/maquinitas-tidal.cabal b/maquinitas-tidal.cabal
--- a/maquinitas-tidal.cabal
+++ b/maquinitas-tidal.cabal
@@ -1,5 +1,5 @@
 name:                maquinitas-tidal
-version:             0.2.11
+version:             0.2.13
 synopsis:            library for MIDI control of hardware
 description:         maquinitas is a library for MIDI control of hardware
 homepage:            https://github.com/maquinitas/maquinitas-tidal
@@ -16,6 +16,8 @@
 library
   exposed-modules:    Korg.KorgBase
                       Korg.VolcaBeats
+                      Korg.VolcaBass
+                      Korg.VolcaKeys
                       MFBTanzbar
                       OtoBam
                       Roland
diff --git a/src/Korg/VolcaBass.hs b/src/Korg/VolcaBass.hs
new file mode 100644
--- /dev/null
+++ b/src/Korg/VolcaBass.hs
@@ -0,0 +1,29 @@
+-- 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 = Sound.Tidal.Params.ccn . (ccnList <$>)
+  
+  ccnList :: Num a => String -> a
+  ccnList m =
+    case m of
+      "slideTime"       -> 5
+      "expression"      -> 11
+      "octave"          -> 40
+      "lfoRate"         -> 41
+      "lfoInt"          -> 42
+      "vcoPitch1"       -> 43
+      "vcoPitch2"       -> 44
+      "vcoPitch3"       -> 45
+      "egAttack"        -> 46
+      "egDecayRelease"  -> 47
+      "cutoffEgInt"     -> 48
+      "gateTime"        -> 49
+      _                 -> 0
diff --git a/src/Korg/VolcaBeats.hs b/src/Korg/VolcaBeats.hs
--- a/src/Korg/VolcaBeats.hs
+++ b/src/Korg/VolcaBeats.hs
@@ -3,7 +3,6 @@
 
 module Korg.VolcaBeats where
 
-  import Korg.KorgBase
   import qualified Sound.Tidal.Params
   import Sound.Tidal.Pattern
 
@@ -15,16 +14,16 @@
   volcaBeatsMidiNote :: Num a => String -> a
   volcaBeatsMidiNote m =
     case m of
-      "bd" -> 36
-      "sd" -> 38
-      "lt" -> 43
-      "ht" -> 50
-      "ch" -> 42
-      "oh" -> 46
-      "cp" -> 39
-      "cl" -> 75
-      "ag" -> 67
-      "cr" -> 49
+      "bd" -> 36 -- kick
+      "sd" -> 38 -- snare
+      "lt" -> 43 -- loTom
+      "ht" -> 50 -- hiTom
+      "ch" -> 42 -- clHat
+      "oh" -> 46 -- opHat
+      "cp" -> 39 -- clap
+      "cl" -> 75 -- claves
+      "ag" -> 67 -- agogo
+      "cr" -> 49 -- crash
       _    -> 0
 
   -- Korg MR-16 drum machine
@@ -61,29 +60,29 @@
   -- ControlChange list
 
   ccn :: Pattern String -> ControlPattern
-  ccn = Sound.Tidal.Params.ccn . ( ccnList <$>)
+  ccn = Sound.Tidal.Params.ccn . (ccnList <$>)
   
   ccnList :: Num a => String -> a
   ccnList m =
     case m of
-      "kickLevel"   -> 40
-      "snareLevel"  -> 41
-      "loTomLevel"  -> 42
-      "hiTomLevel"  -> 43
-      "clHatLevel"  -> 44
-      "opHatLevel"  -> 45
-      "clapLevel"   -> 46
-      "clavesLevel" -> 47
-      "agogoLevel"  -> 48
-      "crashLevel"  -> 49
-      "clapSpeed"   -> 50
-      "clavesSpeed" -> 51
-      "agogoSpeed"  -> 52
-      "crashSpeed"  -> 53
-      "stutterTime" -> 54
-      "stutterDepth"-> 55
-      "tomDecay"    -> 56
+      "kickLevel"       -> 40
+      "snareLevel"      -> 41
+      "loTomLevel"      -> 42
+      "hiTomLevel"      -> 43
+      "clHatLevel"      -> 44
+      "opHatLevel"      -> 45
+      "clapLevel"       -> 46
+      "clavesLevel"     -> 47
+      "agogoLevel"      -> 48
+      "crashLevel"      -> 49
+      "clapSpeed"       -> 50
+      "clavesSpeed"     -> 51
+      "agogoSpeed"      -> 52
+      "crashSpeed"      -> 53
+      "stutterTime"     -> 54
+      "stutterDepth"    -> 55
+      "tomDecay"        -> 56
       "closedHatDecay"  -> 57
       "openHatDecay"    -> 58
       "hatGrain"        -> 59
-      _ -> 0
+      _                 -> 0
diff --git a/src/Korg/VolcaKeys.hs b/src/Korg/VolcaKeys.hs
new file mode 100644
--- /dev/null
+++ b/src/Korg/VolcaKeys.hs
@@ -0,0 +1,33 @@
+-- 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 = Sound.Tidal.Params.ccn . (ccnList <$>)
+  
+  ccnList :: Num a => String -> a
+  ccnList m =
+    case m of
+      "portamento"      -> 5
+      "expression"      -> 11
+      "voice"           -> 40
+      "octave"          -> 41
+      "detune"          -> 42
+      "vcoEgInt"        -> 43
+      "cutoff"          -> 44
+      "vcfEgInt"        -> 45
+      "lfoRate"         -> 46
+      "lfoPitchInt"     -> 47
+      "lfoCutoffInt"    -> 48
+      "egAttack"        -> 49
+      "egDecayRelease"  -> 50
+      "egSustain"       -> 51
+      "delayTime"       -> 52
+      "delayFeedback"   -> 53
+      _                 -> 0