/* "Wassail Song" */

info tempo:128;
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 k;

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

BEGIN;

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


t 0; 

k = 0;
while (k < 2) 
{

/* bar 1: 6/8 */
part1 (noteOn 1) keyNum:ef3k, amp:mf; /* Here	*/
part2 (noteOn 2) keyNum:g3k,  amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:ef4k, amp:f;
t +.66667;
part1 (noteOn 1) keyNum:ef3k, amp:mf; /* we	*/
part2 (noteOn 2) keyNum:af3k, amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:f4k,  amp:f;
t +.33333;
part1 (noteOn 1) keyNum:bf2k, amp:mf; /* come	*/
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:d4k,  amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:f;
t +.66667;
part1 (noteOn 1) keyNum:bf2k, amp:mf; /* a-	*/
part2 (noteOn 2) keyNum:af3k, amp:mf;
part3 (noteOn 3) keyNum:d4k,  amp:mf;
part4 (noteOn 4) keyNum:f4k,  amp:f;
t +.33333; 

/* bar 2 */
part1 (noteOn 1) keyNum:ef3k, amp:mf; /* Was-	*/
part2 (noteOn 2) keyNum:g3k,  amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:ef4k, amp:f;
t +.66667;
part1 (noteOn 1) keyNum:ef3k, amp:mf; /* -sail-	*/
part2 (noteOn 2) keyNum:af3k, amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:f4k,  amp:f;
t +.33333;
part1 (noteOn 1) keyNum:bf2k, amp:mf; /* -ing	*/
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:d4k,  amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:f;
t +.66667;
part1 (noteOn 1) keyNum:bf2k, amp:mf; /* a-	*/
part2 (noteOn 2) keyNum:af3k, amp:mf;
part3 (noteOn 3) keyNum:d4k,  amp:mf;
part4 (noteOn 4) keyNum:f4k,  amp:f;
t +.33333; 

/* bar 3 */
part1 (noteOn 1) keyNum:ef3k, amp:mf; /* -mong	*/
part2 (noteOn 2) keyNum:g3k,  amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:ef4k, amp:f;
t +.66667;
part1 (noteOn 1) keyNum:g3k,  amp:mf; /* the	*/
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:f;
t +.33333;
part1 (noteOn 1) keyNum:f3k,  amp:mf; /* leaves(?)*/
part2 (noteOn 2) keyNum:d4k,  amp:mf;
part3 (noteOn 3) keyNum:af4k, amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:f;
t +.66667;
part1 (noteOn 1) keyNum:ef3k, amp:mf; /* so	*/
part2 (noteOn 2) keyNum:ef4k, amp:mf;
part3 (noteOn 3) keyNum:g4k,  amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:f;
t +.33333; 

/* bar 4 */
part1 (noteOn 1) keyNum:bf3k, amp:mf; /* green. */
part2 (noteOn 2) keyNum:d4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:f;
t +1.66667;
part1 (noteOff 1);
part2 (noteOff 2);
part3 (noteOff 3);
part4 (noteOff 4);
part1 (noteOn 1) keyNum:bf3k, amp:mf; /* And(?)*/
part2 (noteOn 2) keyNum:d4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:f;
t +.33333; 

/* bar 5 */
part1 (noteOn 1) keyNum:af3k, amp:mf; /* Here	*/
part2 (noteOn 2) keyNum:ef4k, amp:mf;
part3 (noteOn 3) keyNum:af4k, amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:f;
t +.66667;
part1 (noteOn 1) keyNum:af3k, amp:mf; /* we	*/
part2 (noteOn 2) keyNum:af3k, amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:f;
t +.33333;
part1 (noteOn 1) keyNum:g3k,  amp:mf; /* come	*/
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:f;
t +.66667;
part1 (noteOn 1) keyNum:g3k,  amp:mf; /* a-	*/
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:f;
t +.33333; 

/* bar 6 */
part1 (noteOn 1) keyNum:f3k,  amp:mf; /* Wand'-	*/
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:f;
t +1;
part1 (noteOn 1) keyNum:d3k,  amp:mf; /* -ring	*/
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:f4k,  amp:mf;
part4 (noteOn 4) keyNum:af4k, amp:f;
t +.66667;
part1 (noteOn 1) keyNum:ef3k, amp:mf; /* so	*/
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:f;
t +.33333;

/* bar 7 */
part1 (noteOn 1) keyNum:af3k, amp:mf; /* fa-	*/
part2 (noteOn 2) keyNum:c4k,  amp:mf;
part3 (noteOn 3) keyNum:c4k,  amp:mf;
part4 (noteOn 4) keyNum:f4k,  amp:f;
t +.66667;
part1 (noteOn 1) keyNum:g3k,  amp:mf; /* -ir	*/
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:ef4k, amp:f;
t +.33333;
part1 (noteOn 1) keyNum:f3k,  amp:mf; /* to	*/
part2 (noteOn 2) keyNum:af3k, amp:mf;
part3 (noteOn 3) keyNum:d4k,  amp:mf;
part4 (noteOn 4) keyNum:f4k,  amp:f;
t +.66667;
part1 (noteOn 1) keyNum:ef3k, amp:mf; /* be	*/
part2 (noteOn 2) keyNum:g3k,  amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:g4k,  amp:f;
t +.33333;

/* bar 8 */
part1 (noteOn 1) keyNum:d3k,  amp:mf; /* seen!	*/
part2 (noteOn 2) keyNum:f3k,  amp:mf;
part3 (noteOn 3) keyNum:bf3k, amp:mf;
part4 (noteOn 4) keyNum:af4k, amp:f;
t +1; 

/* time change: 2/2 */
part1 (noteOff 1);
part2 (noteOff 2);
part3 (noteOff 3);
part4 (noteOff 4);
part1 (noteOn 1) keyNum:ef3k, amp:f; /* Love	*/
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:g4k,  amp:ff;
t +.5;
part1 (noteOff 1);
part2 (noteOff 2);
part3 (noteOff 3);
part4 (noteOff 4);
part1 (noteOn 1) keyNum:f3k,  amp:f; /* and	*/
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:d4k,  amp:f;
part4 (noteOn 4) keyNum:af4k, amp:ff;
t +.5; 

/* bar 9 */
part1 (noteOff 1);
part2 (noteOff 2);
part3 (noteOff 3);
part4 (noteOff 4);
part1 (noteOn 1) keyNum:g3k,  amp:f; /* Joy	*/
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:ff;
t +1;
part1 (noteOff 1);
part2 (noteOff 2);
part3 (noteOff 3);
part4 (noteOff 4);
part1 (noteOn 1) keyNum:af3k, amp:f; /* un-	*/
part2 (noteOn 2) keyNum:c4k,  amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:ef5k, amp:ff;
t +.5;
part1 (noteOff 1);
part2 (noteOff 2);
part3 (noteOff 3);
part4 (noteOff 4);
part1 (noteOn 1) keyNum:af3k, amp:f; /* -to	*/
part2 (noteOn 2) keyNum:d4k,  amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:ff;
t +.5; 

/* bar 10 */
part1 (noteOff 1);
part2 (noteOff 2);
part3 (noteOff 3);
part4 (noteOff 4);
part1 (noteOn 1) keyNum:ef3k, amp:f; /* You	*/
part2 (noteOn 2) keyNum:ef4k, amp:f;
part3 (noteOn 3) keyNum:g4k,  amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:ff;
t +1;
part1 (noteOff 1);
part2 (noteOff 2);
part3 (noteOff 3);
part4 (noteOff 4);
part1 (noteOn 1) keyNum:ef3k, amp:f; /* and	*/
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:g4k,  amp:ff;
t +.5;
part1 (noteOff 1);
part2 (noteOff 2);
part3 (noteOff 3);
part4 (noteOff 4);
part1 (noteOn 1) keyNum:f3k,  amp:f; /* to	*/
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:d4k,  amp:f;
part4 (noteOn 4) keyNum:af4k, amp:ff;
t +.5; 

/* bar 11 */
part1 (noteOff 1);
part2 (noteOff 2);
part3 (noteOff 3);
part4 (noteOff 4);
part1 (noteOn 1) keyNum:g3k,  amp:f; /* You	*/
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:ff;
t +.5;
part1 (noteOn 1) keyNum:f3k,  amp:f; /* your	*/
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:d4k,  amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:ff;
t +.5;
part1 (noteOn 1) keyNum:ef3k, amp:f; /* Was-	*/
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:g4k,  amp:f;
part4 (noteOn 4) keyNum:ef5k, amp:ff;
t +.5;
part1 (noteOn 1) keyNum:f3k,  amp:f; /* -sail	*/
part2 (noteOn 2) keyNum:a3k,  amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:ff;
t +.5;

/* bar 12 */
part1 (noteOn 1) keyNum:bf2k, amp:f; /* too	*/
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:d4k,  amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:ff;
t +1;
part1 (noteOff 1);
part4 (noteOff 4);
part3 (noteOff 3);
part2 (noteOff 2);
part1 (noteOn 1) keyNum:ef3k, amp:f; /* and	*/
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:g4k,  amp:f;
part4 (noteOn 4) keyNum:g4k,  amp:ff;
t +.5;
part1 (noteOff 1);
part4 (noteOff 4);
part3 (noteOff 3);
part2 (noteOff 2);
part1 (noteOn 1) keyNum:ef3k, amp:f; /* God	*/
part2 (noteOn 2) keyNum:c4k,  amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:af4k, amp:ff;
t +.5;

/* bar 13 */
part1 (noteOff 1);
part4 (noteOff 4);
part3 (noteOff 3);
part2 (noteOff 2);
part1 (noteOn 1) keyNum:df3k, amp:ff; /* Bless	*/
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:ff;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:f; /* you	*/
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:e4k,  amp:ff;
part4 (noteOn 4) keyNum:c5k,  amp:ff;
t +.5;
part1 (noteOn 1) keyNum:c3k,  amp:f; /* and	*/
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:e4k,  amp:ff;
part4 (noteOn 4) keyNum:g4k,  amp:ff;
t +.5;

/* bar 14 */
part1 (noteOn 1) keyNum:f3k,  amp:f; /* gra-	*/
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:af4k, amp:ff;
t +.5;
part1 (noteOn 1) keyNum:af2k, amp:f; /* -nt	*/
part3 (noteOn 3) keyNum:c4k,  amp:f;
part4 (noteOn 4) keyNum:f4k,  amp:ff;
t +.5;
part1 (noteOn 1) keyNum:bf2k, amp:f; /* you	*/
part2 (noteOn 2) keyNum:g3k,  amp:f;
part3 (noteOn 3) keyNum:bf3k, amp:f;
part4 (noteOn 4) keyNum:ef4k, amp:ff;
t +.5;
part1 (noteOn 1) keyNum:bf2k, amp:f; /* a	*/
part2 (noteOn 2) keyNum:f3k,  amp:f;
part3 (noteOn 3) keyNum:bf3k, amp:f;
part4 (noteOn 4) keyNum:d4k,  amp:ff;
t +.5;

/* bar 15 */
part1 (noteOn 1) keyNum:g3k,  amp:f;
part2 (noteOn 2) keyNum:g3k,  amp:f;
part3 (noteOn 3) keyNum:bf3k, amp:f;
part4 (noteOn 4) keyNum:ef4k, amp:ff;
t +.75;
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 +.25;
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 +.5;
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:ef4k, amp:ff;
t +.5;

/* bar 16 */
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;
part3 (noteOn 3) keyNum:d4k,  amp:ff;
t +.5;
part1 (noteOff 1);
part4 (noteOff 4);
part3 (noteOff 3);
part2 (noteOff 2);
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 +.5;
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:af4k, amp:ff;
t +.5;

/* bar 17 */
part1 (noteOn 1) keyNum:d3k,  amp:f;
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:ff;
t +1;
part1 (noteOn 1) keyNum:e3k,  amp:ff;
part2 (noteOn 2) keyNum:g3k,  amp:f;
part3 (noteOn 3) keyNum:c4k,  amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:ff;
t +.5; 
part1 (noteOn 1) keyNum:e3k,  amp:ff;
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:c4k,  amp:f;
part4 (noteOn 4) keyNum:g4k,  amp:ff;
t +.5;

/* bar 18 */
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:af2k, amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:c4k,  amp:f;
part4 (noteOn 4) keyNum:f4k,  amp:ff;
t +.5;
part1 (noteOn 1) keyNum:bf2k, amp:f;
part2 (noteOn 2) keyNum:g3k,  amp:f;
part3 (noteOn 3) keyNum:bf3k, amp:f;
part4 (noteOn 4) keyNum:ef4k, amp:ff;
t +.5;
part2 (noteOn 2) keyNum:f3k,  amp:ff;
part4 (noteOn 4) keyNum:d4k,  amp:ff;
t +.5;

/* bar 19 */
part1 (noteOn 1) keyNum:ef3k, amp:f;
part2 (noteOn 2) keyNum:g3k,  amp:f;
part3 (noteOn 3) keyNum:bf3k, amp:f;
part4 (noteOn 4) keyNum:ef4k, amp:ff;
t +4;

k = k + 1;
}

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

END;