Tape-loop Simulation with MIDI-Perl

Recently I was inspired by the Brian Eno section of this generative music presentation (right arrow or space-bar moves forward), which describes Eno's tape-loop setup.

So I tasked myself with attempting to simulate these simultaneous tape-loops.  Naturally I made the cleverly named program, tape-loop for this.

Here is one run, turned into an MP3 file:

Ok. Here is another run:

And here is a long one, with a warm synth pad:

For the chromatic piano fans, here is one at 300 BPM with all the notes between C5 and C6: