/* "Angels We Have Heard on High" */

info tempo:140;
noteTagRange = 1 to 4;

part part1; part1 synthPatchCount:1, synthPatch:"DBWave1vi";
part part2; part2 synthPatchCount:1, synthPatch:"DBWave1vi";
part part3; part3 synthPatchCount:1, synthPatch:"DBWave1vi";
part part4; part4 synthPatchCount:1, synthPatch:"DBWave1vi";
part part5; part5 synthPatchCount:1, synthPatch:"DBWave1vi";

var x = .5;
var mp = .3535*x;
var mf = .5*x;
var f  = .7071*x;
var ff =  1*x;

var k;

envelope Fn = [(0, 0, 2) (0.0625, 1 , 2) (.5, .5, 3) (2, .25, 4) | 
(4.01, 0, 2)];

BEGIN;

part1 (noteUpdate) waveform:"BN", rvibAmp:0.0005, rvibFreq:20, svibAmp:0.001, svibFreq:.5, ampEnv:Fn, bearing:-45;
part2 (noteUpdate) waveform:"EH", rvibAmp:0.0005, rvibFreq:20, svibAmp:0.002, svibFreq:.49, ampEnv:Fn, bearing:-15;
part3 (noteUpdate) waveform:"CL", rvibAmp:0.0005, rvibFreq:20, svibAmp:0.003, svibFreq:.51, ampEnv:Fn, bearing:15;
part4 (noteUpdate) waveform:"OB", rvibAmp:0.0005, rvibFreq:20, svibAmp:0.003, svibFreq:.5, ampEnv:Fn, bearing:45;

part5 (noteUpdate) waveform:"PN", rvibAmp:0, svibAmp:0, ampEnv:Fn, bearing:0;


t 0;

k = 0; 
while (k < 2)
{

part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:a4k,  amp:mf;
t +1;
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:a4k,  amp:mf;
t +1;
part1 (noteOn 1) keyNum:a3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
part4 (noteOn 4) keyNum:a4k,  amp:mf;
t +1;
part1 (noteOn 1) keyNum:a3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:mf;
t +1;

part1 (noteOn 1) keyNum:g3k,  amp:mf;
part2 (noteOn 2) keyNum:d4k,  amp:mf;
part3 (noteOn 3) keyNum:g4k,  amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:mf;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
t +.5;
part4 (noteOn 4) keyNum:bf4k, amp:mf;
t +.5;
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:a4k,  amp:mf;
t +2;

part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:a4k,  amp:mf;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:mf;
t +1;
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:a4k,  amp:mf;
t +1;
part1 (noteOn 1) keyNum:a3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:mf;
t +1;

part1 (noteOn 1) keyNum:c4k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:a4k,  amp:mf;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:mf;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
t +.5;
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:mf;
t +.5;
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:a3k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:f4k,  amp:mf;
t +2;

part1 (noteOff 1);
part4 (noteOff 4);
part3 (noteOff 3);
part2 (noteOff 2);
part1 (noteOn 1) keyNum:f3k,  amp:mp;
part2 (noteOn 2) keyNum:c4k,  amp:mp;
part3 (noteOn 3) keyNum:f4k,  amp:mp;
part4 (noteOn 4) keyNum:a4k,  amp:mp;
t +1;
part1 (noteOn 1) keyNum:f3k,  amp:mp;
part2 (noteOn 2) keyNum:c4k,  amp:mp;
part3 (noteOn 3) keyNum:f4k,  amp:mp;
part4 (noteOn 4) keyNum:a4k,  amp:mp;
t +1;
part1 (noteOn 1) keyNum:a3k,  amp:mp;
part2 (noteOn 2) keyNum:c4k,  amp:mp;
part3 (noteOn 3) keyNum:e4k,  amp:mp;
part4 (noteOn 4) keyNum:a4k,  amp:mp;
t +1;
part1 (noteOn 1) keyNum:a3k,  amp:mp;
part2 (noteOn 2) keyNum:c4k,  amp:mp;
part3 (noteOn 3) keyNum:e4k,  amp:mp;
part4 (noteOn 4) keyNum:c5k,  amp:mp;
t +1;

part1 (noteOn 1) keyNum:g3k,  amp:mp;
part2 (noteOn 2) keyNum:d4k,  amp:mp;
part3 (noteOn 3) keyNum:g4k,  amp:mp;
part4 (noteOn 4) keyNum:c5k,  amp:mp;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:mp;
part2 (noteOn 2) keyNum:c4k,  amp:mp;
part3 (noteOn 3) keyNum:e4k,  amp:mp;
t +.5;
part4 (noteOn 4) keyNum:bf4k, amp:mp;
t +.5;
part1 (noteOn 1) keyNum:f3k,  amp:mp;
part2 (noteOn 2) keyNum:c4k,  amp:mp;
part3 (noteOn 3) keyNum:f4k,  amp:mp;
part4 (noteOn 4) keyNum:a4k,  amp:mp;
t +2;

part1 (noteOn 1) keyNum:f3k,  amp:mp;
part2 (noteOn 2) keyNum:c4k,  amp:mp;
part3 (noteOn 3) keyNum:f4k,  amp:mp;
part4 (noteOn 4) keyNum:a4k,  amp:mp;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:mp;
part2 (noteOn 2) keyNum:c4k,  amp:mp;
part3 (noteOn 3) keyNum:e4k,  amp:mp;
part4 (noteOn 4) keyNum:g4k,  amp:mp;
t +1;
part1 (noteOn 1) keyNum:f3k,  amp:mp;
part2 (noteOn 2) keyNum:c4k,  amp:mp;
part3 (noteOn 3) keyNum:f4k,  amp:mp;
part4 (noteOn 4) keyNum:a4k,  amp:mp;
t +1;
part1 (noteOn 1) keyNum:a3k,  amp:mp;
part2 (noteOn 2) keyNum:c4k,  amp:mp;
part3 (noteOn 3) keyNum:f4k,  amp:mp;
part4 (noteOn 4) keyNum:c5k,  amp:mp;
t +1;

part1 (noteOn 1) keyNum:c4k,  amp:mp;
part2 (noteOn 2) keyNum:c4k,  amp:mp;
part3 (noteOn 3) keyNum:f4k,  amp:mp;
part4 (noteOn 4) keyNum:a4k,  amp:mp;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:mp;
part3 (noteOn 3) keyNum:e4k,  amp:mp;
t +.5;
part2 (noteOn 2) keyNum:bf3k, amp:mp;
part4 (noteOn 4) keyNum:g4k,  amp:mp;
t +.5;
part1 (noteOn 1) keyNum:f3k,  amp:mp;
part2 (noteOn 2) keyNum:a3k,  amp:mp;
part3 (noteOn 3) keyNum:f4k,  amp:mp;
part4 (noteOn 4) keyNum:f4k,  amp:mp;
t +2;

part1 (noteOff 1);
part4 (noteOff 4);
part3 (noteOff 3);
part2 (noteOff 2);
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:a3k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:mf;
part5 (noteOn 5) keyNum:a5k,  amp:mp;
t +.5;
part5 (noteOn 5) keyNum:g5k,  amp:mp;
t +.5;
part3 (noteOn 3) keyNum:a4k,  amp:mf;
part5 (noteOn 5) keyNum:f5k,  amp:mp;
t +.5;
part3 (noteOn 3) keyNum:g4k,  amp:mf;
part5 (noteOn 5) keyNum:e5k,  amp:mp;
t +.5;
part1 (noteOn 1) keyNum:d3k,  amp:mf;
part2 (noteOn 2) keyNum:d4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:d5k,  amp:mf;
part5 (noteOn 5) keyNum:d5k,  amp:mp;
t +.5;
part4 (noteOn 4) keyNum:c5k,  amp:mf;
t +.5;
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:mf;
t +.5;
part4 (noteOn 4) keyNum:a4k,  amp:mf;
t +.5;

part1 (noteOn 1) keyNum:g3k,  amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:mf;
part5 (noteOn 5) keyNum:g5k,  amp:mp;
t +.5;
part5 (noteOn 5) keyNum:f5k,  amp:mp;
t +.5;
part3 (noteOn 3) keyNum:g4k,  amp:mf;
part5 (noteOn 5) keyNum:e5k,  amp:mp;
t +.5;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part5 (noteOn 5) keyNum:d5k,  amp:mp;
t +.5;
part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:mf;
part5 (noteOn 5) keyNum:c5k,  amp:mp;
t +.5;
part4 (noteOn 4) keyNum:bf4k, amp:mf;
t +.5;
part1 (noteOn 1) keyNum:e3k,  amp:mf;
part4 (noteOn 4) keyNum:a4k,  amp:mf;
t +.5;
part4 (noteOn 4) keyNum:g4k,  amp:mf;
t +.5;

part1 (noteOn 1) keyNum:f3k,  amp:mf;
part4 (noteOn 4) keyNum:a4k,  amp:mf;
part5 (noteOn 5) keyNum:f5k,  amp:mp;
t +.5;
part5 (noteOn 5) keyNum:e5k,  amp:mp;
t +.5;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part5 (noteOn 5) keyNum:d5k,  amp:mp;
t +.5;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
part5 (noteOn 5) keyNum:c5k,  amp:mp;
t +.5;
part1 (noteOn 1) keyNum:bf2k, amp:mf;
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:d4k,  amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:mf;
part5 (noteOn 5) keyNum:bf4k, amp:mp;
t +.5;
part4 (noteOn 4) keyNum:a4k,  amp:mf;
t +.5;
part1 (noteOn 1) keyNum:d3k,  amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:mf;
t +.5;
part4 (noteOn 4) keyNum:f4k,  amp:mf;
t +.5;

part1 (noteOn 1) keyNum:e3k,  amp:mf;
part2 (noteOn 2) keyNum:g3k,  amp:mf;
part3 (noteOn 3) keyNum:c4k,  amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:mf;
part5 (noteOff 5);
t +1;
part1 (noteOn 1) keyNum:d3k,  amp:mf;
part2 (noteOn 2) keyNum:f3k,  amp:mf;
t +.5;
part3 (noteOn 3) keyNum:c4k,  amp:mf;
part4 (noteOn 4) keyNum:c4k,  amp:mf;
t +.5;
part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:e3k,  amp:mf;
part3 (noteOn 3) keyNum:c4k,  amp:mf;
part4 (noteOn 4) keyNum:c4k,  amp:mf;
t +1;
part1 (noteOn 1) keyNum:bf2k, amp:mf;
t +1;

part1 (noteOn 1) keyNum:a2k,  amp:mf;
part2 (noteOn 2) keyNum:f3k,  amp:mf;
part3 (noteOn 3) keyNum:c4k,  amp:mf;
part4 (noteOn 4) keyNum:f4k,  amp:mf;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:mf;
t +1;
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:a4k,  amp:mf;
t +1;
part1 (noteOn 1) keyNum:bf2k, amp:mf;
part2 (noteOn 2) keyNum:d4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:mf;
t +1;

part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:a4k,  amp:mf;
t +2;
part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:mf;
t +1;
part1 (noteOff 1);
part4 (noteOff 4);
part3 (noteOff 3);
part2 (noteOff 2);
t +1;

part1 (noteOff 1);
part4 (noteOff 4);
part3 (noteOff 3);
part2 (noteOff 2);
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:a3k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:mf;
part5 (noteOn 5) keyNum:a5k,  amp:mp;
t +.5;
part5 (noteOn 5) keyNum:g5k,  amp:mp;
t +.5;
part3 (noteOn 3) keyNum:a4k,  amp:mf;
part5 (noteOn 5) keyNum:f5k,  amp:mp;
t +.5;
part3 (noteOn 3) keyNum:g4k,  amp:mf;
part5 (noteOn 5) keyNum:e5k,  amp:mp;
t +.5;
part1 (noteOn 1) keyNum:d3k,  amp:mf;
part2 (noteOn 2) keyNum:d4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:d5k,  amp:mf;
part5 (noteOn 5) keyNum:d5k,  amp:mp;
t +.5;
part4 (noteOn 4) keyNum:c5k,  amp:mf;
t +.5;
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:mf;
t +.5;
part4 (noteOn 4) keyNum:a4k,  amp:mf;
t +.5;

part1 (noteOn 1) keyNum:g3k,  amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:mf;
part5 (noteOn 5) keyNum:g5k,  amp:mp;
t +.5;
part5 (noteOn 5) keyNum:f5k,  amp:mp;
t +.5;
part3 (noteOn 3) keyNum:g4k,  amp:mf;
part5 (noteOn 5) keyNum:e5k,  amp:mp;
t +.5;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part5 (noteOn 5) keyNum:d5k,  amp:mp;
t +.5;
part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:mf;
part5 (noteOn 5) keyNum:c5k,  amp:mp;
t +.5;
part4 (noteOn 4) keyNum:bf4k, amp:mf;
t +.5;
part1 (noteOn 1) keyNum:e3k,  amp:mf;
part4 (noteOn 4) keyNum:a4k,  amp:mf;
t +.5;
part4 (noteOn 4) keyNum:g4k,  amp:mf;
t +.5;

part1 (noteOn 1) keyNum:f3k,  amp:mf;
part4 (noteOn 4) keyNum:a4k,  amp:mf;
part5 (noteOn 5) keyNum:f5k,  amp:mp;
t +.5;
part5 (noteOn 5) keyNum:e5k,  amp:mp;
t +.5;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part5 (noteOn 5) keyNum:d5k,  amp:mp;
t +.5;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
part5 (noteOn 5) keyNum:c5k,  amp:mp;
t +.5;
part1 (noteOn 1) keyNum:bf2k, amp:mf;
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:d4k,  amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:mf;
part5 (noteOn 5) keyNum:bf4k, amp:mp;
t +.5;
part4 (noteOn 4) keyNum:a4k,  amp:mf;
t +.5;
part1 (noteOn 1) keyNum:d3k,  amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:mf;
t +.5;
part4 (noteOn 4) keyNum:f4k,  amp:mf;
t +.5;

part1 (noteOn 1) keyNum:e3k,  amp:mf;
part2 (noteOn 2) keyNum:g3k,  amp:mf;
part3 (noteOn 3) keyNum:c4k,  amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:mf;
part5 (noteOff 5);
t +1;
part1 (noteOn 1) keyNum:d3k,  amp:mf;
part2 (noteOn 2) keyNum:f3k,  amp:mf;
t +.5;
part3 (noteOn 3) keyNum:c4k,  amp:mf;
part4 (noteOn 4) keyNum:c4k,  amp:mf;
t +.5;
part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:e3k,  amp:mf;
part3 (noteOn 3) keyNum:c4k,  amp:mf;
part4 (noteOn 4) keyNum:c4k,  amp:mf;
t +1;
part1 (noteOn 1) keyNum:bf2k, amp:mf;
t +1;

part1 (noteOn 1) keyNum:a2k,  amp:mf;
part2 (noteOn 2) keyNum:f3k,  amp:mf;
part3 (noteOn 3) keyNum:c4k,  amp:mf;
part4 (noteOn 4) keyNum:f4k,  amp:mf;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:mf;
t +1;
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:a4k,  amp:mf;
t +1;
part1 (noteOn 1) keyNum:bf2k, amp:mf;
part2 (noteOn 2) keyNum:d4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:mf;
t +1;

part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:a4k,  amp:mf;
t +2;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:mf;
t +1;
part2 (noteOn 2) keyNum:bf3k, amp:mf;
t +1;

part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:a3k,  amp:mf;
part3 (noteOn 3) keyNum:c4k,  amp:mf;
part4 (noteOn 4) keyNum:f4k,  amp:mf;
t +4;

k = k+1;
}

t +4;
part1 (noteOff 1);
part4 (noteOff 4);
part3 (noteOff 3);
part2 (noteOff 2);

END;