/* "Good King Wenceslas" */ info tempo:180; 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 Fn = [(0, 0, 2) (0.025, 1 ,2) (1, .5, 2) (2, .25, 2) | (4.01, 0, 2)]; BEGIN; part1 (noteUpdate) waveform:"TR", rvibAmp:0.001, svibAmp:0, ampEnv:Fn, bearing:-45; part2 (noteUpdate) waveform:"TR", rvibAmp:0.001, svibAmp:0, ampEnv:Fn, bearing:-15; part3 (noteUpdate) waveform:"TR", rvibAmp:0.001, svibAmp:0, ampEnv:Fn, bearing:15; part4 (noteUpdate) waveform:"TR", rvibAmp:0.001, svibAmp:0, ampEnv:Fn, bearing:45; t 0; k = 0; while (k < 2) { /* bar 1 */ part1 (noteOn 1) keyNum:af3k, amp:f; /* Good */ part2 (noteOn 2) keyNum:c4k, amp:f; part3 (noteOn 3) keyNum:ef4k, amp:f; part4 (noteOn 4) keyNum:af4k, amp:f; t +1; part1 (noteOn 1) keyNum:af3k, amp:f; /* King */ part2 (noteOn 2) keyNum:c4k, amp:f; part3 (noteOn 3) keyNum:ef4k, amp:f; part4 (noteOn 4) keyNum:af4k, amp:f; t +1; part1 (noteOn 1) keyNum:f3k, amp:f; /* Wen- */ 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:g3k, amp:f; /* -ces- */ part2 (noteOn 2) keyNum:bf3k, amp:f; part3 (noteOn 3) keyNum:ef4k, amp:f; part4 (noteOn 4) keyNum:bf4k, amp:f; t +1; /* bar 2 */ part1 (noteOn 1) keyNum:af3k, amp:f; /* -las */ part2 (noteOn 2) keyNum:c4k, 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; /* looked */ part2 (noteOn 2) keyNum:df4k, amp:f; part3 (noteOn 3) keyNum:f4k, amp:f; part4 (noteOn 4) keyNum:af4k, amp:f; t +1; part1 (noteOn 1) keyNum:ef3k, amp:f; /* out */ part2 (noteOn 2) keyNum:g3k, amp:f; part3 (noteOn 3) keyNum:bf3k, 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:df3k, amp:f; /* on */ part2 (noteOn 2) keyNum:af3k, amp:f; part3 (noteOn 3) keyNum:df4k, amp:f; part4 (noteOn 4) keyNum:f4k, amp:f; t +1; part1 (noteOn 1) keyNum:c3k, amp:f; /* the */ 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:df3k, amp:f; /* feast */ part2 (noteOn 2) keyNum:af3k, amp:f; part3 (noteOn 3) keyNum:df4k, amp:f; part4 (noteOn 4) keyNum:f4k, amp:f; t +1; part1 (noteOn 1) keyNum:bf2k, amp:f; /* of */ part2 (noteOn 2) keyNum:bf3k, amp:f; part3 (noteOn 3) keyNum:df4k, amp:f; part4 (noteOn 4) keyNum:g4k, amp:f; t +1; /* bar 4 */ part1 (noteOn 1) keyNum:af2k, amp:f; /* Ste- */ 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:af2k, amp:f; /* -phen */ part2 (noteOn 2) keyNum:c4k, amp:f; part3 (noteOn 3) keyNum:ef4k, amp:f; part4 (noteOn 4) keyNum:af4k, amp:f; t +2; /* repeat: bar 1' */ part1 (noteOff 1); part4 (noteOff 4); part3 (noteOff 3); part2 (noteOff 2); part1 (noteOn 1) keyNum:af3k, amp:mf; part2 (noteOn 2) keyNum:c4k, amp:mf; part3 (noteOn 3) keyNum:ef4k, amp:mf; part4 (noteOn 4) keyNum:af4k, amp:mf; t +1; part1 (noteOn 1) keyNum:af3k, amp:mf; part2 (noteOn 2) keyNum:c4k, amp:mf; part3 (noteOn 3) keyNum:ef4k, amp:mf; part4 (noteOn 4) keyNum:af4k, amp:mf; 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:mf; t +1; part1 (noteOn 1) keyNum:g3k, amp:mf; part2 (noteOn 2) keyNum:bf3k, amp:mf; part3 (noteOn 3) keyNum:ef4k, amp:mf; part4 (noteOn 4) keyNum:bf4k, amp:mf; t +1; /* bar 2' */ part1 (noteOn 1) keyNum:af3k, amp:mf; part2 (noteOn 2) keyNum:c4k, amp:mf; part3 (noteOn 3) keyNum:ef4k, amp:mf; part4 (noteOn 4) keyNum:af4k, amp:mf; t +1; part1 (noteOn 1) keyNum:df3k, amp:mf; part2 (noteOn 2) keyNum:df4k, amp:mf; part3 (noteOn 3) keyNum:f4k, amp:mf; part4 (noteOn 4) keyNum:af4k, amp:mf; t +1; part1 (noteOn 1) keyNum:ef3k, amp:mf; part2 (noteOn 2) keyNum:g3k, amp:mf; part3 (noteOn 3) keyNum:bf3k, amp:mf; part4 (noteOn 4) keyNum:ef4k, amp:mf; t +2; /* bar 3' */ part1 (noteOff 1); part4 (noteOff 4); part3 (noteOff 3); part2 (noteOff 2); 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:mf; t +1; part1 (noteOn 1) keyNum:c3k, amp:mf; part2 (noteOn 2) keyNum:af3k, amp:mf; part3 (noteOn 3) keyNum:ef4k, amp:mf; part4 (noteOn 4) keyNum:ef4k, amp:mf; 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:mf; t +1; part1 (noteOn 1) keyNum:bf2k, amp:mf; part2 (noteOn 2) keyNum:bf3k, amp:mf; part3 (noteOn 3) keyNum:df4k, amp:mf; part4 (noteOn 4) keyNum:g4k, amp:mf; t +1; /* bar 4' */ part1 (noteOn 1) keyNum:af2k, amp:mf; part2 (noteOn 2) keyNum:c4k, amp:mf; part3 (noteOn 3) keyNum:ef4k, amp:mf; part4 (noteOn 4) keyNum:af4k, amp:mf; t +2; part1 (noteOn 1) keyNum:af2k, amp:mf; part2 (noteOn 2) keyNum:c4k, amp:mf; part3 (noteOn 3) keyNum:ef4k, amp:mf; part4 (noteOn 4) keyNum:af4k, amp:mf; t +2; /* bar 5 */ part1 (noteOff 1); part4 (noteOff 4); part3 (noteOff 3); part2 (noteOff 2); part1 (noteOn 1) keyNum:c3k, amp:f; /* Bright- */ part2 (noteOn 2) keyNum:ef4k, amp:f; part3 (noteOn 3) keyNum:af4k, amp:f; part4 (noteOn 4) keyNum:ef5k, amp:f; t +1; part1 (noteOn 1) keyNum:df3k, amp:f; /* -ly */ part2 (noteOn 2) keyNum:f4k, amp:f; part3 (noteOn 3) keyNum:af4k, amp:f; part4 (noteOn 4) keyNum:df5k, amp:f; t +1; part1 (noteOn 1) keyNum:ef3k, amp:f; /* shone */ 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:ef3k, amp:f; /* the */ part2 (noteOn 2) keyNum:ef4k, amp:f; part3 (noteOn 3) keyNum:g4k, amp:f; part4 (noteOn 4) keyNum:bf4k, amp:f; t +1; /* bar 6 */ part1 (noteOn 1) keyNum:af3k, amp:f; /* moon */ 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:ef3k, amp:f; part2 (noteOn 2) keyNum:ef4k, amp:f; part3 (noteOn 3) keyNum:g4k, amp:f; part4 (noteOn 4) keyNum:bf4k, amp:f; t +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:af4k, amp:f; t +2; /* bar 7 */ 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: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:ef4k, amp:f; 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:f; t +1; part1 (noteOn 1) keyNum:bf2k, amp:f; part2 (noteOn 2) keyNum:bf3k, amp:f; part3 (noteOn 3) keyNum:df4k, amp:f; part4 (noteOn 4) keyNum:g4k, amp:f; t +1; /* bar 8 */ part1 (noteOn 1) keyNum:af2k, amp:f; part2 (noteOn 2) keyNum:c3k, amp:f; part3 (noteOn 3) keyNum:ef4k, amp:f; part4 (noteOn 4) keyNum:af4k, amp:f; t +2; part1 (noteOn 1) keyNum:af2k, amp:f; part2 (noteOn 2) keyNum:c3k, amp:f; part3 (noteOn 3) keyNum:ef4k, amp:f; part4 (noteOn 4) keyNum:af4k, amp:f; t +2; /* bar 9 */ 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: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:df3k, amp:f; part2 (noteOn 2) keyNum:af3k, amp:f; part3 (noteOn 3) keyNum:df4k, amp:f; part4 (noteOn 4) keyNum:f4k, amp:f; t +1; part1 (noteOn 1) keyNum:bf2k, amp:f; part2 (noteOn 2) keyNum:bf3k, amp:f; part3 (noteOn 3) keyNum:df4k, amp:f; part4 (noteOn 4) keyNum:g4k, amp:f; t +1; /* bar 10 */ 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; 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; 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; /* bar 11 */ 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:ef5k, amp:f; t +1; part1 (noteOn 1) keyNum:df3k, amp:f; part2 (noteOn 2) keyNum:f4k, amp:f; part3 (noteOn 3) keyNum:af4k, amp:f; part4 (noteOn 4) keyNum:df5k, amp:f; t +1; part1 (noteOn 1) keyNum:ef3k, 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:ef3k, amp:f; part2 (noteOn 2) keyNum:ef4k, amp:f; part3 (noteOn 3) keyNum:g4k, amp:f; part4 (noteOn 4) keyNum:bf4k, amp:f; t +1; /* bar 12 */ 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:f; t +2; 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:df5k, amp:f; t +2; /* bar 13 */ 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 +4; k = k+1; } t +4; part1 (noteOff 1); part4 (noteOff 4); part3 (noteOff 3); part2 (noteOff 2); t +4; END;