so-404 synth

SO404.hs

module Sound.Tidal.MIDI.SO404 where

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

-- CC#7-Volume                                                                                                                                                         
-- CC#65-Portamento time                                                                                                                                               
-- CC#71-Filter Resonance                                                                                                                                              
-- CC#72-Release time                                                                                                                                                  
-- CC#74-Filter Cutoff                                                                                                                                                 
-- CC#79-Filter Envelope                                                                                                                                               

so404Controller :: ControllerShape
so404Controller = ControllerShape {
  controls = [
    mCC modwheel_p 7,
    mCC balance_p 8,
    mCC resonance_p 71,
    mCC rtime_p 72,
    mCC cutoff_p 74,
    mCC envelope_p 79
    ],
latency = 0.3
  }

so404 = toShape so404Controller