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

use MIDI::Drummer::Tiny ();
use MIDI::Util qw(midi_dump);

my $bpm = shift || 80;

my $lengths = midi_dump('Length');

my $d = MIDI::Drummer::Tiny->new(
    file => "$0.mid",
    bpm  => $bpm,
    bars => 4,
);

$d->count_in(1);

for my $i (1 .. 4) {
    $d->set_bpm($bpm);
    $d->metronome44swing;
    $d->set_bpm($bpm * $lengths->{thn});
    $d->metronome44swing;
}

$d->write;
