#!/usr/bin/env perl
use strict;
use warnings;
use MIDI::Drummer::Tiny;
my $d = MIDI::Drummer::Tiny->new(
    file => $0 . '.mid',
    bpm  => 90,
    bars => 1,
);
$d->count_in(1);
$d->metronome3($d->bars, $d->closed_hh, $d->eighth, 50);
$d->metronome3($d->bars, $d->ride2, $d->quarter, 67);
$d->metronome4($d->bars, $d->closed_hh, $d->eighth, 50);
$d->metronome4($d->bars, $d->ride2, $d->eighth, 67);
$d->metronome5($d->bars, $d->closed_hh, $d->quarter, 50);
$d->metronome5($d->bars, $d->ride2, $d->eighth, 67);
$d->metronome6($d->bars, $d->closed_hh, $d->quarter, 50);
$d->metronome6($d->bars, $d->ride2, $d->eighth, 67);
$d->metronome7($d->bars, $d->closed_hh, $d->quarter, 50);
$d->metronome7($d->bars, $d->ride2, $d->eighth, 67);
$d->note( $d->quarter, $d->ride1, $d->kick );
$d->write;