module Korg.MR16 where
import Korg.KorgBase
import qualified Sound.Tidal.Params
import Sound.Tidal.Pattern
mr16 :: Pattern String -> ControlPattern
mr16 :: Pattern String -> ControlPattern
mr16 = Pattern Note -> ControlPattern
Sound.Tidal.Params.n forall b c a. (b -> c) -> (a -> b) -> a -> c
. (forall a. Num a => a -> a -> a
subtract Note
60 forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Num a => String -> a
mr16MidiNote forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>)
mr16MidiNote :: Num a => String -> a
mr16MidiNote :: forall a. Num a => String -> a
mr16MidiNote String
m =
case String
m of
String
"bd" -> a
35
String
"rs" -> a
37
String
"sd" -> a
38
String
"cp" -> a
39
String
"lt" -> a
41
String
"ch" -> a
42
String
"oh" -> a
46
String
"ht" -> a
47
String
"cr" -> a
49
String
"rd" -> a
51
String
"lc" -> a
52
String
"hc" -> a
53
String
"ta" -> a
54
String
"cb" -> a
56
String
"ti" -> a
57
String
"ca" -> a
58
String
"wb" -> a
60
String
"la" -> a
61
String
"ha" -> a
63
String
"mp" -> a
64
String
"mf" -> a
65
String
_ -> a
0