#!/usr/bin/perl
use strict;
use warnings;

use MIDI::Simple::Drummer::Rudiments;

my $d = MIDI::Simple::Drummer::Rudiments->new(
    -volume => 100,
    -bpm    => 100,
);

$d->count_in;

$d->snare('Electric Snare');

# 2 paradiddle_diddles
#$d->beat( -name => 19 );
#$d->beat( -name => 19 );
# 2 single_paradiddles
#$d->beat( -name => 16 );
#$d->beat( -name => 16 );

# All patterns
for my $n ( sort { $a <=> $b } keys %{ $d->_default_patterns } ) {
    $d->beat( -name => $n );
    $d->rest( $d->HALF );
}

$d->write("$0.mid");
