NAME

MIDI::Drummer::Tiny::SwingFills

VERSION

version 0.5013

SYNOPSIS

use MIDI::Drummer::Tiny;
use MIDI::Drummer::Tiny::SwingFills;

my $d = MIDI::Drummer::Tiny->new;
my $f = MIDI::Drummer::Tiny::SwingFills->new;

for my $i (1 .. $d->beats * $d->bars) {
  my $remainder = $d->beats * $d->bars - $i;
  my $fill = $f->get_fill($d, $d->ride2);
  if ($remainder == $fill->{dura}) {
    $fill->{fill}->();
    last;
  }
  else {
    $d->note($d->quarter, $d->open_hh, $_ % 2 ? $d->kick : $d->snare);
  }
}

DESCRIPTION

TBD

METHODS

new

$f = MIDI::Drummer::Tiny::Fills->new;

Return a new MIDI::Drummer::Tiny::Fills object.

get_fill

$fill = $f->get_fill($drummer_obj, $cymbal);

Return a random fill given a drummer_object and an optional cymbal.

The fill that is returned is a hash reference with keys: fill - a code reference, and dura - the numerical duration of the fill.

SEE ALSO

TBD

AUTHOR

Gene Boggs <gene.boggs@gmail.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2014-2025 by Gene Boggs.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.