custom tidal-midi module

MidiRack3.hs

module Sound.Tidal.MidiRack3 where

import Sound.Tidal.Params
import Sound.Tidal.MIDI.Control

rackController :: ControllerShape
rackController = ControllerShape { params = [
                            mCC kvoice_p 40,
                            mCC kdetune_p 42
                          ],
                         latency = 0.1
                       }

rack = toShape rackController

(kvoice, kvoice_p) = pF "kvoice" (Just 0)
(kdetune, kdetune_p) = pF "kdetune" (Just 0)

test.tidal

import Sound.Tidal.Context
import Sound.Tidal.MIDI.Stream
import Sound.Tidal.MIDI.Synth
import Sound.Tidal.MidiRack3

(cps, getNow) <- cpsUtils
devs <- midiDevices

(k16,kt16) <- midiSetters devs "Scarlett 18i8 USB" 16 synthController getNow

k16 $ n "0*4" |=| kvoice "1 0.25 0.75 0 0.5" |=| kdetune "0 0.5 1"