#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use MIDI::Simple;
use MIDI::Simple::Drummer;
%MIDI::Simple::Length = ();
my $last = 'w';
for(qw(w h q e s t f)) {
my $n = $_ . 'n';
$MIDI::Simple::Length{$n} = $_ eq $last ? 4 : $MIDI::Simple::Length{$last . 'n'} / 2;
$MIDI::Simple::Length{'d'.$n} = $MIDI::Simple::Length{$n} + $MIDI::Simple::Length{$n} / 2;
$MIDI::Simple::Length{'dd'.$n} = $MIDI::Simple::Length{'d'.$n} + $MIDI::Simple::Length{$n} / 4;
$MIDI::Simple::Length{'t'.$n} = $MIDI::Simple::Length{$n} / 3 * 2;
$last = $_;
}
print map { "$_ => $MIDI::Simple::Length{$_}\n" }
sort { $MIDI::Simple::Length{$b} <=> $MIDI::Simple::Length{$a} }
keys %MIDI::Simple::Length;
print Data::Dumper->new([MIDI::Simple::Drummer::_durations])->Indent(1)->Terse(1)->Sortkeys(1)->Dump;