Addon to Mr. Muskrat's code:
mary(3);
sub mary {
my $octave = shift;
$midi_obj->play_note('E', ".5", 127, 1, 1, $octave) || print $midi_o
+bj->error() . "\n" and $midi_obj->reset_error();
$midi_obj->play_note('D', ".25", 127, 1, 1, $octave) || print $midi_
+obj->error() . "\n" and $midi_obj->reset_error();
$midi_obj->play_note('C', ".5", 127, 1, 1, $octave) || print $midi_o
+bj->error() . "\n" and $midi_obj->reset_error();
$midi_obj->play_note('D', ".5", 127, 1, 1, $octave) || print $midi_o
+bj->error() . "\n" and $midi_obj->reset_error();
$midi_obj->play_note('E', ".5", 127, 1, 1, $octave) || print $midi_o
+bj->error() . "\n" and $midi_obj->reset_error();
$midi_obj->play_note('E', ".5", 127, 1, 1, $octave) || print $midi_o
+bj->error() . "\n" and $midi_obj->reset_error();
$midi_obj->play_note('E', ".75", 127, 1, 1, $octave) || print $midi_
+obj->error() . "\n" and $midi_obj->reset_error();
$midi_obj->play_note('D', ".5", 127, 1, 1, $octave) || print $midi_o
+bj->error() . "\n" and $midi_obj->reset_error();
$midi_obj->play_note('D', ".5", 127, 1, 1, $octave) || print $midi_o
+bj->error() . "\n" and $midi_obj->reset_error();
$midi_obj->play_note('D', ".5", 127, 1, 1, $octave) || print $midi_o
+bj->error() . "\n" and $midi_obj->reset_error();
$midi_obj->play_note('E', ".5", 127, 1, 1, $octave) || print $midi_o
+bj->error() . "\n" and $midi_obj->reset_error();
$midi_obj->play_note('G', ".5", 127, 1, 1, $octave) || print $midi_o
+bj->error() . "\n" and $midi_obj->reset_error();
$midi_obj->play_note('G', ".5", 127, 1, 1, $octave) || print $midi_o
+bj->error() . "\n" and $midi_obj->reset_error();
}
Guess this tune...
-----------------------
Billy S.
Slinar Hardtail - Hand of Dane
Datal Ephialtes - Guildless
RallosZek.Net Admin/WebMaster
perl -e '$cat = "cat"; if ($cat =~ /\143\x61\x74/) { print "Its a cat!
+\n"; } else { print "Thats a dog\n"; } print "\n";'