perl.midi

perl.midi http://www.nntp.perl.org/group/perl.midi/ ... Copyright 1998-2008 perl.org Mon, 06 Oct 2008 23:15:52 +0000 ask@perl.org Determing and setting "actual" performance tempo by Rick Bolen Thought I'd query if this need had already been coded by someone. Issue: Old paper player piano rolls are scanned and recorded into MIDI files. The recorded "events" are placed onto a somewhat arbitrary MIDI tempo "grid", such that the timing resolution (PPQN Clock?) is sufficient to capture the piano roll performance relatively accurately, but the tempo is not consistent with the "real" time value of quarter notes (BPM 120 default, FF 51 03 tt tt tt = 0x07A120). Thus, when loaded into a sequencer app, beats don't start at the top of measures, and measures start in the middle of phrases, and the whole piece progressively "drifts" into other measures. However, sonically, the file plays fine, you just can't use the sequencer editing tools to manipulate the data using any conventional musical standard (bars, measures, etc.). I've tried making tempo maps using sequencer tools designed to accomodate this need, but I can't manage to get them to work. Resolution? Some of the lower octave piano notes hammer out quarter note beats regularly throughout the composition. Has anyone written a "filter" to "statistically analyze" or extract the apparent tempo timing to more accurately define a Tempo Event (FF 51 03 tt tt tt, in MTrk)? Thanks, Rick http://www.nntp.perl.org/group/perl.midi/2008/03/msg349.html Wed, 19 Mar 2008 07:57:47 +0000 Re: MIDI to for track sequencers by Sigmund Rothschild Cmix, which is a variant on Csound and part of the Music 5 family of audio programming languages/environments, will allow you to pass Perl code to, or allow you to work directly in Perl. http://music.columbia.edu/cmc/RTcmix/ Also, Sony's Acid is a popular GUI software that combines MIDI and audio quite well if your not sure about the really steep learning curve of Csound/Cmix. -Sig ----- Original Message ----- From: "Sean M. Burke" <sburke@cpan.org> To: <midi@perl.org> Cc: <djrondon@gmail.com> Sent: Saturday, November 24, 2007 7:00 PM Subject: MIDI to for track sequencers >I figured I'd blow the cobwebs off of this list and see if anyone can help >out this guy below. He's asking about something further into the practical >domain than I would ever know about. > > -------- Original Message -------- > Date: Thu, 22 Nov 2007 10:30:11 -0200 > From: djrondon@gmail.com > To: sburke@cpan.org > > Hi Sean, > > Sorry to disturb you, I know you're very busy. > I'm using your module MIDI-Perl-0.81 > <http://search.cpan.org/%7Esburke/MIDI-Perl-0.81/>. Congratulations, > it's a very good module. > I'd like to combine to play midi notes with wave loops. you know. > Is there any way that I can do it? > Or taking a simple vision, a track sequencer, where I can put mid tracks > and wav tracks. synchronizing them. > > Well, I don't to bother you. > Thanks for your attention. > Best Regards, > > --DJ Rondon > > ~~~ > > http://www.nntp.perl.org/group/perl.midi/2007/11/msg348.html Sun, 25 Nov 2007 09:19:48 +0000 Re: MIDI to for track sequencers by noel lairson I second the 'check out CSound' suggestion. It's got a pretty steep learning curve, but probably much less so than trying to create a sequencer & sampler from scratch in perl... Noel On Nov 24, 2007, at 6:34 PM, Jeff Harrington wrote: > Hey DJ, > > Since you're already using Perl might I suggest Csound as a good > combiner of MIDI and audio data with programming involved. (Not a > GUI/FruityLoops/Reason type of thing). > http://csounds.com > > There's a mailing list. If you were to post a question about a > specific plan you'd get some attention. > > http://www.csounds.com/list/index.html > > Jeff > http://jeffharrington.org > > > Sean M. Burke wrote: >> I figured I'd blow the cobwebs off of this list and see if anyone >> can help out this guy below. He's asking about something further >> into the practical domain than I would ever know about. >> >> -------- Original Message -------- >> Date: Thu, 22 Nov 2007 10:30:11 -0200 >> From: djrondon@gmail.com >> To: sburke@cpan.org >> >> Hi Sean, >> >> Sorry to disturb you, I know you're very busy. >> I'm using your module MIDI-Perl-0.81 >> <http://search.cpan.org/%7Esburke/MIDI-Perl-0.81/>. Congratulations, >> it's a very good module. >> I'd like to combine to play midi notes with wave loops. you know. >> Is there any way that I can do it? >> Or taking a simple vision, a track sequencer, where I can put mid >> tracks >> and wav tracks. synchronizing them. >> >> Well, I don't to bother you. >> Thanks for your attention. >> Best Regards, >> >> --DJ Rondon >> >> ~~~ >> >> > http://www.nntp.perl.org/group/perl.midi/2007/11/msg347.html Sun, 25 Nov 2007 08:25:47 +0000 Re: MIDI to for track sequencers by Jeff Harrington Hey DJ, Since you're already using Perl might I suggest Csound as a good combiner of MIDI and audio data with programming involved. (Not a GUI/FruityLoops/Reason type of thing). http://csounds.com There's a mailing list. If you were to post a question about a specific plan you'd get some attention. http://www.csounds.com/list/index.html Jeff http://jeffharrington.org Sean M. Burke wrote: > I figured I'd blow the cobwebs off of this list and see if anyone can > help out this guy below. He's asking about something further into the > practical domain than I would ever know about. > > -------- Original Message -------- > Date: Thu, 22 Nov 2007 10:30:11 -0200 > From: djrondon@gmail.com > To: sburke@cpan.org > > Hi Sean, > > Sorry to disturb you, I know you're very busy. > I'm using your module MIDI-Perl-0.81 > <http://search.cpan.org/%7Esburke/MIDI-Perl-0.81/>. Congratulations, > it's a very good module. > I'd like to combine to play midi notes with wave loops. you know. > Is there any way that I can do it? > Or taking a simple vision, a track sequencer, where I can put mid tracks > and wav tracks. synchronizing them. > > Well, I don't to bother you. > Thanks for your attention. > Best Regards, > > --DJ Rondon > > ~~~ > > http://www.nntp.perl.org/group/perl.midi/2007/11/msg346.html Sat, 24 Nov 2007 18:35:00 +0000 MIDI to for track sequencers by Sean M. Burke I figured I'd blow the cobwebs off of this list and see if anyone can help out this guy below. He's asking about something further into the practical domain than I would ever know about. -------- Original Message -------- Date: Thu, 22 Nov 2007 10:30:11 -0200 From: djrondon@gmail.com To: sburke@cpan.org Hi Sean, Sorry to disturb you, I know you're very busy. I'm using your module MIDI-Perl-0.81 <http://search.cpan.org/%7Esburke/MIDI-Perl-0.81/>. Congratulations, it's a very good module. I'd like to combine to play midi notes with wave loops. you know. Is there any way that I can do it? Or taking a simple vision, a track sequencer, where I can put mid tracks and wav tracks. synchronizing them. Well, I don't to bother you. Thanks for your attention. Best Regards, --DJ Rondon ~~~ http://www.nntp.perl.org/group/perl.midi/2007/11/msg345.html Sat, 24 Nov 2007 18:01:08 +0000 RE: accessing midisport 2x2 using ALSA & MIDI::Music... by Rick Bolen This is the heart of my challenge. The midisport 2x2 usb midi interface requires hotplug to upload firmware to it, which I am successfully doing. When I attach the midisport, hotplug detects it and does its' job, however, since I have a "partial-alsa" install, I don't think the system ever assigns a /dev/<devicename> filename alias to the hardware. I suppose the device is available to the system through IOCTLs or some type of low-level addressing, but I don't know how to: 1) find it; 2) talk to it. If I knew my way around lower-level linux hardware stuff, I could probably work around this and spit bytes out to the device, but I haven't been able to find info on how to accomplish this. Since installing alsa-base & alas-utils requires removing linux-sound-base, which hangs during uninstall, I'm stuck. > #!/usr/bin/perl > use warnings; > use strict; > use diagnostics; > use Fcntl; > require 'sys/soundcard.ph'; > > sysopen(SEQ_FH,'/dev/sequencer',O_WRONLY) or die $!; http://www.nntp.perl.org/group/perl.midi/2006/12/msg344.html Thu, 14 Dec 2006 05:47:27 +0000 Re: accessing midisport 2x2 using ALSA & MIDI::Music... by zentara On Tue, 12 Dec 2006 08:32:29 -0500, rbolen@carolina.rr.com ("Rick Bolen") wrote: >My project was to use a perl script to generate random midi cc event values >that would get sent out to a couple of midi light-dimmer strips (Light >Master) I have (4 dimmers/strip) so I could have nice blinky Christmas >lights. I was hoping to play around with different "equations" (fractal?) in >calculating random intensity values to try and achieve visually interesting >and "organic randomness". > >... maybe by Mardi Gras! >Thanks for all the help, >Rick Sounds like a coll project. Since you already have learned to generate soundcard.ph, here is a routine to send out midi signals, which you might try, they require no modules. You can experiment with the while(1) loop to change sounds, and the $device number to get your usb midi out. I hope it helps you beat the Christmas deadline. :-) #!/usr/bin/perl use warnings; use strict; use diagnostics; use Fcntl; require 'sys/soundcard.ph'; sysopen(SEQ_FH,'/dev/sequencer',O_WRONLY) or die $!; #send_midi_bytes(0xc0,20); #my $patchbytes = send_midi_bytes(0xc0, 2); #print "patchbytes->$patchbytes\n"; #song change ??? #send_midi_bytes(0xf3,6); #send note #send_midi_bytes(0x90 + $channel - 1, $note_no, $velocity); while(1){ for my $note (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 $!" ); } } __END__ -- I'm not really a human, but I play one on earth. http://zentara.net/japh.html http://www.nntp.perl.org/group/perl.midi/2006/12/msg343.html Thu, 14 Dec 2006 04:41:01 +0000 RE: accessing midisport 2x2 using ALSA & MIDI::Music... by Rick Bolen Yes, you're correct, I should take this to a Debian forum. Debian's is nearing the next release, and I was holding out for that, because I'm using somewhat unusual hardware. Just for documentation purposes (in case some poor soul wanders a similar path), I have an Openbrick computer (via epia 533Mhz, lex mobo) running off a compact flash card using hacom's cf images. They changed Debian around abit to write less often to the cf among other things. They've tweaked the kernel for their hardware and I haven't looked to see if they left a .config laying around, so upgrading this to the newest may be more of a challenge than usual. My project was to use a perl script to generate random midi cc event values that would get sent out to a couple of midi light-dimmer strips (Light Master) I have (4 dimmers/strip) so I could have nice blinky Christmas lights. I was hoping to play around with different "equations" (fractal?) in calculating random intensity values to try and achieve visually interesting and "organic randomness". ... maybe by Mardi Gras! Thanks for all the help, Rick > -----Original Message----- > From: Linux@lists.develooper.com [mailto:Linux@lists.develooper.com]On > Behalf Of zentara > Sent: Tuesday, December 12, 2006 6:52 AM > To: midi@perl.org > Subject: Re: accessing midisport 2x2 using ALSA & MIDI::Music... > > > On Sun, 10 Dec 2006 08:41:02 -0500, rbolen@carolina.rr.com ("Rick > Bolen") wrote: > > >I was on my way to doing just that when the next snag caught me. > > > >When I apt-get (debian) alsa-base, it wants to install the > alsa-utils which > >contains most if not all the utils you mention. However, apt-get > also wants > >to remove linux-sound-base. > > > >That's fine with me I guess, but then apt-get hangs on "Removing > >linux-sound-base...". > > > >Arrrgggggg! Any thoughts on how to tshoot an "apt-get --purge remove xxx" > >hang? > > > >Perhaps dpkg offers more ruthless shovel? > > > >Thanks for the ideas. I feel like I'm very close (... well, kinda), > >Rick > > I see 2 choices ( and I always build from source, so my package > manager experience is limited) > > 1. Look at the options for apt-get, and see if there is a 'force' > or 'no dependency checks' option. > Rpm has this for the case you descibe, where it overrides > the package manager. > > 2. Best bet. Just get the tar ball source, and build them yourself. > http://www.alsa-project.org/alsa/ftp/utils/ > > Your problem will be to find the version which matches your > old debian kernel level. The newest version will probably > not be compatible with the older debian kernel. > Of course you could always, get the latest kernel, which has > alsa built-in, then get the latest alsa-utils source package. > > Maybe you should ask this on a debian saavy forum? > > > > -- > I'm not really a human, but I play one on earth. > http://zentara.net/japh.html http://www.nntp.perl.org/group/perl.midi/2006/12/msg342.html Tue, 12 Dec 2006 05:35:04 +0000 Re: accessing midisport 2x2 using ALSA & MIDI::Music... by zentara On Sun, 10 Dec 2006 08:41:02 -0500, rbolen@carolina.rr.com ("Rick Bolen") wrote: >I was on my way to doing just that when the next snag caught me. > >When I apt-get (debian) alsa-base, it wants to install the alsa-utils which >contains most if not all the utils you mention. However, apt-get also wants >to remove linux-sound-base. > >That's fine with me I guess, but then apt-get hangs on "Removing >linux-sound-base...". > >Arrrgggggg! Any thoughts on how to tshoot an "apt-get --purge remove xxx" >hang? > >Perhaps dpkg offers more ruthless shovel? > >Thanks for the ideas. I feel like I'm very close (... well, kinda), >Rick I see 2 choices ( and I always build from source, so my package manager experience is limited) 1. Look at the options for apt-get, and see if there is a 'force' or 'no dependency checks' option. Rpm has this for the case you descibe, where it overrides the package manager. 2. Best bet. Just get the tar ball source, and build them yourself. http://www.alsa-project.org/alsa/ftp/utils/ Your problem will be to find the version which matches your old debian kernel level. The newest version will probably not be compatible with the older debian kernel. Of course you could always, get the latest kernel, which has alsa built-in, then get the latest alsa-utils source package. Maybe you should ask this on a debian saavy forum? -- I'm not really a human, but I play one on earth. http://zentara.net/japh.html http://www.nntp.perl.org/group/perl.midi/2006/12/msg341.html Tue, 12 Dec 2006 03:55:35 +0000 RE: accessing midisport 2x2 using ALSA & MIDI::Music... by Rick Bolen Thanks for the advice. I was on my way to doing just that when the next snag caught me. When I apt-get (debian) alsa-base, it wants to install the alsa-utils which contains most if not all the utils you mention. However, apt-get also wants to remove linux-sound-base. That's fine with me I guess, but then apt-get hangs on "Removing linux-sound-base...". Arrrgggggg! Any thoughts on how to tshoot an "apt-get --purge remove xxx" hang? Perhaps dpkg offers more ruthless shovel? Thanks for the ideas. I feel like I'm very close (... well, kinda), Rick > -----Original Message----- > From: Linux@lists.develooper.com [mailto:Linux@lists.develooper.com]On > Behalf Of zentara > Sent: Sunday, December 10, 2006 8:02 AM > To: midi@perl.org > Subject: Re: accessing midisport 2x2 using ALSA & MIDI::Music... > > > On Sat, 9 Dec 2006 21:54:16 -0500, rbolen@carolina.rr.com ("Rick Bolen") > wrote: > > > >When I connect the Midisport 2x2 to the usb port, how do I determine what > >device name and midi_dev number it is assigned by the system? Nothing is > >reported in logs except the usb assignments. > >Thanks, > > Use the alsa midi ultilities > amidi > aplaymidi > arecordmidi > aconnect > > run them with the -h option to get a list > of options. > > amidi -h > > amidi -l will list all your ports, then use those > in the -p option of the other utilities. > > P.S. Keep notes on what you find successful, because > you will probably forget after awhile. :-) > > > > -- > I'm not really a human, but I play one on earth. > http://zentara.net/japh.html http://www.nntp.perl.org/group/perl.midi/2006/12/msg340.html Sun, 10 Dec 2006 05:43:15 +0000 Re: accessing midisport 2x2 using ALSA & MIDI::Music... by zentara On Sat, 9 Dec 2006 21:54:16 -0500, rbolen@carolina.rr.com ("Rick Bolen") wrote: >When I connect the Midisport 2x2 to the usb port, how do I determine what >device name and midi_dev number it is assigned by the system? Nothing is >reported in logs except the usb assignments. >Thanks, Use the alsa midi ultilities amidi aplaymidi arecordmidi aconnect run them with the -h option to get a list of options. amidi -h amidi -l will list all your ports, then use those in the -p option of the other utilities. P.S. Keep notes on what you find successful, because you will probably forget after awhile. :-) -- I'm not really a human, but I play one on earth. http://zentara.net/japh.html http://www.nntp.perl.org/group/perl.midi/2006/12/msg339.html Sun, 10 Dec 2006 05:05:06 +0000 RE: accessing midisport 2x2 using ALSA & MIDI::Music... by Rick Bolen Can't let this die... even though it's killing me! Midisport firmware is loading (via hotplug) and the 2x2's led pulses seductively. I resolved ::Realtime's last problems by running h2ph. Now the test script runs, but it reports: syswrite() on a closed file handle SEQ_FH at ...Realtime.pm line 198. ... Uncaught exception at user code: Couldn't write to /dev/sequencer: Bad file descriptor at ...Realtime.pm line 201. This all happens because unchecked sysopen() in ::Realtime.pm fails on the whatever I pass as dev (default = /dev/sequencer). I added a "die" statement there, and now that's where I fail. cat /proc/asound/cards & /devices lists info on the M2x2. When I connect the Midisport 2x2 to the usb port, how do I determine what device name and midi_dev number it is assigned by the system? Nothing is reported in logs except the usb assignments. Thanks, Rick > -----Original Message----- > From: Rick Bolen [mailto:rbolen@carolina.rr.com] > Sent: Saturday, December 09, 2006 6:16 PM > To: midi@perl.org > Subject: RE: accessing midisport 2x2 using ALSA & MIDI::Music... > > > > Both MIDI::Music and MIDI::Realtime CPAN packages are broken. ::Music > requires OSS as you said, and it has a dependency on a soundcard file. > > ::Realtime says it requires OSS, but its' package install is broken as > "make" and followers fail. > > I've tried it on Debian Sarge, Debian Testing and Suse 9.1. I > haven;t looked > into why the package is broken... it's been a long time since I understood > all perl module install stuff at a sufficiently granular level to > tshoot it. > > This part of linux (midi) is a mess and getting worse (with mixed > dependencies on OSS vs ALSA vs whatever). Maybe I'll get back to this one > day... > > Thanks for the suggestions, > > Rick > > > -----Original Message----- > > From: Linux@lists.develooper.com [mailto:Linux@lists.develooper.com]On > > Behalf Of zentara > > Sent: Friday, December 08, 2006 10:04 AM > > To: midi@perl.org > > Subject: Re: accessing midisport 2x2 using ALSA & MIDI::Music... > > > > > > On Thu, 7 Dec 2006 22:31:38 -0500, rbolen@carolina.rr.com ("Rick Bolen") > > wrote: > > > > >I'm trying to get MIDI::Music to send midi data out to the USB > connected > > >Midisport 2x2. Ifinally got the Midisport initialized via hotplug and > > >firmware dowloading, but... > > > > > >I'm using alsa on Debian testing, and MIDI::Music wants to write to > > > > MIDI::Musis says it needs OSS, not alsa. > > > > >/dev/music (which doesn't exist). I tried creating symlinks from > > /dev/music > > >to /dev/midi[0-3] but MIDI::Music still can't find the port. > > > > > >Any way to get the data moving? > > >Rick > > This is from testing a few years ago, I don't have a setup right now > > to test, but.............. > > > > If you just want to test the USB connection, it usually is device 5. > > This script uses MIDI::Realtime to play keys from the computer > > keyboard, but you can assign midi_device = 5 and maybe modify the > > loop, to get input from the midi keyboard. > > > > Also do "amidi -h" and google for amidi, to see how to do it > > with amidi. > > > > #!/usr/bin/perl > > use warnings; > > use strict; > > use MIDI::Realtime; > > use Term::ReadKey; > > > > ReadMode('cbreak'); > > > > #this works on linux with an SBlive, Alsa 1.0.4, kernel 2.4.22 > > # on my system, it has a bug when usb-hotplug and usb-midi are used > > # and the hotplug-blacklist is not setup properly > > > > my $midi = MIDI::Realtime->new(dev=>'/dev/sequencer', > > midi_device=> 5); #1,2,3,4 > > #5 for external keyboard > > #thru USB UM-1 connector > > > > while(1){ > > my $char; > > if (defined ($char = ReadKey(0)) ) { > > print ord($char),"\n"; # input was waiting and it was $char > > > > $midi->patch(ord($char)); #change instrument, 127 gives > > "exploding keyboard" :-) > > $midi->note(50,1,127); #play note > > > > } else { > > # no input was waiting > > } > > } > > > > > > ReadMode('normal'); # restore normal tty settings > > > > __END__ > > > > > > to send to the keyboard > > > > #!/usr/bin/perl > > use warnings; > > use strict; > > use MIDI::Realtime; > > use diagnostics; > > > > #works > > my $midi = MIDI::Realtime->new(dev=>'/dev/sequencer', > > midi_device=> 5); #1,2,3,4 > > #5 is USB midi > > # Play note 47 with maximum velocity on channel 1 > > $midi->note(47,1,127); > > > > # Now have some fun with randomness > > > > my @notes = (37 .. 50); > > # use all the channels (with extra drums) > > my @channels = (1 .. 16, 10, 10, 10); > > my @velocities = (70 .. 100); > > > > for (0 .. 127) { > > $midi->note($notes[rand(@notes)], > > $channels[rand(@channels)], > > $velocities[rand(@velocities)] > > ); > > > > # Wait for a tenth of a second > > select(undef,undef,undef, 0.10); > > } > > __END__ > > > > > > > > > > > > > > > > -- > > I'm not really a human, but I play one on earth. > > http://zentara.net/japh.html http://www.nntp.perl.org/group/perl.midi/2006/12/msg338.html Sat, 09 Dec 2006 18:56:24 +0000 RE: accessing midisport 2x2 using ALSA & MIDI::Music... by Rick Bolen Both MIDI::Music and MIDI::Realtime CPAN packages are broken. ::Music requires OSS as you said, and it has a dependency on a soundcard file. ::Realtime says it requires OSS, but its' package install is broken as "make" and followers fail. I've tried it on Debian Sarge, Debian Testing and Suse 9.1. I haven;t looked into why the package is broken... it's been a long time since I understood all perl module install stuff at a sufficiently granular level to tshoot it. This part of linux (midi) is a mess and getting worse (with mixed dependencies on OSS vs ALSA vs whatever). Maybe I'll get back to this one day... Thanks for the suggestions, Rick > -----Original Message----- > From: Linux@lists.develooper.com [mailto:Linux@lists.develooper.com]On > Behalf Of zentara > Sent: Friday, December 08, 2006 10:04 AM > To: midi@perl.org > Subject: Re: accessing midisport 2x2 using ALSA & MIDI::Music... > > > On Thu, 7 Dec 2006 22:31:38 -0500, rbolen@carolina.rr.com ("Rick Bolen") > wrote: > > >I'm trying to get MIDI::Music to send midi data out to the USB connected > >Midisport 2x2. Ifinally got the Midisport initialized via hotplug and > >firmware dowloading, but... > > > >I'm using alsa on Debian testing, and MIDI::Music wants to write to > > MIDI::Musis says it needs OSS, not alsa. > > >/dev/music (which doesn't exist). I tried creating symlinks from > /dev/music > >to /dev/midi[0-3] but MIDI::Music still can't find the port. > > > >Any way to get the data moving? > >Rick > This is from testing a few years ago, I don't have a setup right now > to test, but.............. > > If you just want to test the USB connection, it usually is device 5. > This script uses MIDI::Realtime to play keys from the computer > keyboard, but you can assign midi_device = 5 and maybe modify the > loop, to get input from the midi keyboard. > > Also do "amidi -h" and google for amidi, to see how to do it > with amidi. > > #!/usr/bin/perl > use warnings; > use strict; > use MIDI::Realtime; > use Term::ReadKey; > > ReadMode('cbreak'); > > #this works on linux with an SBlive, Alsa 1.0.4, kernel 2.4.22 > # on my system, it has a bug when usb-hotplug and usb-midi are used > # and the hotplug-blacklist is not setup properly > > my $midi = MIDI::Realtime->new(dev=>'/dev/sequencer', > midi_device=> 5); #1,2,3,4 > #5 for external keyboard > #thru USB UM-1 connector > > while(1){ > my $char; > if (defined ($char = ReadKey(0)) ) { > print ord($char),"\n"; # input was waiting and it was $char > > $midi->patch(ord($char)); #change instrument, 127 gives > "exploding keyboard" :-) > $midi->note(50,1,127); #play note > > } else { > # no input was waiting > } > } > > > ReadMode('normal'); # restore normal tty settings > > __END__ > > > to send to the keyboard > > #!/usr/bin/perl > use warnings; > use strict; > use MIDI::Realtime; > use diagnostics; > > #works > my $midi = MIDI::Realtime->new(dev=>'/dev/sequencer', > midi_device=> 5); #1,2,3,4 > #5 is USB midi > # Play note 47 with maximum velocity on channel 1 > $midi->note(47,1,127); > > # Now have some fun with randomness > > my @notes = (37 .. 50); > # use all the channels (with extra drums) > my @channels = (1 .. 16, 10, 10, 10); > my @velocities = (70 .. 100); > > for (0 .. 127) { > $midi->note($notes[rand(@notes)], > $channels[rand(@channels)], > $velocities[rand(@velocities)] > ); > > # Wait for a tenth of a second > select(undef,undef,undef, 0.10); > } > __END__ > > > > > > > > -- > I'm not really a human, but I play one on earth. > http://zentara.net/japh.html http://www.nntp.perl.org/group/perl.midi/2006/12/msg337.html Sat, 09 Dec 2006 15:18:22 +0000 RE: accessing midisport 2x2 using ALSA & MIDI::Music... by Rick Bolen Thanks zentara. I'll try your suggestion. I had read your posts on experimenting with MIDI::Realtime previously. Ultimately I need to send CC events out the port, which I don't know if MIDI::Realtime supports, but for testing I can use note events. I tried installing OSS-Compat (alsa <-> oss), but it didn''t change anything (although I didn't config anything in it either). Regards, Rick > -----Original Message----- > From: Linux@lists.develooper.com [mailto:Linux@lists.develooper.com]On > Behalf Of zentara > Sent: Friday, December 08, 2006 10:04 AM > To: midi@perl.org > Subject: Re: accessing midisport 2x2 using ALSA & MIDI::Music... > > > On Thu, 7 Dec 2006 22:31:38 -0500, rbolen@carolina.rr.com ("Rick Bolen") > wrote: > > >I'm trying to get MIDI::Music to send midi data out to the USB connected > >Midisport 2x2. Ifinally got the Midisport initialized via hotplug and > >firmware dowloading, but... > > > >I'm using alsa on Debian testing, and MIDI::Music wants to write to > > MIDI::Musis says it needs OSS, not alsa. > > >/dev/music (which doesn't exist). I tried creating symlinks from > /dev/music > >to /dev/midi[0-3] but MIDI::Music still can't find the port. > > > >Any way to get the data moving? > >Rick > This is from testing a few years ago, I don't have a setup right now > to test, but.............. > > If you just want to test the USB connection, it usually is device 5. > This script uses MIDI::Realtime to play keys from the computer > keyboard, but you can assign midi_device = 5 and maybe modify the > loop, to get input from the midi keyboard. > > Also do "amidi -h" and google for amidi, to see how to do it > with amidi. > > #!/usr/bin/perl > use warnings; > use strict; > use MIDI::Realtime; > use Term::ReadKey; > > ReadMode('cbreak'); > > #this works on linux with an SBlive, Alsa 1.0.4, kernel 2.4.22 > # on my system, it has a bug when usb-hotplug and usb-midi are used > # and the hotplug-blacklist is not setup properly > > my $midi = MIDI::Realtime->new(dev=>'/dev/sequencer', > midi_device=> 5); #1,2,3,4 > #5 for external keyboard > #thru USB UM-1 connector > > while(1){ > my $char; > if (defined ($char = ReadKey(0)) ) { > print ord($char),"\n"; # input was waiting and it was $char > > $midi->patch(ord($char)); #change instrument, 127 gives > "exploding keyboard" :-) > $midi->note(50,1,127); #play note > > } else { > # no input was waiting > } > } > > > ReadMode('normal'); # restore normal tty settings > > __END__ > > > to send to the keyboard > > #!/usr/bin/perl > use warnings; > use strict; > use MIDI::Realtime; > use diagnostics; > > #works > my $midi = MIDI::Realtime->new(dev=>'/dev/sequencer', > midi_device=> 5); #1,2,3,4 > #5 is USB midi > # Play note 47 with maximum velocity on channel 1 > $midi->note(47,1,127); > > # Now have some fun with randomness > > my @notes = (37 .. 50); > # use all the channels (with extra drums) > my @channels = (1 .. 16, 10, 10, 10); > my @velocities = (70 .. 100); > > for (0 .. 127) { > $midi->note($notes[rand(@notes)], > $channels[rand(@channels)], > $velocities[rand(@velocities)] > ); > > # Wait for a tenth of a second > select(undef,undef,undef, 0.10); > } > __END__ > > > > > > > > -- > I'm not really a human, but I play one on earth. > http://zentara.net/japh.html http://www.nntp.perl.org/group/perl.midi/2006/12/msg336.html Fri, 08 Dec 2006 07:42:17 +0000 Re: accessing midisport 2x2 using ALSA & MIDI::Music... by zentara On Thu, 7 Dec 2006 22:31:38 -0500, rbolen@carolina.rr.com ("Rick Bolen") wrote: >I'm trying to get MIDI::Music to send midi data out to the USB connected >Midisport 2x2. Ifinally got the Midisport initialized via hotplug and >firmware dowloading, but... > >I'm using alsa on Debian testing, and MIDI::Music wants to write to MIDI::Musis says it needs OSS, not alsa. >/dev/music (which doesn't exist). I tried creating symlinks from /dev/music >to /dev/midi[0-3] but MIDI::Music still can't find the port. > >Any way to get the data moving? >Rick This is from testing a few years ago, I don't have a setup right now to test, but.............. If you just want to test the USB connection, it usually is device 5. This script uses MIDI::Realtime to play keys from the computer keyboard, but you can assign midi_device = 5 and maybe modify the loop, to get input from the midi keyboard. Also do "amidi -h" and google for amidi, to see how to do it with amidi. #!/usr/bin/perl use warnings; use strict; use MIDI::Realtime; use Term::ReadKey; ReadMode('cbreak'); #this works on linux with an SBlive, Alsa 1.0.4, kernel 2.4.22 # on my system, it has a bug when usb-hotplug and usb-midi are used # and the hotplug-blacklist is not setup properly my $midi = MIDI::Realtime->new(dev=>'/dev/sequencer', midi_device=> 5); #1,2,3,4 #5 for external keyboard #thru USB UM-1 connector while(1){ my $char; if (defined ($char = ReadKey(0)) ) { print ord($char),"\n"; # input was waiting and it was $char $midi->patch(ord($char)); #change instrument, 127 gives "exploding keyboard" :-) $midi->note(50,1,127); #play note } else { # no input was waiting } } ReadMode('normal'); # restore normal tty settings __END__ to send to the keyboard #!/usr/bin/perl use warnings; use strict; use MIDI::Realtime; use diagnostics; #works my $midi = MIDI::Realtime->new(dev=>'/dev/sequencer', midi_device=> 5); #1,2,3,4 #5 is USB midi # Play note 47 with maximum velocity on channel 1 $midi->note(47,1,127); # Now have some fun with randomness my @notes = (37 .. 50); # use all the channels (with extra drums) my @channels = (1 .. 16, 10, 10, 10); my @velocities = (70 .. 100); for (0 .. 127) { $midi->note($notes[rand(@notes)], $channels[rand(@channels)], $velocities[rand(@velocities)] ); # Wait for a tenth of a second select(undef,undef,undef, 0.10); } __END__ -- I'm not really a human, but I play one on earth. http://zentara.net/japh.html http://www.nntp.perl.org/group/perl.midi/2006/12/msg335.html Fri, 08 Dec 2006 07:07:09 +0000 accessing midisport 2x2 using ALSA & MIDI::Music... by Rick Bolen Hello, I'm trying to get MIDI::Music to send midi data out to the USB connected Midisport 2x2. Ifinally got the Midisport initialized via hotplug and firmware dowloading, but... I'm using alsa on Debian testing, and MIDI::Music wants to write to /dev/music (which doesn't exist). I tried creating symlinks from /dev/music to /dev/midi[0-3] but MIDI::Music still can't find the port. Any way to get the data moving? Thanks, Rick http://www.nntp.perl.org/group/perl.midi/2006/12/msg334.html Thu, 07 Dec 2006 19:33:47 +0000 Re: Transforming midi note numbers by Marcus Thanks to Christian and Paul. They answered my question.... Marcus --------------------------------- How low will we go? Check out Yahoo! Messengers low PC-to-Phone call rates. http://www.nntp.perl.org/group/perl.midi/2006/10/msg333.html Mon, 09 Oct 2006 15:45:17 +0000 Re: Transforming midi note numbers by peter.billam Marcus wrote: > I need a perl script that given an input midi file writes a new file > with notes transformed (for example, transposed by +3 note numbers). One possibilty (not much tested) follows after .sig, usage: miditranspose -3 fn.mid > fn_low.mid # transposes down 3 semtiones miditranspose +5 fn.mid > fn_high.mid # transposes up 3 semtiones Regards, Peter AUS/TAS/DPIW/CIT/Servers hbt/lnd/l8 6233 3061 http://www.pjb.com.au Pasaré, pasarémos dice el agua y canta la verdad contra la piedra -- Pablo Neruda ------------------------------------------------------------------ #! /usr/bin/perl eval 'require MIDI'; if ($@) { die "you'll need to install the MIDI::Perl module from www.cpan.org\n"; } import MIDI; my $Version = '1.0'; # check format of options args... $amount = shift; if ($amount !~ /[+-]?\d+/ || $amount < -25 || $amount > +25) { die "improbable transposition by $amount semitones\n"; } $amount = 0 + $amount; my $opus = MIDI::Opus->new({ 'from_file' => $ARGV[$[] || '-'}); foreach my $track ($opus->tracks()) { # there will usually be only one my $events_r = $track->events_r(); foreach my $event (@{$events_r}) { # varnames are only accurate for note_on and note_off events: my ($evtype, $dticks, $cha, $note, $vol) = @$event; if ($evtype eq 'note_on' | $evtype eq 'note_off') { if ($cha != 9) { ${$event}[$[+3] += $amount; } } } } $opus->write_to_file( '>-' ); __END__ =pod =head1 NAME miditranspose - Simulates the old tape-loop delay transpose on MIDI files =head1 SYNOPSIS miditranspose -3 fn.mid > fn_low.mid # transposes down 3 semtiones miditranspose +5 fn.mid > fn_high.mid # transposes up 3 semtiones =head1 DESCRIPTION By default, MIDI channel 9 (or 10, if you're counting 1..16) is left unchanged as, in General MIDI, it's the percussion channel. =head1 OPTIONS These options are currently unimplemented :-) =over 3 =item I<-a> All channels are transposed, i.e. including channel 9. =item I<-n 3,4,6,9,12> Channels 3,4,6,9 and 12 will Not be transposed. The default is I<-n 9> =back =head1 AUTHOR Peter J Billam http://www.pjb.com.au/comp/contact.html =head1 CREDITS Based on Sean Burke's MIDI::Perl CPAN module. =head1 SEE ALSO http://search.cpan.org/~sburke http://www.pjb.com.au/muscript http://www.pjb.com.au/midi =cut http://www.nntp.perl.org/group/perl.midi/2006/10/msg332.html Mon, 09 Oct 2006 04:25:44 +0000 Re: Transforming midi note numbers by Christian Renz Hi Marcus, you could take a look at my modules MIDI::Tools and Music::Gestalt: http://search.cpan.org/~crenz/MIDI-Tools-0.02/ http://search.cpan.org/~crenz/Music-Gestalt-0.06/ You might also have a use for MIDI::Pitch: http://search.cpan.org/~crenz/MIDI-Pitch-0.7/lib/MIDI/Pitch.pm Regards, Christian -- crenz@web42.com - http://christian.web42.com - http://www.web42.com/crenz/ "A man who gives in to temptation after five minutes simply does not know what it would have been like an hour later. That is why bad people, in one sense, know very little about badness. They have lived a sheltered life by always giving in." -- C.S. Lewis http://www.nntp.perl.org/group/perl.midi/2006/10/msg331.html Mon, 09 Oct 2006 04:25:38 +0000 Transforming midi note numbers by Marcus Hi everybody, I'm new to the list. I don't yet know how to search the archives. I need a perl script that given an input midi file writes out a new file with notes transformed (for example, transposed by +3 note numbers). Has such a script been published to this list? If so, could a kind generous soul point it out to me? Thanks so much! Marcus # Perfect Buzz Music Podcast http://web.mac.com/marcushobbs/iWeb/PerfectBuzzMusic/Perfect%20Buzz%20Music%20Podcast/Perfect%20Buzz%20Music%20Podcast.html # Perfect Buzz Music Home http://www.perfectbuzzmusic.com --------------------------------- All-new Yahoo! Mail - Fire up a more powerful email and get things done faster. http://www.nntp.perl.org/group/perl.midi/2006/10/msg330.html Sun, 08 Oct 2006 16:45:58 +0000 Re: John Stump Overdrive by zentara On Sun, 21 May 2006 19:38:42 -0800, sburke@cpan.org ("Sean M. Burke") wrote: >John Stump Overdrive: > http://substitute.livejournal.com/1394474.html So where can we get the midi? :-) -- I'm not really a human, but I play one on earth. http://zentara.net/japh.html http://www.nntp.perl.org/group/perl.midi/2006/05/msg329.html Mon, 22 May 2006 06:53:13 +0000 John Stump Overdrive by Sean M. Burke John Stump Overdrive: http://substitute.livejournal.com/1394474.html -- Sean M. Burke http://search.cpan.org/~sburke/ *** You have been kicked off channel #music_typesetting_britney420 http://www.nntp.perl.org/group/perl.midi/2006/05/msg328.html Sun, 21 May 2006 20:39:43 +0000 Re: MIDI Simple Help, Read @Notes? by zentara On Wed, 30 Nov 2005 14:46:33 -0700, rsj6@qwest.net (Sigmund Rothschild) wrote: >I'm hoping to write a Perl program with MIDI::Simple that would: > >1. Read a pre-existing MIDI file. >2. Insert new MIDI note number values (pitch, 0-127) from an array into the pre-existing MIDI file's note on and off events. >3. Write the result to a new MIDI file. >#How do I access the note values from read_score and assign them the new note numbers? Hi, I've been using this script to modify lyrics in midi-karaoke files, maybe it can be applied to notes? It dumps each track, and if you figure out the meaning of the various midi control characters, you might be able to change the note played at any one point. It writes a file that is in the form of a regenerator script, to reproduce the new midi file. For text events, each text fragment is prefixed by a hex value of it's length, so when you change text, you must change that preceding number too. I'm not familiar enough with the midi specs to say what is needed to change individual note events, but if you find out, please post it. :-) ####################################################### #!/usr/bin/perl -w #Mr. Muskrat of perlmonks.org use strict; use MIDI; for my $midi (@ARGV) { open(*STDOUT, ">", "$midi.pl"); print <<'EOP'; #!/usr/bin/perl -w use MIDI; my $opus = EOP my $opus = MIDI::Opus->new({ 'from_file' => $midi, 'no_parse' => 1 }); $opus->dump( { dump_tracks => 1 } ); print "\$opus->write_to_file('$midi');\n"; } __END__ -- I'm not really a human, but I play one on earth. http://zentara.net/japh.html http://www.nntp.perl.org/group/perl.midi/2006/01/msg327.html Sat, 14 Jan 2006 08:37:04 +0000 papers on MIDI things by Sean M. Burke Of interest: http://www.langston.com/Papers/ -- Sean M. Burke http://search.cpan.org/~sburke/ http://www.nntp.perl.org/group/perl.midi/2006/01/msg326.html Sat, 14 Jan 2006 00:35:19 +0000 Re: MIDI Simple Help, Read @Notes? by \js hi On 11/30/05, Sigmund Rothschild <rsj6@qwest.net> wrote: > Mainly, I don't understand how to write the new values to the array or hash > that is holding the MIDI note events, @Notes, as I can't access them. use Data::Dumper; print Dumper ( $obj ); this will dump your data structure as a text string. if you don't know about references i'd suggest this: perldoc perlreftut perldoc perlref good luck! -- \js [ http://or8.net/~johns/ ] http://www.nntp.perl.org/group/perl.midi/2005/11/msg325.html Wed, 30 Nov 2005 14:07:27 +0000 MIDI Simple Help, Read @Notes? by Sigmund Rothschild I'm hoping to write a Perl program with MIDI::Simple that would: 1. Read a pre-existing MIDI file. 2. Insert new MIDI note number values (pitch, 0-127) from an array into the pre-existing MIDI file's note on and off events. 3. Write the result to a new MIDI file. I completed another project with the MIDI module and have found it to be really great. I read Sean Burke's paper "Perl and MIDI: Simple Languages, Easy Music" online, went through the archive at http://www.nntp.perl.org/group/perl.midi, and looked at the the PODs on the Cpan, and I'm stumped. There are critical pieces of information that I am missing, as I am new to Perl and OOP. I have tried three different approaches and have not been able to make any of them work. Mainly, I don't understand how to write the new values to the array or hash that is holding the MIDI note events, @Notes, as I can't access them. Any help to get the snippet below to work would be greatly appreciated. -Sig #!/System/Library/Perl #try_MIDI_simple_write-1.plx use warnings; use strict; use MIDI::Simple; new_score; my $obj = read_score($ARGV[0]); #How do I access the note values from read_score and assign them the new note numbers? my $notes_r; my @old_notes; $notes_r = $obj->Notes_r; ##From Cpan MIDI::Simple POD # to read: @old_notes = @$notes_r; # to write: @$notes_r = (13,17,22); $notes_r = $obj->Notes_r; ##To Set? @$notes_r = (); write_score 'Changed_Notes.mid'; http://www.nntp.perl.org/group/perl.midi/2005/11/msg324.html Wed, 30 Nov 2005 13:46:49 +0000 MIDI-Perl module maintainership by Sean M. Burke I've been thinking lately that it's been years and years and years since I thought to add anything to MIDI-Perl in general, or MIDI::Simple specifically. I figure the modules might benefit from my passing them on to a new maintainer or group of maintainers. Would anyone here be interested? http://www.nntp.perl.org/group/perl.midi/2005/10/msg323.html Mon, 31 Oct 2005 17:56:35 +0000 mailing list archives non-existenct? by Terrence Brannon The perl.org page for this mailing list: http://lists.cpan.org/showlist.cgi?name=midi Lists the following as the archive for this list: http://www.mail-archive.com/midi@perl.org/ However, that list does not exist. http://www.nntp.perl.org/group/perl.midi/2005/10/msg322.html Tue, 11 Oct 2005 07:01:12 +0000 midi2chord project on sourceforge by Markus Kollmar Hi, I have registered a project called "midi2chord" on sourceforge ("http://sourceforge.net/projects/midi2chord/"). The programming-language is perl and I use the very helpful MIDI perl-module. midi2chord takes midifiles and prints chords as result (ok, at least it should ;-)). There is now a new release online. The development status is not stable and the code may not be very good. But it should show the way the project wants to go. If you are interested: Help or comments are welcome! Regards Markus Kollmar http://www.nntp.perl.org/group/perl.midi/2005/08/msg321.html Tue, 02 Aug 2005 16:00:48 +0000 vexations in perl by john saylor hi i gave a presentation at the most recent YAPC about a project i did using MIDI::Simple. you can see the slides here: http://or8.net/~johns/vex/ there are links in the presentation to download the source, grab a midi file, or generate your own vexations. comments are encouraged. -- \js [ http://or8.net/~johns/ ] http://www.nntp.perl.org/group/perl.midi/2005/07/msg320.html Sun, 10 Jul 2005 09:32:34 +0000 Re: MIDI OO interface? by Christian Renz Sorry; I was a bit unclear in my message. The MIDI modules have an OO interface already, but I meant an extension of this interface to include event lists and scores. Greetings, Christian -- crenz@web42.com - http://www.web42.com/crenz/ - http://www.web42.com/ "What we call Man's power over Nature turns out to be a power exercised by some men over other men with Nature as its instrument." -- C.S. Lewis, The Abolition of Man http://www.nntp.perl.org/group/perl.midi/2005/06/msg319.html Sat, 04 Jun 2005 16:11:16 +0000 MIDI OO interface? by Christian Renz Hi all, I currently do a lot of Perl MIDI stuff for a university project. I work mostly on modifying and transitioning between small snippets of MIDI (MIDI::Morph will do that satisfactorily one day). For that, I need quite a lot of helper functions. I'll probably update my MIDI::Tools soon with stuff like append_scores(), quantize_pitch() (to scales), quantize_durations() etc. This has led me to the following question: Is it planned to have an object-oriented version of the MIDI modules? I'd like to do stuff like my $m = MIDI::Score->new(...) $m->Append(...); $n = $m->Copy(); $m->Quantize(...); $e = $m->AsEvents(); # $e is now an MIDI::Events object and so on. I think that could have the potential of providing quite a nice interface. I'd definitely be willing to help out with an OO wrapper for the existing modules. Greetings, Christian -- crenz@web42.com - http://www.web42.com/crenz/ - http://www.web42.com/ "I'm reminded of the day my daughter came in, looked over my shoulder at some Perl 4 code, and said, 'What is that, swearing?'" -- Larry Wall http://www.nntp.perl.org/group/perl.midi/2005/06/msg318.html Sat, 04 Jun 2005 16:10:33 +0000 MIDI-Perl 0.81 out (more cowbell) by Sean M. Burke Recently stumbled on the fact that the current version of MIDI-Perl in CPAN had old-style tests -- a test.pl file, instead of a t/whatever.t file. So I started spiffing up the dist today, and ended up also spellchecking the docs, fixing some stale URLs, and adding more tests, just for kicks. There were no substantive changes to the Perl code tho. But if you do install this version, you will have the joy of seeing this fly by at the "make test" stage: t/20_cowbell....ok Also, I got ambitious and spiffed up the MIDI-Perl homepage a bit: http://interglacial.com/~sburke/midi-perl/ -- Sean M. Burke http://search.cpan.org/~sburke/ http://www.nntp.perl.org/group/perl.midi/2005/01/msg317.html Sun, 30 Jan 2005 02:03:56 +0000 Re: Mac::CoreMIDI by Christian Renz >This is pretty neat! > http://search.cpan.org/~crenz/Mac-CoreMIDI/ Thanks for the flowers :-). It is pretty much a work in progress, though. Right now, the only thing you can do is to query devices. I plan to implement reading MIDI data soon, but I am facing the problem of how to exchange data between threads, as Mac OS X runs your callback in another (high priority) thread. As soon as I figure out how to deal with that, the module will be much more useful :-). In the end, I hope to be able to play (and record) MIDI-Perl-style data directly. _That_ would be neat :-). Greetings, Christian Renz -- crenz@web42.com - http://www.web42.com/crenz/ - http://www.web42.com/ "The real job of every moral teacher is to keep on bringing us back, time after time, to the old simple principles which we are all so anxious not to see." -- C.S. Lewis, Mere Christianity http://www.nntp.perl.org/group/perl.midi/2005/01/msg316.html Wed, 26 Jan 2005 02:13:08 +0000 Mac::CoreMIDI by Sean M. Burke This is pretty neat! http://search.cpan.org/~crenz/Mac-CoreMIDI/ -- Sean M. Burke http://search.cpan.org/~sburke/ http://www.nntp.perl.org/group/perl.midi/2005/01/msg315.html Tue, 25 Jan 2005 17:53:34 +0000 Re: where is the archive? by Jean-Pierre Vidal Le mardi 18 Janvier 2005 01:59, Noel Lairson a écrit : > Hey! I found it! > I was doing some ego-googling and found: > http://computingnews.com/group/nntp.perl.org/perl.midi > Noel fine! JPV > > > > On Wed, 05 Jan 2005 15:36:37 -0900, Sean M. Burke <sburke@cpan.org> wrote: > > > > >> ... link "midi" (http://lists.cpan.org/showlist.cgi?name=midi)... > >> ... > >> I am unable to join the archive "http://www.mail-archive.com/midi@perl.org/" > > > > That's all very strange. I'll look into it and will get it fixed. Thanks > > for noticing this! > > > > > > -- > > Sean M. Burke http://search.cpan.org/~sburke/ > > > > > > > > http://www.nntp.perl.org/group/perl.midi/2005/01/msg314.html Tue, 18 Jan 2005 11:54:07 +0000 Re: where is the archive? by Noel Lairson Hey! I found it! I was doing some ego-googling and found: http://computingnews.com/group/nntp.perl.org/perl.midi Noel On Wed, 05 Jan 2005 15:36:37 -0900, Sean M. Burke <sburke@cpan.org> wrote: > >> ... link "midi" (http://lists.cpan.org/showlist.cgi?name=midi)... >> ... >> I am unable to join the archive "http://www.mail-archive.com/midi@perl.org/" > > That's all very strange. I'll look into it and will get it fixed. Thanks > for noticing this! > > > -- > Sean M. Burke http://search.cpan.org/~sburke/ > > http://www.nntp.perl.org/group/perl.midi/2005/01/msg313.html Mon, 17 Jan 2005 18:06:22 +0000 Re: where is the archive? by Sean M. Burke >... link "midi" (http://lists.cpan.org/showlist.cgi?name=midi)... >... >I am unable to join the archive "http://www.mail-archive.com/midi@perl.org/" That's all very strange. I'll look into it and will get it fixed. Thanks for noticing this! -- Sean M. Burke http://search.cpan.org/~sburke/ http://www.nntp.perl.org/group/perl.midi/2005/01/msg312.html Wed, 05 Jan 2005 16:37:15 +0000 where is the archive? by Jean-Pierre Vidal Hello, on CPAN (http://www.cpan.org/)... ... link "Perl Mailing Lists" (http://www.cpan.org/)... ... link "midi" (http://lists.cpan.org/showlist.cgi?name=midi)... ... I am unable to join the archive "http://www.mail-archive.com/midi@perl.org/" (404) nor the NNTP Archive: "http://nntp.perl.org/group/perl.midi" (404) nor subscribe "midi-subscribe@perl.org" | unsuscribe "midi-unsubscribe@perl.org" | get help "midi-help@perl.org" ??? Jean-Pierre http://www.nntp.perl.org/group/perl.midi/2005/01/msg311.html Wed, 05 Jan 2005 13:50:04 +0000 Re: guitar chords by Joshua N Pritikin On Wed, 2004-12-22 at 21:25 +0000, Jean-Pierre Vidal wrote: > Your original question was: "mapping from stuff like "Em C D B7 Em" into > notes?" > > This is more music than MIDI, but in case this help: Your explanation was very helpful, thank you. Obviously I need to learn quite a bit more about music theory. -- A new cognitive theory of emotion, http://openheartlogic.org http://www.nntp.perl.org/group/perl.midi/2004/12/msg310.html Mon, 27 Dec 2004 01:46:30 +0000