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.16
+version:             0.2.17
 synopsis:            library for MIDI control of hardware
 description:         maquinitas is a library for MIDI control of hardware
 homepage:            https://github.com/maquinitas/maquinitas-tidal
@@ -21,6 +21,9 @@
                       Korg.MR16
                       Boss.DR880
                       Roland.TB3
+                      ChaseBliss.WarpedVinylHiFi
+                      ChaseBliss.TonalRecall
+                      ChaseBliss.Blooper
                       MFBTanzbar
                       OtoBam
 
diff --git a/src/ChaseBliss/Blooper.hs b/src/ChaseBliss/Blooper.hs
new file mode 100644
--- /dev/null
+++ b/src/ChaseBliss/Blooper.hs
@@ -0,0 +1,49 @@
+-- maquinitas-tidal
+-- parameters for instruments by Korg
+
+module ChaseBliss.Blooper 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
+      "record"              -> 1
+      "play"                -> 2
+      "overdub"             -> 3
+      "stop"                -> 4
+      "undo"                -> 5
+      "redo"                -> 6
+      "erase"               -> 7
+      "holdSwitchB"         -> 8
+
+      "multiControl"        -> 11
+
+      "volume"              -> 14
+      "layers"              -> 15
+      "repeats"             -> 16
+      "knobModA"            -> 17
+      "stability"           -> 18
+      "knobModB"            -> 19
+      "ramp"                -> 20
+
+      "switchModA"          -> 21
+      "looperMode"          -> 22
+      "switchModB"          -> 23
+      "previewSaveLoad"     -> 24
+
+      "toogleModA"          -> 30
+      "toogleModB"          -> 31
+
+      "midiClockIgnore"     -> 51
+      "ramping"             -> 52
+      "noteDivisions"       -> 54
+
+      "expression"          -> 100
+      _                     -> 0
diff --git a/src/ChaseBliss/TonalRecall.hs b/src/ChaseBliss/TonalRecall.hs
new file mode 100644
--- /dev/null
+++ b/src/ChaseBliss/TonalRecall.hs
@@ -0,0 +1,31 @@
+-- maquinitas-tidal
+-- parameters for instruments by Korg
+
+module ChaseBliss.TonalRecall 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
+      "tone"                -> 14
+      "mix"                 -> 15
+      "rate"                -> 16
+      "time"                -> 17
+      "regen"               -> 18
+      "depth"               -> 19
+      "ramp"                -> 20
+
+      "midiNoteDivisions"   -> 21
+      "midiClockIgnore"     -> 51
+      "tapSwitch"           -> 93
+
+      "expression"          -> 100
+      "bypassSwitch"        -> 102
+      _                     -> 0
diff --git a/src/ChaseBliss/WarpedVinylHiFi.hs b/src/ChaseBliss/WarpedVinylHiFi.hs
new file mode 100644
--- /dev/null
+++ b/src/ChaseBliss/WarpedVinylHiFi.hs
@@ -0,0 +1,31 @@
+-- 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 = Sound.Tidal.Params.ccn . (ccnList <$>)
+  
+  ccnList :: Num a => String -> a
+  ccnList m =
+    case m of
+      "tone"                -> 14
+      "lag"                 -> 15
+      "mix"                 -> 16
+      "rpm"                 -> 17
+      "depth"               -> 18
+      "warp"                -> 19
+      "ramp"                -> 20
+
+      "midiNoteDivisions"   -> 21
+      "midiClockIgnore"     -> 51
+      "tapSwitch"           -> 93
+
+      "expression"          -> 100
+      "bypassSwitch"        -> 102
+      _                     -> 0