MidiRack3.hs

module Sound.Tidal.MidiRack3 where

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

(perf1, perf1_p) = pF "perf1" (Just 0.5)
(perf2, perf2_p) = pF "perf2" (Just 0.5)
(tun, tun_p) = pF "tun" (Just 0.5)

rackController :: ControllerShape
rackController = ControllerShape { controls = [
                            mCC perf1_p 35,
                            mCC perf2_p 36,
                            mCC tun_p 16
                          ],
                         latency = 0.1
                       }

rack = toShape rackController