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

use MIDI::Drummer::Tiny;

my $d = MIDI::Drummer::Tiny->new(
    file      => $0 . '.mid',
    bpm       => 90,
    signature => '4/4',
    bars      => 8,
);

$d->count_in(1);

for ( 1 .. $d->bars ) {
    $d->note( $d->quarter,          $d->ride1, $d->kick );
    $d->note( $d->triplet_eighth,   $d->ride1 );
    $d->rest( $d->triplet_eighth );
    $d->note( $d->triplet_eighth,   $d->ride1, $d->kick );
    $d->note( $d->quarter,          $d->ride1, $d->kick );
    $d->note( $d->triplet_eighth,   $d->ride1, $d->kick );
    $d->rest( $d->triplet_eighth );
    $d->note( $d->triplet_eighth,   $d->ride1 );
}

$d->write;
