-- Copyright 2013 Evan Laforge
-- This program is distributed under the terms of the GNU General Public
-- License 3.0, see COPYING or http://www.gnu.org/licenses/gpl-3.0.txt

-- | Image-Line's Morphine softsynth.
module User.Elaforge.Instrument.Morphine where
import qualified Cmd.Instrument.MidiInst as MidiInst


synth :: MidiInst.Synth
synth :: Synth
synth = SynthName -> SynthName -> [Patch] -> Synth
MidiInst.synth SynthName
"morphine" SynthName
"Image-Line Morphine" [Patch]
patches

patches :: [MidiInst.Patch]
patches :: [Patch]
patches = [PbRange -> [(Control, Control)] -> Patch
MidiInst.default_patch (-Int
12, Int
12) []]