/* "Adeste Fideles" */

info tempo:160;
noteTagRange = 1 to 4;

var x = .25;
var f  =  1*x;
var mf = .707*x;
var mp = .5*x;

var cr = 1.1892;

var k;

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

envelope ampFun =  [(0,0)(.0125,1,2)(2,.5,2)(4,.25,2) | (4.01,0,0.25)];

BEGIN;

part1 (noteUpdate) waveform:"SE", rvibamp:.001, ampEnv:ampFun, bearing:-45.0;
part2 (noteUpdate) waveform:"SA", rvibamp:.001, ampEnv:ampFun, bearing:-15.0;
part3 (noteUpdate) waveform:"SI", rvibamp:.001, ampEnv:ampFun, bearing: 15.0;
part4 (noteUpdate) waveform:"SO", rvibamp:.001, ampEnv:ampFun, bearing: 45.0;

t 0;

part1 (noteOn 1) keyNum:af2k, amp:f;
part2 (noteOn 2) keyNum:c4k,  amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:af4k, amp:f;
t +1;

/* 2 repeats */
k = 0; 
while (k < 2) {

/* bar 1 */
part1 (noteOn 1) keyNum:af2k, amp:f;
part2 (noteOn 2) keyNum:c4k,  amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:af4k, amp:f;
t +2;
part1 (noteOn 1) keyNum:c3k,  amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:ef4k, amp:f;
t +1;
part1 (noteOn 1) keyNum:af2k, amp:f;
part2 (noteOn 2) keyNum:c4k,  amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:af4k, amp:f;
t +1;

/* bar 2 */
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:f;
t +2;
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:ef4k, amp:f;
t +2;

/* bar 3 */
part1 (noteOff 1);
part4 (noteOff 4);
part3 (noteOff 3);
part2 (noteOff 2);
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:f;
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:f;
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:f;
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:df5k, amp:f;
t +1;

/* bar 4 */
part1 (noteOn 1) keyNum:ef3k, amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:f;
t +2;
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:f;
t +1;
part1 (noteOff 1);
part4 (noteOff 4);
part3 (noteOff 3);
part2 (noteOff 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:f;
t +1;

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

/* bar 6 */
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:f;
t +1;
part1 (noteOn 1) keyNum:c3k,  amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part4 (noteOn 4) keyNum:af4k, amp:f;
t +1;
part1 (noteOn 1) keyNum:g2k,  amp:f;
part2 (noteOn 2) keyNum:g3k,  amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:f;
t +1;
part1 (noteOn 1) keyNum:af2k, amp:f;
part2 (noteOn 2) keyNum:f3k,  amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:f;
t +1;

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

/* bar 8*/
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:ef4k, amp:f;
t +4;
part1 (noteOff 1);
part4 (noteOff 4);
part3 (noteOff 3);
part2 (noteOff 2);

/* bar 9 */
part1 (noteOn 1) keyNum:c4k,  amp:f;
part2 (noteOn 2) keyNum:c4k,  amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:ef5k, amp:f;
t +2;
part1 (noteOn 1) keyNum:bf3k, amp:f;
part2 (noteOn 2) keyNum:df4k, amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:df5k, amp:f;
t +.5;
part3 (noteOn 3) keyNum:g4k,  amp:f*cr;
t +.5;
part1 (noteOn 1) keyNum:af3k, amp:f;
part2 (noteOn 2) keyNum:ef4k, amp:f;
part3 (noteOn 3) keyNum:af4k, amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:f;
t +1;

/* bar 10 */
part1 (noteOn 1) keyNum:bf3k, amp:f;
part2 (noteOn 2) keyNum:df4k, amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:df5k, amp:f;
t +1;
part3 (noteOn 3) keyNum:g4k,  amp:f;
t +1;
part1 (noteOn 1) keyNum:af3k, amp:f;
part2 (noteOn 2) keyNum:ef4k, amp:f;
part3 (noteOn 3) keyNum:af4k, amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:f;
t +2;

/* bar 11 */
part1 (noteOn 1) keyNum:g3k,  amp:f;
part2 (noteOn 2) keyNum:ef4k, amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:f;
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:f;
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:f;
t +1;
part1 (noteOn 1) keyNum:df3k, amp:f;
part2 (noteOn 2) keyNum:df4k, amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:f;
t +1;

/* bar 12 */
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:f;
t +1.5;
part2 (noteOn 2) keyNum:af3k, amp:f;
part4 (noteOn 4) keyNum:f4k,  amp:f;
t +.5;
part2 (noteOn 2) keyNum:g3k,  amp:f;
part4 (noteOn 4) keyNum:ef4k, amp:f;
t +1;
part1 (noteOff 1);
part2 (noteOn 2) keyNum:c4k,  amp:mp;
part3 (noteOn 3) keyNum:ef4k, amp:mp;
part4 (noteOn 4) keyNum:af4k, amp:mp;
t +1;

/* bar 13 */
part2 (noteOn 2) keyNum:c4k,  amp:mp;
part3 (noteOn 3) keyNum:ef4k, amp:mp;
part4 (noteOn 4) keyNum:af4k, amp:mp;
t +1;
part2 (noteOn 2) keyNum:bf3k, amp:mp;
part4 (noteOn 4) keyNum:g4k,  amp:mp;
t +1;
part2 (noteOn 2) keyNum:c4k,  amp:mp;
part4 (noteOn 4) keyNum:af4k, amp:mp;
t +1;
part2 (noteOn 2) keyNum:df4k, amp:mp;
part4 (noteOn 4) keyNum:bf4k, amp:mp;
t +1;

/* bar 14 */
part2 (noteOn 2) keyNum:c4k,  amp:mp;
part4 (noteOn 4) keyNum:af4k, amp:mp;
t +2;
part4 (noteOn 4) keyNum:ef4k, amp:mp;
t +1;
part2 (noteOn 2) keyNum:af3k, amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:mf;
t +1;

/* bar 15 */
part2 (noteOn 2) keyNum:af3k, amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:mf;
t +1;
part2 (noteOn 2) keyNum:g3k,  amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:mf;
t +1;
part2 (noteOn 2) keyNum:af3k, amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:mf;
t +1;
part2 (noteOn 2) keyNum:bf3k, amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:df5k, amp:mf;
t +1;

/* bar 16 */
part2 (noteOn 2) keyNum:af3k, amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:c5k,  amp:mf;
t +2;
part2 (noteOn 2) keyNum:g3k,  amp:mf;
part3 (noteOn 3) keyNum:ef4k, amp:mf;
part4 (noteOn 4) keyNum:bf4k, amp:mf;
t +1;
part1 (noteOn 1) keyNum:af3k, amp:f;
part2 (noteOn 2) keyNum:ef4k, amp:f;
part3 (noteOn 3) keyNum:af4k, amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:f;
t +1;

/* bar 17 */
part1 (noteOn 1) keyNum:bf3k, amp:f;
part2 (noteOn 2) keyNum:df4k, amp:f;
part3 (noteOn 3) keyNum:f4k,  amp:f;
part4 (noteOn 4) keyNum:df5k, amp:f;
t +.5;
part3 (noteOn 3) keyNum:g4k,  amp:f*cr;
t +.5;
part1 (noteOn 1) keyNum:af3k, amp:f;
part2 (noteOn 2) keyNum:ef4k, amp:f;
part3 (noteOn 3) keyNum:af4k, amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:f;
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:f;
t +1;
part1 (noteOn 1) keyNum:f3k,  amp:f;
part2 (noteOn 2) keyNum:bf3k, amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:af4k, amp:f;
t +.5;
part3 (noteOn 3) keyNum:d4k,  amp:f*cr;
t +.5;

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

/* bar 19 */
part1 (noteOn 1) keyNum:ef3k, amp:f;
part2 (noteOn 2) keyNum:af3k, amp:f;
part3 (noteOn 3) keyNum:ef4k, amp:f;
part4 (noteOn 4) keyNum:c5k,  amp:f;
t +2;
part2 (noteOn 2) keyNum:g3k,  amp:f;
part3 (noteOn 3) keyNum:df4k, amp:f;
part4 (noteOn 4) keyNum:bf4k, amp:f;
t  +1.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:af4k, amp:f;
t +.5;

/* bar 20 */
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:af4k, amp:f;
t +4;

k = k + 1;
}

t +3;

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

END;