#!/usr/local/bin/perl
## Time-stamp: "1998-11-10 14:12:18 MST" ##

use MIDI::Simple 0.7;
# Main
new_score;
@subs = (\&tom_two, \&double_clap);
foreach (1 .. 10) { synch(@subs) }
write_score("rhythm1.midi");
exit;

 # Subs...
sub tom_two {
  my $it = shift;
   # n41 on c9  =  low floor tom
  $it->n(c9, ff, n41, qn);    $it->r;
  # qn = 1/4 note, ff = very loud
  $it->n(f);                  $it->r;
  # f = loud
}

sub double_clap {
  my $it = shift;
  # n39 on c9 = hand-clap
  $it->n(c9, ff, n39, sn); # sn = a 16th note
  $it->n;
  # This only takes up 2 16th-notes
  #  of time, but that's fine.
}