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

# https://www.virtualdrumming.com/drums/drums-basic-beats/drums-waltz-beats.html

use MIDI::Drummer::Tiny;

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

$d->count_in(1);

# Viennese
for my $n (1 .. $d->bars) {
    $d->note($d->quarter, $d->ride1, $d->kick);
    $d->note($d->quarter, $d->ride1, $d->snare);
    $d->note($d->quarter, $d->ride1, $d->snare);
}

$d->write;
