Music-SimpleDrumMachine

Simple 16th-note Phrase Drummer

Fire-up fluidsynth:

fluidsynth -a coreaudio -m coremidi -g 2.0 ~/Music/soundfont/FluidR3_GM.sf2

Then test with these commands:

perl -Ilib -MMusic::SimpleDrumMachine -E'$dm = Music::SimpleDrumMachine->new(verbose => 1, port_name => shift)' fluid
perl -Ilib eg/add-drums.pl fluid 90
perl -Ilib eg/euclidean.pl fluid 100