how did you first communicate with us poor humans?Screaming and electro-shock. :-) My first words.....
#!/usr/bin/perl
use warnings;
use strict;
use Fcntl;
require 'sys/soundcard.ph';
sysopen(SEQ_FH,'/dev/sequencer',O_WRONLY) or die $!;
while(1){
for my $note (20,40,30,40,50){
send_midi_bytes(0xc0,123); #cool patch sound
send_midi_bytes(0x90,$note,100);
select(undef,undef,undef,1);
}
}
sub send_midi_bytes {
#print "@_\n";
my $device = 1;
my $stuff = pack('C*',
(map {&SEQ_MIDIPUTC(), $_, $device,0 } @_ ) );
my $bytes = syswrite(SEQ_FH, $stuff) or die $!;
if (not $bytes) {
die("Couldn't write to /dev/sequencer $!"
);
}
}
I'm not really a human, but I play one on earth.
flash japh