1 files changed, 69 insertions, 0 deletions
diff --git a/midicsv-1.1/acomp.pl b/midicsv-1.1/acomp.pl
new file mode 100644
index 0000000..dd36f5c
--- /dev/null
+++ b/midicsv-1.1/acomp.pl
@@ -0,0 +1,69 @@
+
+    #	Incredibly dumb algorithmic composer
+
+    require 'general_midi.pl';
+
+    $instrument = $GM_Patch{'Distortion Guitar'};
+    $tonespan = 32;
+    $num_notes = 120;
+    $percussion = $GM_Percussion{'Ride Cymbal 1'};
+    $beat = 6;
+
+    print << "EOD";
+0, 0, Header, 1, 1, 480
+1, 0, Start_track
+1, 0, Tempo, 500000
+1, 0, Program_c, 1, $instrument
+EOD
+
+    $time = 0;
+    srand(time());
+    
+    for ($i = 0; $i < $num_notes; $i++) {
+    	$n = 60 + int((rand() * $tonespan) - int($tonespan / 2));
+    	$notelength = 120 + (60 * int(rand() * 6));
+	&note(1, $n, $notelength, 127);
+	if (($i % $beat) == 0) {
+	    print("1, $time, Note_on_c, 9, $percussion, 127\n");
+	} elsif (($i % $beat) == ($beat - 1)) {
+	    print("1, $time, Note_off_c, 9, $percussion, 0\n");
+	}
+    }
+    
+    #	Cymbal crash at end
+    $cymbal = $GM_Percussion{'Crash Cymbal 2'};
+    print("1, $time, Note_on_c, 9, $cymbal, 127\n");
+    $time += 480;
+    print("1, $time, Note_off_c, 9, $cymbal, 0\n");
+    
+    #	Audience applause
+    $time += 480;
+    print("1, $time, Program_c, 1, $GM_Patch{'Applause'}\n");     
+    print("1, $time, Note_on_c, 1, 60, 100\n");
+    for ($i = 16; $i <= 32; $i++) {
+    	$time += 120;
+	$v = int(127 * ($i / 32));
+	print("1, $time, Poly_aftertouch_c, 1, 60, $v\n");
+    }
+    for ($i = 32; $i >= 0; $i--) {
+    	$time += 240;
+	$v = int(127 * ($i / 32));
+	print("1, $time, Poly_aftertouch_c, 1, 60, $v\n");
+    }
+    print("1, $time, Note_off_c, 1, 60, 0\n");
+   
+    print << "EOD";
+1, $time, End_track
+0, 0, End_of_file
+EOD
+
+    sub note {	# &note($channel, $note_number, $duration [, $velocity])
+    	local ($channel, $which, $duration, $vel) = @_;
+	
+	if (!defined($vel)) {
+	    $vel = 127;
+	}
+    	print("1, $time, Note_on_c, $channel, $which, $vel\n");
+	$time += $duration;
+    	print("1, $time, Note_off_c, $channel, $which, 0\n");
+    }