KorgKP3.hs

module Sound.Tidal.MIDI.KorgKP3 where

import Sound.Tidal.Params

import Sound.Tidal.MIDI.Control

kp3 :: ControllerShape
kp3 =
  ControllerShape
  { controls =
      [ mCC xaxis_p 12
      , mCC yaxis_p 13
      , mCC padon_p 92
      , mCC level_p 93
      , mCC fxdepth_p 94
      , mCC holdbut_p 95
      ]
  , latency = 0.1
  }

oscKp3 = toShape kp3

(xaxis, xaxis_p) = pF "xaxis" (Just 0)

(yaxis, yaxis_p) = pF "yaxis" (Just 0)

(padon, padon_p) = pF "padon" (Just 0)

(level, level_p) = pF "level" (Just 0)

(fxdepth, fxdepth_p) = pF "fxdepth" (Just 0)

(holdbut, holdbut_p) = pF "holdbut" (Just 0)