/* "Coventry Carol" */ info tempo:100; 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 = .5; var p = .25*x; var mp = .3535*x; var mf = .5*x; var f = .7071*x; var ff = 1*x; var cr = 1.18921; var k; envelope ampFn = [(0, 0) (0.0125, 1, 2) (0.025, .707, 2) (.5, .35, 2) (2, .25, 2) | (4.01, 0, 2)]; BEGIN; part1 (noteUpdate) waveform:"SU", rvibAmp:0.001, svibAmp:0, ampEnv:ampFn, bearing:-45; part2 (noteUpdate) waveform:"SU", rvibAmp:0.001, svibAmp:0, ampEnv:ampFn, bearing:-15; part3 (noteUpdate) waveform:"SU", rvibAmp:0.001, svibAmp:0, ampEnv:ampFn, bearing:15; part4 (noteUpdate) waveform:"TU", rvibAmp:0.001, svibAmp:0, ampEnv:ampFn, bearing:45; t 0; k = 0; while (k < 2) { /* 1 */ part1 (noteOn 1) keyNum:g3k, amp:p; part2 (noteOn 2) keyNum:bf3k, amp:p; part3 (noteOn 3) keyNum:d4k, amp:p; part4 (noteOn 4) keyNum:g4k, amp:p; t+1; part1 (noteOn 1) keyNum:g3k, amp:p; part2 (noteOn 2) keyNum:bf3k, amp:p; part3 (noteOn 3) keyNum:d4k, amp:p; part4 (noteOn 4) keyNum:g4k, amp:p; t+1; part1 (noteOn 1) keyNum:d3k, amp:p; part2 (noteOn 2) keyNum:a3k, amp:p; part3 (noteOn 3) keyNum:d4k, amp:p; part4 (noteOn 4) keyNum:fs4k, amp:p; t+1; part1 (noteOn 1) keyNum:g3k, amp:p; part2 (noteOn 2) keyNum:bf3k, amp:p; part3 (noteOn 3) keyNum:d4k, amp:p; part4 (noteOn 4) keyNum:g4k, amp:p; t+2; part1 (noteOn 1) keyNum:g3k, amp:p; part2 (noteOn 2) keyNum:bf3k, amp:p; part3 (noteOn 3) keyNum:d4k, amp:p; part4 (noteOn 4) keyNum:bf4k, amp:p; t+1; part1 (noteOn 1) keyNum:f3k, amp:p; part2 (noteOn 2) keyNum:c4k, amp:p; part3 (noteOn 3) keyNum:f4k, amp:p; part4 (noteOn 4) keyNum:a4k, amp:p; t+2; part1 (noteOn 1) keyNum:g3k, amp:p; part2 (noteOn 2) keyNum:bf3k, amp:p; part3 (noteOn 3) keyNum:d4k, amp:p; part4 (noteOn 4) keyNum:g4k, amp:p; t+1; part1 (noteOn 1) keyNum:d3k, amp:p; part2 (noteOn 2) keyNum:a3k, amp:p; part3 (noteOn 3) keyNum:d4k, amp:p; part4 (noteOn 4) keyNum:fs4k, amp:p; t+3; part1 (noteOff 1); part2 (noteOff 2); part3 (noteOff 3); part4 (noteOff 4); part1 (noteOn 1) keyNum:g3k, amp:p; part2 (noteOn 2) keyNum:bf3k, amp:p; part3 (noteOn 3) keyNum:d4k, amp:p; part4 (noteOn 4) keyNum:g4k, amp:p; t+1; part1 (noteOn 1) keyNum:fs3k, amp:p; part2 (noteOn 2) keyNum:a3k, amp:p; part3 (noteOn 3) keyNum:d4k, amp:p; part4 (noteOn 4) keyNum:a4k, amp:p; t+1; part1 (noteOn 1) keyNum:g3k, amp:p; part2 (noteOn 2) keyNum:g3k, amp:p; part3 (noteOn 3) keyNum:d4k, amp:p; part4 (noteOn 4) keyNum:bf4k, amp:p; t+1; part1 (noteOn 1) keyNum:c3k, amp:p; part2 (noteOn 2) keyNum:g3k, amp:p; part3 (noteOn 3) keyNum:ef4k, amp:p; part4 (noteOn 4) keyNum:c5k, amp:p; t+2; part1 (noteOn 1) keyNum:d3k, amp:p; part2 (noteOn 2) keyNum:fs3k, amp:p; part3 (noteOn 3) keyNum:d4k, amp:p; part4 (noteOn 4) keyNum:a4k, amp:p; t+1; part1 (noteOn 1) keyNum:g3k, amp:p; part2 (noteOn 2) keyNum:bf3k, amp:p; part3 (noteOn 3) keyNum:d4k, amp:p; part4 (noteOn 4) keyNum:g4k, amp:p; t+3; t+2; part1 (noteOff 1); part2 (noteOff 2); part3 (noteOff 3); part4 (noteOff 4); part1 (noteOn 1) keyNum:bf2k, amp:p; part2 (noteOn 2) keyNum:bf3k, amp:p; part3 (noteOn 3) keyNum:f4k, amp:p; part4 (noteOn 4) keyNum:d5k, amp:p; t+1; part1 (noteOn 1) keyNum:f3k, amp:p; part2 (noteOn 2) keyNum:a3k, amp:p; part3 (noteOn 3) keyNum:f4k, amp:p; part4 (noteOn 4) keyNum:c5k, amp:p; t+2; part1 (noteOn 1) keyNum:d3k, amp:p; part2 (noteOn 2) keyNum:bf3k, amp:p; part3 (noteOn 3) keyNum:f4k, amp:p; part4 (noteOn 4) keyNum:bf4k, amp:p; t+1; part1 (noteOn 1) keyNum:f3k, amp:p; part2 (noteOn 2) keyNum:c4k, amp:p; part3 (noteOn 3) keyNum:f4k, amp:p; part4 (noteOn 4) keyNum:a4k, amp:p; t+2; part1 (noteOn 1) keyNum:bf2k, amp:p; part2 (noteOn 2) keyNum:d4k, amp:p; part3 (noteOn 3) keyNum:f4k, amp:p; part4 (noteOn 4) keyNum:bf4k, amp:p; t+1; part1 (noteOn 1) keyNum:c3k, amp:p; part2 (noteOn 2) keyNum:c4k, amp:p; part3 (noteOn 3) keyNum:ef4k, amp:p; part4 (noteOn 4) keyNum:a4k, amp:p; t+2; part1 (noteOn 1) keyNum:ef3k, amp:p; part2 (noteOn 2) keyNum:g3k, amp:p; part3 (noteOn 3) keyNum:c4k, amp:p; part4 (noteOn 4) keyNum:g4k, amp:p; t+1; part1 (noteOn 1) keyNum:d3k, amp:p; part2 (noteOn 2) keyNum:a3k, amp:p; part3 (noteOn 3) keyNum:d4k, amp:p; part4 (noteOn 4) keyNum:fs4k, amp:p; t+3; part1 (noteOff 1); part2 (noteOff 2); part3 (noteOff 3); part4 (noteOff 4); part1 (noteOn 1) keyNum:g3k, amp:p; part2 (noteOn 2) keyNum:bf3k, amp:p; part3 (noteOn 3) keyNum:d4k, amp:p; part4 (noteOn 4) keyNum:g4k, amp:p; t+1; part1 (noteOn 1) keyNum:d3k, amp:p; part2 (noteOn 2) keyNum:a3k, amp:p; part3 (noteOn 3) keyNum:d4k, amp:p; part4 (noteOn 4) keyNum:fs4k, amp:p; t+1; part1 (noteOn 1) keyNum:ef3k, amp:p; part2 (noteOn 2) keyNum:g3k, amp:p; part3 (noteOn 3) keyNum:bf3k, amp:p; part4 (noteOn 4) keyNum:g4k, amp:p; t+1; part1 (noteOn 1) keyNum:c3k, amp:p; part2 (noteOn 2) keyNum:g3k, amp:p; part3 (noteOn 3) keyNum:ef4k, amp:p; part4 (noteOn 4) keyNum:c5k, amp:p; t+2; part1 (noteOn 1) keyNum:d3k, amp:p; part2 (noteOn 2) keyNum:fs3k, amp:p; part3 (noteOn 3) keyNum:d4k, amp:p; part4 (noteOn 4) keyNum:a4k, amp:p; t+1; part1 (noteOn 1) keyNum:g2k, amp:p; part2 (noteOn 2) keyNum:g3k, amp:p; part3 (noteOn 3) keyNum:d4k, amp:p; part4 (noteOn 4) keyNum:b4k, amp:p; t+6; part1 (noteOff 1); part2 (noteOff 2); part3 (noteOff 3); part4 (noteOff 4); k = k + 1; } t +6; END;