Skip to content

Instantly share code, notes, and snippets.

@lennart

lennart/midi-pattern-test.tidal

Last active May 17, 2016 09:14
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save lennart/3ddd482e5afe04bed12e62576da1dcd3 to your computer and use it in GitHub Desktop.
Save lennart/3ddd482e5afe04bed12e62576da1dcd3 to your computer and use it in GitHub Desktop.
Download ZIP
midi pattern test for tidal 0.6 / 0.7
Raw
midi-pattern-test.tidal
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