GENE / MIDI-Drummer-Tiny-0.6000-TRIAL / eg / syncopation / lesson-11.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
51
52
53
54
55
56
57
58
59
60
61
62

              
#!/usr/bin/env perl
use strict;
use warnings;
# Adapted from the book "Progressive Steps to Syncopation for the Modern Drummer"
# https://www.amazon.com/dp/0882847953
use MIDI::Drummer::Tiny::Syncopate;
my $bpm = shift || 100;
my $d = MIDI::Drummer::Tiny::Syncopate->new(
    bpm    => $bpm,
    file   => "$0.mid",
    kick   => 36,
    snare  => 40,
    reverb => 15,
);
$d->sync(
    \&snare,
    \&kick,
    \&hhat,
);
$d->write;
sub snare {
    $d->combinatorial( $d->snare, {
        count => 1,
        vary  => {
            0 => sub {
                $d->note( $d->eighth, $d->snare );
                $d->note( $d->eighth, $d->snare );
            },
            1 => sub {
                $d->note( $d->eighth, $d->snare );
                $d->note( $d->sixteenth, $d->snare );
                $d->note( $d->sixteenth, $d->snare );
            },
            2 => sub {
                $d->note( $d->sixteenth, $d->snare );
                $d->note( $d->sixteenth, $d->snare );
                $d->note( $d->eighth, $d->snare );
            },
            3 => sub {
                $d->note( $d->sixteenth, $d->snare );
                $d->note( $d->sixteenth, $d->snare );
                $d->note( $d->sixteenth, $d->snare );
                $d->note( $d->sixteenth, $d->snare );
            },
        },
    });
}
sub kick {
    $d->steady( $d->kick );
}
sub hhat {
    $d->steady( $d->closed_hh );
}