/* "God Rest Ye Merry, Gentlemen" */

info tempo:240;
noteTagRange = 1 to 4;

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

var k;

var x = 0.70711;

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

var sus1 = 0.85; 
var sus2 = 0.85;
var sus3 = 0.85;
var sus4 = 0.85;

var brt1 = 0.2;
var brt2 = 0.2;
var brt3 = 0.33;
var brt4 = 0.33;

BEGIN;

part1 (noteUpdate) sustain:sus1, decay:10, pickNoise:0, bright:brt1, bearing:-45.0;
part2 (noteUpdate) sustain:sus2, decay:10, pickNoise:0, bright:brt2, bearing:-15.0;
part3 (noteUpdate) sustain:sus3, decay:10, pickNoise:0, bright:brt3, bearing:15.0;
part4 (noteUpdate) sustain:sus4, decay:10, pickNoise:0, bright:brt4, bearing:45.0;

t 0;

part1 (noteOn 1) keyNum:f3k,  amp:0;
t +.01;
part2 (noteOn 2) keyNum:f3k,  amp:0;
t +.01;
part3 (noteOn 3) keyNum:f4k,  amp:0;
t +.01;
part4 (noteOn 4) keyNum:f4k,  amp:0;
t +.01;

k = 0; 
while (k < 2)
{

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:f4k,  amp:ff;
t +1;

/* bar 1 */
part1 (noteOn 1) keyNum:f3k,  amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:f4k,  amp:ff;
t +1;
part1 (noteOn 1) keyNum:f3k,  amp:f;
part2 (noteOn 2) keyNum:f3k,  amp:f;
part3 (noteOn 3) keyNum:af4k, amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:ff;
t +1; 
part1 (noteOn 1) keyNum:e3k,  amp:f;
part2 (noteOn 2) keyNum:g3k,  amp:f;
part3 (noteOn 3) keyNum:g4k,  amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:ff;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:f;
part2 (noteOn 2) keyNum:c4k,  amp:f;
part3 (noteOn 3) keyNum:e4k,  amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:ff;
t +1;

/* bar 2 */
part1 (noteOn 1) keyNum:f3k,  amp:f;
part2 (noteOn 2) keyNum:c4k,  amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:af5k, amp:ff;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:f;
part2 (noteOn 2) keyNum:c4k,  amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:g4k,  amp:ff;
t +1;
part1 (noteOn 1) keyNum:df3k, amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:df4k, amp:f;
part4 (noteOn 4) keyNum:f4k,  amp:ff;
t +1; 
part1 (noteOn 1) keyNum:af2k, amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:c4k,  amp:f;
part4 (noteOn 4) keyNum:ef4k, amp:ff;
t +1;

/* bar 3 */
part1 (noteOn 1) keyNum:df3k, amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:f4k,  amp:ff;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:f;
part2 (noteOn 2) keyNum:c4k,  amp:f;
part3 (noteOn 3) keyNum:e4k,  amp:f;
part4 (noteOn 4) keyNum:g4k,  amp:ff;
t +1;
part1 (noteOn 1) keyNum:f3k,  amp:f;
part2 (noteOn 2) keyNum:c4k,  amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:af4k, amp:ff;
t +1;
part1 (noteOn 1) keyNum:df3k, amp:f;
part2 (noteOn 2) keyNum:f3k,  amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:ff;
t +1;

/* bar 4 */
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;

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

/* bar 1' */
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:af3k, amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:f4k,  amp:f;
t +1;
part1 (noteOn 1) keyNum:f3k,  amp:mf;
part2 (noteOn 2) keyNum:f3k,  amp:mf;
part3 (noteOn 3) keyNum:af4k, amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:f;
t +1; 
part1 (noteOn 1) keyNum:e3k,  amp:mf;
part2 (noteOn 2) keyNum:g3k,  amp:mf;
part3 (noteOn 3) keyNum:g4k,  amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:f;
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:bf4k, amp:f;
t +1;

/* bar 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:af5k, amp:f;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:mf;
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:f;
t +1;
part1 (noteOn 1) keyNum:df3k, amp:mf;
part2 (noteOn 2) keyNum:af3k, amp:mf;
part3 (noteOn 3) keyNum:df4k, amp:mf;
part4 (noteOn 4) keyNum:f4k,  amp:f;
t +1; 
part1 (noteOn 1) keyNum:af2k, amp:mf;
part2 (noteOn 2) keyNum:af3k, amp:mf;
part3 (noteOn 3) keyNum:c4k,  amp:mf;
part4 (noteOn 4) keyNum:ef4k, amp:f;
t +1;

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

/* bar 4' */
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 +3;
part1 (noteOn 1) keyNum:f3k,  amp:f;

part2 (noteOn 2) keyNum:a3k,  amp:ff;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:ff;
t +1;

/* bar 5 */
part1 (noteOn 1) keyNum:bf3k, amp:f;
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:df5k, amp:ff;
t +1;
part1 (noteOn 1) keyNum:g3k,  amp:f;
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:ff;
t +1;
part1 (noteOn 1) keyNum:af3k, amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:ff;
t +1;
part1 (noteOn 1) keyNum:f3k,  amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:af4k, amp:f;
part4 (noteOn 4) keyNum:df5k, amp:ff;
t +1;

/* bar 6 */
part1 (noteOn 1) keyNum:c3k,  amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:gf4k, amp:f;
part4 (noteOn 4) keyNum:ef5k, amp:ff;
t +1; 
part1 (noteOn 1) keyNum:df3k, amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:f5k,  amp:ff;
t +1; 
part1 (noteOn 1) keyNum:af2k, amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:ff;
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:bf4k, amp:ff;
t +1;

/* bar 7 */
part1 (noteOn 1) keyNum:f3k,  amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:af4k, amp:ff;
t +1; 
part1 (noteOn 1) keyNum:f3k,  amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:d4k,  amp:f;
part4 (noteOn 4) keyNum:f4k,  amp:ff;
t +1;
part1 (noteOn 1) keyNum:ef3k, amp:f;
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:g4k,  amp:ff;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:f;
part2 (noteOn 2) keyNum:ef4k, amp:f;
part3 (noteOn 3) keyNum:af4k, amp:f;
part4 (noteOn 4) keyNum:af4k, amp:ff;
t +1;

/* bar 8 */
part1 (noteOn 1) keyNum:ef3k, amp:f;
part2 (noteOn 2) keyNum:ef4k, amp:ff;
part3 (noteOn 3) keyNum:g4k,  amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:ff;
t +1; 
part2 (noteOn 2) keyNum:df4k, amp:ff;
t +1;
part1 (noteOn 1) keyNum:f3k,  amp:f;
part2 (noteOn 2) keyNum:c4k,  amp:f;
part3 (noteOn 3) keyNum:af4k, amp:f;
part4 (noteOn 4) keyNum:af4k, amp:ff;
t +1;
part1 (noteOn 1) keyNum:g3k,  amp:f;
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:ff;
t +1;

/* bar 9 */
part1 (noteOn 1) keyNum:af3k, amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:ff;
t +2; 
part1 (noteOn 1) keyNum:df3k, amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:df5k, amp:ff;
t +1;
part1 (noteOn 1) keyNum:af3k, amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:ff;
t +1;

/* bar 10 */
part1 (noteOn 1) keyNum:af2k, amp:f;
part2 (noteOn 2) keyNum:ef4k, amp:f;
part3 (noteOn 3) keyNum:af4k, amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:ff;
t +1;
part1 (noteOn 1) keyNum:bf2k, amp:f;
part2 (noteOn 2) keyNum:df4k, amp:f;
part3 (noteOn 3) keyNum:g4k,  amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:ff;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:f;
part2 (noteOn 2) keyNum:c4k,  amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:af4k, amp:ff;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:f;
part2 (noteOn 2) keyNum:c4k,  amp:f;
part3 (noteOn 3) keyNum:e4k,  amp:f;
part4 (noteOn 4) keyNum:g4k,  amp:ff;
t +1;

/* bar 11 */
part1 (noteOn 1) keyNum:f3k,  amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:f4k,  amp:ff;
t +2; 
part1 (noteOn 1) keyNum:f3k,  amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:c4k,  amp:f;
part4 (noteOn 4) keyNum:af4k, amp:ff;
t +.5; 
part1 (noteOn 1) keyNum:f3k,  amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:c4k,  amp:f;
part4 (noteOn 4) keyNum:g4k,  amp:ff;
t +.5; 
part1 (noteOn 1) keyNum:f3k,  amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:d4k,  amp:ff;
part4 (noteOn 4) keyNum:f4k,  amp:ff;
t +1;

/* bar 12 */
part1 (noteOn 1) keyNum:ef3k, amp:f;
part2 (noteOn 2) keyNum:g3k,  amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:ff;
t +1;
part1 (noteOn 1) keyNum:df3k, amp:f;
part2 (noteOn 2) keyNum:bf3k, amp:ff;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:f;
part2 (noteOn 2) keyNum:c4k,  amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:af4k, amp:ff;
t +1;
part1 (noteOn 1) keyNum:bf2k, amp:f;
part2 (noteOn 2) keyNum:df4k, amp:f;
part3 (noteOn 3) keyNum:g4k,  amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:ff;
t +1;

/* bar 13 */
part1 (noteOn 1) keyNum:af2k, amp:f;
part2 (noteOn 2) keyNum:c4k,  amp:f;
part3 (noteOn 3) keyNum:af4k, amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:ff;
t +1;
part1 (noteOn 1) keyNum:f3k,  amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part4 (noteOn 4) keyNum:df5k, amp:ff;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:f;
part2 (noteOn 2) keyNum:ef4k, amp:f;
part3 (noteOn 3) keyNum:af4k, amp:f;
part4 (noteOn 4) keyNum:ef5k, amp:ff;
t +1;
part1 (noteOn 1) keyNum:df3k, amp:f;
part2 (noteOn 2) keyNum:df4k, amp:f;
part3 (noteOn 3) keyNum:af4k, amp:f;
part4 (noteOn 4) keyNum:f5k,  amp:ff;
t +1;

/* bar 14 */
part1 (noteOn 1) keyNum:af2k, amp:f;
part2 (noteOn 2) keyNum:ef4k, amp:f;
part3 (noteOn 3) keyNum:af4k, amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:ff;
t +1;
part1 (noteOn 1) keyNum:bf2k, amp:f;
part2 (noteOn 2) keyNum:df4k, amp:f;
part3 (noteOn 3) keyNum:g4k,  amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:ff;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:f;
part2 (noteOn 2) keyNum:c4k,  amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:af4k, amp:ff;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:f;
part2 (noteOn 2) keyNum:c4k,  amp:f;
part3 (noteOn 3) keyNum:e4k,  amp:f;
part4 (noteOn 4) keyNum:g4k,  amp:ff;
t +1;

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

k = k + 1;
}


t +4;
part1 (noteOff 1),ampRel:.5;
part4 (noteOff 4),ampRel:.5;
part3 (noteOff 3),ampRel:.5;
part2 (noteOff 2),ampRel:.5;

END;