GENE / MIDI-Drummer-Tiny-0.6005 / eg / disco 

            

              
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

              
#!/usr/bin/env perl
use strict;
use warnings;
use MIDI::Drummer::Tiny;
my $d = MIDI::Drummer::Tiny->new(
    file => $0 . '.mid',
    bpm  => 120,
    bars => 8,
);
$d->count_in(1);
my $i = 0;
for my $n ( 0 .. $d->bars - 1 ) {
    if ( $n % 2 == 0 ) {
        for ( 1 .. 3 ) {
            $d->note( $d->eighth, $d->closed_hh, $d->kick );
            $d->note( $d->eighth, $d->closed_hh );
            $d->note( $d->eighth, $d->open_hh,   $d->kick, $d->snare );
            $d->note( $d->eighth, $d->pedal_hh );
        }
    }
    else {
        $d->note( $d->sixteenth, $d->closed_hh, $d->kick );
        $d->note( $d->sixteenth, $d->closed_hh );
        $d->note( $d->sixteenth, $d->closed_hh );
        $d->note( $d->sixteenth, $d->open_hh );
        $d->note( $d->sixteenth, $d->pedal_hh, $d->kick, $d->snare );
        $d->note( $d->sixteenth, $d->closed_hh );
        $d->note( $d->sixteenth, $d->closed_hh );
        $d->note( $d->sixteenth, $d->closed_hh );
    }
}
$d->note( $d->quarter, $d->crash1, $d->kick );
$d->write;