Last active
May 17, 2016 09:14
-
-
Save lennart/3ddd482e5afe04bed12e62576da1dcd3 to your computer and use it in GitHub Desktop.
midi pattern test for tidal 0.6 / 0.7
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| let simple = "SimpleSynth virtual input" | |
| -- 0.6 style setup | |
| import Sound.Tidal.MIDI.Output | |
| import Sound.Tidal.SimpleSynth | |
| keyStreams <- midiproxy 1 simple [(keys, 1), (keys, 2), (keys, 3), (keys, 4)] | |
| [m1,m2,m3,m4] <- sequence keyStreams | |
| -- > 0.7 init | |
| devs <- midiDevices | |
| (m1, mt1) <- midiSetters devs "SimpleSynth virtual input" 1 synthController getNow | |
| (m2, mt2) <- midiSetters devs "SimpleSynth virtual input" 2 synthController getNow | |
| (m3, mt3) <- midiSetters devs "SimpleSynth virtual input" 2 synthController getNow | |
| (m4, mt4) <- midiSetters devs "SimpleSynth virtual input" 4 synthController getNow | |
| -- test for crashes and irregularities | |
| m1 $ density 3 $ note "69" | |
| m2 $ density 4 $ note "70" | |
| m3 $ density 5 $ note "71" | |
| m4 $ density 6 $ note "72" | |
| m1 silence | |
| m2 silence | |
| m3 silence | |
| m4 silence |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment