in reply to Re: playing chords with MIDI modules...
in thread playing chords with MIDI modules...

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();
}

[download]
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";'

[download]

Replies are listed 'Best First'.
Re: Re: Re: playing chords with MIDI modules...
by LostS (Friar) on Jan 31, 2003 at 20:30 UTC
    Name this tune: 
    
song(3);

sub song {
  my $octave = shift;

  my $num = 0;  

  while ($num < 10) {
      $midi_obj->play_note('E', "1.25", 127, 1, 1, $octave) || print $
+midi_obj->error() . "\n" and $midi_obj->reset_error();
      $midi_obj->play_note('G', ".5", 127, 1, 1, $octave) || print $mi
+di_obj->error() . "\n" and $midi_obj->reset_error();
      $midi_obj->play_note('G#', ".25", 127, 1, 1, $octave) || print $
+midi_obj->error() . "\n" and $midi_obj->reset_error();
      $midi_obj->play_note('B', ".25", 127, 1, 1, $octave) || print $m
+idi_obj->error() . "\n" and $midi_obj->reset_error();
      $midi_obj->play_note('E', ".25", 127, 1, 1, $octave) || print $m
+idi_obj->error() . "\n" and $midi_obj->reset_error();
      $midi_obj->play_note('D', ".25", 127, 1, 1, $octave) || print $m
+idi_obj->error() . "\n" and $midi_obj->reset_error();
      $midi_obj->play_note('D', "1", 127, 1, 1, $octave) || print $mid
+i_obj->error() . "\n" and $midi_obj->reset_error();
      $midi_obj->play_note('B', ".25", 127, 1, 1, $octave) || print $m
+idi_obj->error() . "\n" and $midi_obj->reset_error();
      $midi_obj->play_note('F#', ".25", 127, 1, 1, $octave) || print $
+midi_obj->error() . "\n" and $midi_obj->reset_error();
      $midi_obj->play_note('F', ".25", 127, 1, 1, $octave) || print $m
+idi_obj->error() . "\n" and $midi_obj->reset_error();
      $midi_obj->play_note('B', ".25", 127, 1, 1, $octave) || print $m
+idi_obj->error() . "\n" and $midi_obj->reset_error();
      $midi_obj->play_note('D', ".25", 127, 1, 1, $octave) || print $m
+idi_obj->error() . "\n" and $midi_obj->reset_error();
      $midi_obj->play_note('E', ".25", 127, 1, 1, $octave) || print $m
+idi_obj->error() . "\n" and $midi_obj->reset_error();
    $num++;
  }
}

    [download]
    Send me a message to see if your right...

    -----------------------
    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";'

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom