maquinitas-tidal 0.2.11 → 0.2.13
raw patch · 4 files changed
+94/−31 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Korg.VolcaBass: ccn :: Pattern String -> ControlPattern
+ Korg.VolcaBass: ccnList :: Num a => String -> a
+ Korg.VolcaKeys: ccn :: Pattern String -> ControlPattern
+ Korg.VolcaKeys: ccnList :: Num a => String -> a
Files
- maquinitas-tidal.cabal +3/−1
- src/Korg/VolcaBass.hs +29/−0
- src/Korg/VolcaBeats.hs +29/−30
- src/Korg/VolcaKeys.hs +33/−0
maquinitas-tidal.cabal view
@@ -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
+ src/Korg/VolcaBass.hs view
@@ -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
src/Korg/VolcaBeats.hs view
@@ -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
+ src/Korg/VolcaKeys.hs view
@@ -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