synthesizer-alsa-0.3: src/Synthesizer/Dimensional/ALSA/Server.hs

module Main where

import qualified Synthesizer.Dimensional.ALSA.Server.Run  as Run
import qualified Synthesizer.Dimensional.ALSA.Server.Test as Test

main :: IO ()
main =
   case 106::Int of
      001 -> Test.sequence1
      100 -> Run.volume
      101 -> Run.pitchBend
      102 -> Run.volumePitchBend1
      103 -> Run.keyboard
      104 -> Run.keyboardMulti
      105 -> Run.keyboardFM
      106 -> Run.keyboardDetuneFM
      107 -> Run.keyboardFilter
      _ -> error "not implemented"