From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

GENE / MIDI-Drummer-Tiny-0.6004 / eg / swing-fills.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

              
#!/usr/bin/perl
use strict;
use warnings;
use MIDI::Drummer::Tiny;
use MIDI::Drummer::Tiny::SwingFills;
my $d = MIDI::Drummer::Tiny->new(
    bars      => 16,
    soundfont => '/Users/gene/Music/soundfont/FluidR3_GM.sf2',
);
my $f = MIDI::Drummer::Tiny::SwingFills->new;
my $every = 4;
for my $i (1 .. $d->bars) {
    my $fill = $f->get_fill($d, $d->ride2);
    if (($i % $every == 0) && ($fill->{dura} == 4)) {
        $fill->{fill}->();
    }
    else {
        $d->note( $d->quarter, $d->ride2, $d->kick );
        if (($i % $every == 0) && ($fill->{dura} == 3)) {
            $fill->{fill}->();
        }
        else {
            $d->note( $d->triplet_eighth, $d->ride2 );
            $d->rest( $d->triplet_eighth );
            $d->note( $d->triplet_eighth, $d->ride2, $d->kick );
            if (($i % $every == 0) && ($fill->{dura} == 2)) {
                $fill->{fill}->();
            }
            else {
                $d->note( $d->quarter, $d->ride2, $d->snare );
                if (($i % $every == 0) && ($fill->{dura} == 1)) {
                    $fill->{fill}->();
                }
                else {
                    $d->note( $d->triplet_eighth, $d->ride2, $d->kick );
                    $d->rest( $d->triplet_eighth );
                    $d->note( $d->triplet_eighth, $d->ride2 );
                }
            }
        }
    }
}
# $d->write;
$d->play_with_timidity;
# $d->play_with_fluidsynth;