/* "Good Christian men, rejoice" */

info tempo:240;
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";

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

var k;

envelope ampFn = [(0, 0, 1) (0.025, 1 ,2)  (.5, .5, 2) (2, .25, 2) | 
(4.01, 0, .5)];

BEGIN;

part1 (noteUpdate) waveform:"TI", rvibAmp:0, svibAmp:0, ampEnv:ampFn, bearing:-45;
part2 (noteUpdate) waveform:"TI", rvibAmp:0, svibAmp:0, ampEnv:ampFn, bearing:-15;
part3 (noteUpdate) waveform:"TI", rvibAmp:0, svibAmp:0, ampEnv:ampFn, bearing:15;
part4 (noteUpdate) waveform:"TI", rvibAmp:0, svibAmp:0, ampEnv:ampFn, bearing:45;


t 0; 

k = 0;
while (k < 2) 
{

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

/* bar 1 */
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:d4k,  amp:mf;
part4 (noteOn 4) keyNum:f4k,  amp:f;
t+2;
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:a3k,  amp:mf;
part3 (noteOn 3) keyNum:c4k,  amp:mf;
part4 (noteOn 4) keyNum:f4k,  amp:f;
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:f;
t+1;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
t+1;
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:d4k,  amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:f;
t+1;

/* bar 2 */
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:a3k,  amp:mf;
part3 (noteOn 3) keyNum:c4k,  amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:f;
t+2;
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:d5k,  amp:f;
t+1;
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:g3k,  amp:mf;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:f;
t+2;
part4 (noteOff 4);
part3 (noteOff 3);
part2 (noteOff 2);
part1 (noteOff 1);
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:f;
t+1;

/* bar 3 */
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:d4k,  amp:mf;
part4 (noteOn 4) keyNum:f4k,  amp:f;
t+2;
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:a3k,  amp:mf;
part3 (noteOn 3) keyNum:c4k,  amp:mf;
part4 (noteOn 4) keyNum:f4k,  amp:f;
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:f;
t+1;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
t+1;
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:d4k,  amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:f;
t+1;

/* bar 4 */
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:a3k,  amp:mf;
part3 (noteOn 3) keyNum:c4k,  amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:f;
t+2;
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:d5k,  amp:f;
t+1;
part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:g3k,  amp:mf;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:f;
t+2;
part4 (noteOff 4);
part3 (noteOff 3);
part2 (noteOff 2);
part1 (noteOff 1);
t+1;

/* bar 5 */
part1 (noteOn 1) keyNum:a2k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:f;
t+2;
part1 (noteOn 1) keyNum:bf2k, amp:mf;
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:d5k,  amp:f;
t+1;
part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:g3k,  amp:mf;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:f;
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:bf4k, amp:f;
t+1;

/* bar 6 */
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:f;
t+2;
part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:f;
t+1;
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:f;
t+3;

/* bar 7 */
part4 (noteOff 4);
part3 (noteOff 3);
part2 (noteOff 2);
part1 (noteOff 1);
part1 (noteOn 1) keyNum:f3k,  amp:mf*acc;
part2 (noteOn 2) keyNum:f3k,  amp:mf*acc;
part3 (noteOn 3) keyNum:f4k,  amp:mf*acc;
part4 (noteOn 4) keyNum:f4k,  amp:f*acc;
t+3;
part4 (noteOff 4);
part3 (noteOff 3);
part2 (noteOff 2);
part1 (noteOff 1);
part1 (noteOn 1) keyNum:d3k,  amp:mf*acc;
part2 (noteOn 2) keyNum:a3k,  amp:mf*acc;
part3 (noteOn 3) keyNum:f4k,  amp:mf*acc;
part4 (noteOn 4) keyNum:f4k,  amp:f*acc;
t+3;

/* bar 8 */
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:g4k,  amp:f;
t+2;
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:g4k,  amp:f;
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:f;
t+2;
part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:f;
t+1;

/* bar 9 */
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:f;
t+2;
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:f;
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:f;
t+3;

/* bar 10 */
part1 (noteOn 1) keyNum:a2k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:f;
t+2;
part1 (noteOn 1) keyNum:bf2k, amp:mf;
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:d5k,  amp:f;
t+1;
part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:g3k,  amp:mf;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:f;
t+2;
part1 (noteOn 1) keyNum:e3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:g4k,  amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:f;
t+1;

/* bar 11 */
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:f;
t+2;
part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:f;
t+1;
part1 (noteOn 1) keyNum:d3k,  amp:mf;
part2 (noteOn 2) keyNum:a3k,  amp:mf;
part3 (noteOn 3) keyNum:d4k,  amp:mf;
part4 (noteOn 4) keyNum:f4k,  amp:f;
t+2;
part1 (noteOn 1) keyNum:a2k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:f4k,  amp:f;
t+1;

/* bar 12 */
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:g4k,  amp:f;
t+2;
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:g4k,  amp:f;
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:f;
t+1;
part2 (noteOn 2) keyNum:d4k,  amp:mf;
t+1;
part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:e4k,  amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:f;
t+1;

/* bar 13 */
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:f;
t+2;
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:f;
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:f;
t+2;
part4 (noteOff 4);
part3 (noteOff 3);
part2 (noteOff 2);
part1 (noteOff 1);
t+1;

/* bar 14 */
part1 (noteOn 1) keyNum:f3k,  amp:f;
part2 (noteOn 2) keyNum:a3k,  amp:f;
part3 (noteOn 3) keyNum:d4k,  amp:f;
part4 (noteOn 4) keyNum:d4k,  amp:ff;
t+2;
part1 (noteOn 1) keyNum:f3k,  amp:f;
part2 (noteOn 2) keyNum:a3k,  amp:f;
part3 (noteOn 3) keyNum:d4k,  amp:f;
part4 (noteOn 4) keyNum:d4k,  amp:ff;
t+1;
part1 (noteOn 1) keyNum:e3k,  amp:f;
part2 (noteOn 2) keyNum:g3k,  amp:f;
part3 (noteOn 3) keyNum:d4k,  amp:f;
part4 (noteOn 4) keyNum:e4k,  amp:ff;
t+2;
part1 (noteOn 1) keyNum:e3k,  amp:f;
part2 (noteOn 2) keyNum:g3k,  amp:f;
part3 (noteOn 3) keyNum:cs4k, amp:f;
part4 (noteOn 4) keyNum:e4k,  amp:ff;
t+1;

/* bar 15 */
part1 (noteOn 1) keyNum:d3k,  amp:f;
part2 (noteOn 2) keyNum:a3k,  amp:f;
part3 (noteOn 3) keyNum:d4k,  amp:f;
part4 (noteOn 4) keyNum:f4k,  amp:ff;
t+2;
part2 (noteOn 2) keyNum:bf3k, amp:f;
t+1;
part1 (noteOn 1) keyNum:c3k,  amp:f;
part2 (noteOn 2) keyNum:g3k,  amp:f;
part3 (noteOn 3) keyNum:e4k,  amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:ff;
t+3;

/* bar 16 */
part1 (noteOn 1) keyNum:f3k,  amp:f;
part2 (noteOn 2) keyNum:f3k,  amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:a4k,  amp:ff;
t+2;
part1 (noteOn 1) keyNum:d3k,  amp:f;
part2 (noteOn 2) keyNum:a3k,  amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:a4k,  amp:ff;
t+1;
part1 (noteOn 1) keyNum:bf2k, amp:f;
part2 (noteOn 2) keyNum:d4k,  amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:g4k,  amp:ff;
t+2;
part1 (noteOn 1) keyNum:c3k,  amp:f;
part2 (noteOn 2) keyNum:g3k,  amp:f;
part3 (noteOn 3) keyNum:c4k,  amp:f;
part4 (noteOn 4) keyNum:g4k,  amp:ff;
t+1;

/* bar 17 */
part1 (noteOn 1) keyNum:f3k,  amp:f;
part2 (noteOn 2) keyNum:a3k,  amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:f4k,  amp:ff;
t+3;
part4 (noteOff 4);
part3 (noteOff 3);
part2 (noteOff 2);
part1 (noteOff 1);
t+2;


k = k + 1;
}

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

END;