/* "On this New Year, shed Thy Blessing" */ /* Johann Schop, harmonized by J. S. Bach */ info tempo:80; 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 k; envelope ampFn = [(0, 0, 1) (0.025, 1 ,2) (.5, .5, 2) (2, .25, 2) | (4.01, 0, .5)]; BEGIN; part1 (noteUpdate) waveform:"SI", rvibAmp:0.005, svibAmp:0.005, ampEnv:ampFn, bearing:-45; part2 (noteUpdate) waveform:"SI", rvibAmp:0.005, svibAmp:0.005, ampEnv:ampFn, bearing:-15; part3 (noteUpdate) waveform:"SI", rvibAmp:0.005, svibAmp:0.005, ampEnv:ampFn, bearing:15; part4 (noteUpdate) waveform:"SI", rvibAmp:0.005, svibAmp:0.005, ampEnv:ampFn, bearing:45; t 0; part1 (noteOn 1) keyNum:g3k, amp:0; t+0.1; part2 (noteOn 2) keyNum:bf3k, amp:0; t+0.1; part3 (noteOn 3) keyNum:d4k, amp:0; t+0.1; part4 (noteOn 4) keyNum:g4k, amp:0; t+0.1; k = 0; while (k < 2) { part1 (noteOn 1) keyNum:g3k, amp:mf; part2 (noteOn 2) keyNum:bf3k, amp:mf; part3 (noteOn 3) keyNum:d4k, amp:mf; part4 (noteOn 4) keyNum:g4k, amp:f; t+.5; part1 (noteOn 1) keyNum:a3k, amp:f; t+.5; part1 (noteOn 1) keyNum:bf3k, amp:mf; t+1; part1 (noteOn 1) keyNum:g3k, amp:mf; part2 (noteOn 2) keyNum:bf3k, amp:mf; part3 (noteOn 3) keyNum:d4k, amp:mf; part4 (noteOn 4) keyNum:g4k, amp:f; t+1; part1 (noteOn 1) keyNum:fs3k, amp:mf; part2 (noteOn 2) keyNum:a3k, amp:mf; part3 (noteOn 3) keyNum:d4k, amp:mf; part4 (noteOn 4) keyNum:d5k, amp:f; t+.5; part1 (noteOn 1) keyNum:e3k, amp:mf; part3 (noteOn 3) keyNum:e4k, amp:mf; t+.5; part1 (noteOn 1) keyNum:d3k, amp:mf; part2 (noteOn 2) keyNum:d4k, amp:mf; part3 (noteOn 3) keyNum:fs4k, amp:mf; t+.5; part2 (noteOn 2) keyNum:c4k, amp:mf; t+.5; part1 (noteOn 1) keyNum:g3k, amp:mf; part2 (noteOn 2) keyNum:bf3k, amp:mf; part3 (noteOn 3) keyNum:g4k, amp:mf; part4 (noteOn 4) keyNum:d5k, amp:f; t+1; part1 (noteOn 1) keyNum:g3k, amp:mf; part2 (noteOn 2) keyNum:ef4k, amp:mf; part3 (noteOn 3) keyNum:a4k, amp:mf; part4 (noteOn 4) keyNum:c5k, amp:f; t+1; part1 (noteOn 1) keyNum:fs3k, amp:mf; part2 (noteOn 2) keyNum:d4k, amp:mf; t+1; part1 (noteOn 1) keyNum:g3k, amp:mf; part2 (noteOn 2) keyNum:d4k, amp:mf; part3 (noteOn 3) keyNum:a4k, amp:mf; part4 (noteOn 4) keyNum:bf4k, amp:f; t+.5; part3 (noteOn 3) keyNum:g4k, amp:mf; t+.5; part1 (noteOn 1) keyNum:d3k, amp:mf; part2 (noteOn 2) keyNum:d4k, amp:mf; part3 (noteOn 3) keyNum:g4k, amp:mf; part4 (noteOn 4) keyNum:a4k, amp:f; t+1; part3 (noteOn 3) keyNum:fs4k, amp:mf; t+.5; part3 (noteOn 3) keyNum:e4k, amp:mf; t+.5; part1 (noteOn 1) keyNum:d3k, amp:mf; part2 (noteOn 2) keyNum:d4k, amp:mf; part3 (noteOn 3) keyNum:fs4k, amp:mf; part4 (noteOn 4) keyNum:a4k, amp:f; t+1; part4 (noteOff 4); part3 (noteOff 3); part2 (noteOff 2); part1 (noteOff 1); part1 (noteOn 1) keyNum:bf2k, amp:mf; part2 (noteOn 2) keyNum:f4k, amp:mf; part3 (noteOn 3) keyNum:f4k, amp:mf; part4 (noteOn 4) keyNum:d5k, amp:f; t+1; part1 (noteOn 1) keyNum:bf3k, amp:mf; t+1; part1 (noteOn 1) keyNum:a3k, amp:mf; part2 (noteOn 2) keyNum:f4k, amp:mf; part3 (noteOn 3) keyNum:c5k, amp:mf; part4 (noteOn 4) keyNum:f5k, amp:f; t+1; part1 (noteOn 1) keyNum:g3k, amp:mf; part2 (noteOn 2) keyNum:g4k, amp:mf; part3 (noteOn 3) keyNum:bf4k, amp:mf; part4 (noteOn 4) keyNum:ef5k, amp:f; t+1; part1 (noteOn 1) keyNum:a3k, amp:mf; part2 (noteOn 2) keyNum:f4k, amp:mf; part3 (noteOn 3) keyNum:c5k, amp:mf; t+1; part1 (noteOn 1) keyNum:bf3k, amp:mf; part2 (noteOn 2) keyNum:f4k, amp:mf; part3 (noteOn 3) keyNum:c5k, amp:mf; part4 (noteOn 4) keyNum:d5k, amp:f; t+.5; part3 (noteOn 3) keyNum:bf4k, amp:mf; t+.5; part1 (noteOn 1) keyNum:ef3k, amp:mf; part2 (noteOn 2) keyNum:g4k, amp:mf; part3 (noteOn 3) keyNum:bf4k, amp:mf; part4 (noteOn 4) keyNum:c5k, amp:f; t+1; part1 (noteOn 1) keyNum:f3k, amp:mf; part2 (noteOn 2) keyNum:f4k, amp:mf; t+1; part1 (noteOn 1) keyNum:f2k, amp:f; part3 (noteOn 3) keyNum:a4k, amp:mf; part4 (noteOn 4) keyNum:c5k, amp:f; t+.5; part2 (noteOn 2) keyNum:ef4k, amp:mf; t+.5; part1 (noteOn 1) keyNum:bf2k, amp:mf; part2 (noteOn 2) keyNum:d4k, amp:mf; part3 (noteOn 3) keyNum:f4k, amp:mf; part4 (noteOn 4) keyNum:bf4k, amp:f; t+3; part1 (noteOn 1) keyNum:d3k, amp:mp; part2 (noteOn 2) keyNum:d4k, amp:mp; part3 (noteOn 3) keyNum:fs4k, amp:mp; part4 (noteOn 4) keyNum:a4k, amp:mf; t+1; part1 (noteOn 1) keyNum:c3k, amp:mp; t+1; part1 (noteOn 1) keyNum:bf2k, amp:mp; part2 (noteOn 2) keyNum:d4k, amp:mp; part3 (noteOn 3) keyNum:g4k, amp:mp; part4 (noteOn 4) keyNum:bf4k, amp:mf; t+1; part1 (noteOn 1) keyNum:a2k, amp:mp; part2 (noteOn 2) keyNum:ef4k, amp:mp; part4 (noteOn 4) keyNum:c5k, amp:mf; t+1; part1 (noteOn 1) keyNum:g2k, amp:mp; part3 (noteOn 3) keyNum:fs4k, amp:mp; t+.5; part3 (noteOn 3) keyNum:g4k, amp:mp; t+.5; part1 (noteOn 1) keyNum:fs2k, amp:mp; part2 (noteOn 2) keyNum:ef4k, amp:mp; part3 (noteOn 3) keyNum:a4k, amp:mp; part4 (noteOn 4) keyNum:c5k, amp:mf; t+.5; part2 (noteOn 2) keyNum:d4k, amp:mp; t+.5; part1 (noteOn 1) keyNum:g2k, amp:mp; part2 (noteOn 2) keyNum:d4k, amp:mp; part4 (noteOn 4) keyNum:bf4k, amp:mf; t+1; part1 (noteOn 1) keyNum:g3k, amp:mp; part3 (noteOn 3) keyNum:g4k, amp:mp; t+.5; part3 (noteOn 3) keyNum:fs4k, amp:mp; t+.5; part1 (noteOn 1) keyNum:c3k, amp:mp; part2 (noteOn 2) keyNum:ef4k, amp:mp; part3 (noteOn 3) keyNum:g4k, amp:mp; part4 (noteOn 4) keyNum:c5k, amp:mf; t+1; part1 (noteOn 1) keyNum:d3k, amp:mp; part2 (noteOn 2) keyNum:d4k, amp:mp; part4 (noteOn 4) keyNum:a4k, amp:mf; t+1; part3 (noteOn 3) keyNum:fs4k, amp:mp; t+.5; part3 (noteOn 3) keyNum:e4k, amp:mp; t+.5; part1 (noteOn 1) keyNum:d3k, amp:mp; part2 (noteOn 2) keyNum:d4k, amp:mp; part3 (noteOn 3) keyNum:fs4k, amp:mp; part4 (noteOn 4) keyNum:a4k, amp:mf; t+1; part4 (noteOff 4); part3 (noteOff 3); part2 (noteOff 2); part1 (noteOff 1); part1 (noteOn 1) keyNum:d3k, amp:mp; part2 (noteOn 2) keyNum:a3k, amp:mp; part3 (noteOn 3) keyNum:fs4k, amp:mp; part4 (noteOn 4) keyNum:d5k, amp:mf; t+.5; part1 (noteOn 1) keyNum:e3k, amp:mp; part3 (noteOn 3) keyNum:g4k, amp:mp; t+.5; part1 (noteOn 1) keyNum:fs3k, amp:mp; part2 (noteOn 2) keyNum:d4k, amp:mp; part3 (noteOn 3) keyNum:a4k, amp:mp; t+.5; part2 (noteOn 2) keyNum:c4k, amp:mp; t+.5; part1 (noteOn 1) keyNum:g3k, amp:mp; part2 (noteOn 2) keyNum:bf3k, amp:mp; part3 (noteOn 3) keyNum:g4k, amp:mp; part4 (noteOn 4) keyNum:d5k, amp:mf; t+1; part1 (noteOn 1) keyNum:a3k, amp:mp; part2 (noteOn 2) keyNum:c4k, amp:mp; part3 (noteOn 3) keyNum:g4k, amp:mp; part4 (noteOn 4) keyNum:c5k, amp:mf; t+1; part1 (noteOn 1) keyNum:d3k, amp:mp; part2 (noteOn 2) keyNum:d4k, amp:mp; part3 (noteOn 3) keyNum:fs4k, amp:mp; t+1; part1 (noteOn 1) keyNum:g3k, amp:mp; part2 (noteOn 2) keyNum:d4k, amp:mp; part3 (noteOn 3) keyNum:g4k, amp:mp; part4 (noteOn 4) keyNum:bf4k, amp:mf; t+1; part1 (noteOn 1) keyNum:c3k, amp:mp; part2 (noteOn 2) keyNum:ef4k, amp:mp; part3 (noteOn 3) keyNum:g4k, amp:mp; part4 (noteOn 4) keyNum:a4k, amp:mf; t+.5; part2 (noteOn 2) keyNum:d4k, amp:mp; t+.5; part1 (noteOn 1) keyNum:a2k, amp:mp; part2 (noteOn 2) keyNum:c4k, amp:mp; t+.5; part2 (noteOn 2) keyNum:ef4k, amp:mp; t+.5; part1 (noteOn 1) keyNum:d3k, amp:mp; part2 (noteOn 2) keyNum:d4k, amp:mp; part3 (noteOn 3) keyNum:fs4k, amp:mp; part4 (noteOn 4) keyNum:a4k, amp:mf; t+.5; part2 (noteOn 2) keyNum:c4k, amp:mp; t+.5; part1 (noteOn 1) keyNum:g2k, amp:mp; part2 (noteOn 2) keyNum:bf3k, amp:mp; part3 (noteOn 3) keyNum:d4k, amp:mp; part4 (noteOn 4) keyNum:g4k, amp:mf; t+3; part4 (noteOff 4); part3 (noteOff 3); part2 (noteOff 2); part1 (noteOff 1); part1 (noteOn 1) keyNum:g2k, amp:mp; part2 (noteOn 2) keyNum:d4k, amp:p; part3 (noteOn 3) keyNum:g4k, amp:p; part4 (noteOn 4) keyNum:bf4k, amp:mp; t+1; part1 (noteOn 1) keyNum:g3k, amp:p; t+1; part1 (noteOn 1) keyNum:f3k, amp:p; part2 (noteOn 2) keyNum:d4k, amp:p; part3 (noteOn 3) keyNum:g4k, amp:p; part4 (noteOn 4) keyNum:bf4k, amp:mp; t+1; part1 (noteOn 1) keyNum:ef3k, amp:mp; part2 (noteOn 2) keyNum:ef4k, amp:p; part3 (noteOn 3) keyNum:g4k, amp:p; part4 (noteOn 4) keyNum:bf4k, amp:mp; t+2; part1 (noteOn 1) keyNum:d3k, amp:p; part2 (noteOn 2) keyNum:f4k, amp:p; part3 (noteOn 3) keyNum:bf4k, amp:p; part4 (noteOn 4) keyNum:bf4k, amp:mp; t+1; part1 (noteOn 1) keyNum:c3k, amp:mp; part2 (noteOn 2) keyNum:ef4k, amp:p; part3 (noteOn 3) keyNum:bf4k, amp:p; part4 (noteOn 4) keyNum:ef5k, amp:mp; t+1; part2 (noteOn 2) keyNum:c4k, amp:p; part3 (noteOn 3) keyNum:a4k, amp:p; t+1; part1 (noteOn 1) keyNum:bf2k, amp:p; part2 (noteOn 2) keyNum:f4k, amp:p; part3 (noteOn 3) keyNum:bf4k, amp:p; part4 (noteOn 4) keyNum:d5k, amp:mp; t+1; part1 (noteOn 1) keyNum:f2k, amp:mp; part2 (noteOn 2) keyNum:f4k, amp:p; part3 (noteOn 3) keyNum:bf4k, amp:p; part4 (noteOn 4) keyNum:c5k, amp:mp; t+1; part3 (noteOn 3) keyNum:a4k, amp:p; t+.5; part3 (noteOn 3) keyNum:g4k, amp:p; t+.5; part1 (noteOn 1) keyNum:f3k, amp:p; part2 (noteOn 2) keyNum:f4k, amp:p; part3 (noteOn 3) keyNum:a4k, amp:p; part4 (noteOn 4) keyNum:c5k, amp:mp; t+1; part4 (noteOff 4); part3 (noteOff 3); part2 (noteOff 2); part1 (noteOff 1); part1 (noteOn 1) keyNum:f3k, amp:mp; part2 (noteOn 2) keyNum:f4k, amp:p; part3 (noteOn 3) keyNum:a4k, amp:p; part4 (noteOn 4) keyNum:c5k, amp:mp; t+1; part1 (noteOn 1) keyNum:ef3k, amp:p; t+1; part1 (noteOn 1) keyNum:d3k, amp:p; part2 (noteOn 2) keyNum:fs4k, amp:p; part3 (noteOn 3) keyNum:a4k, amp:p; part4 (noteOn 4) keyNum:d5k, amp:mp; t+1; part1 (noteOn 1) keyNum:g3k, amp:mp; part2 (noteOn 2) keyNum:d4k, amp:p; part3 (noteOn 3) keyNum:g4k, amp:p; part4 (noteOn 4) keyNum:bf4k, amp:mp; t+1; part1 (noteOn 1) keyNum:f3k, amp:p; t+1; part1 (noteOn 1) keyNum:ef3k, amp:p; part2 (noteOn 2) keyNum:c4k, amp:p; part3 (noteOn 3) keyNum:bf4k, amp:p; part4 (noteOn 4) keyNum:c5k, amp:mp; t+.5; part1 (noteOn 1) keyNum:d3k, amp:p; part2 (noteOn 2) keyNum:d4k, amp:p; t+.5; part1 (noteOn 1) keyNum:c3k, amp:mp; part2 (noteOn 2) keyNum:ef4k, amp:p; part3 (noteOn 3) keyNum:g4k, amp:p; part4 (noteOn 4) keyNum:a4k, amp:mp; t+.5; part2 (noteOn 2) keyNum:d4k, amp:p; t+.5; part1 (noteOn 1) keyNum:a2k, amp:p; part2 (noteOn 2) keyNum:c4k, amp:p; t+.5; part2 (noteOn 2) keyNum:ef4k, amp:p; t+.5; part1 (noteOn 1) keyNum:d3k, amp:p; part2 (noteOn 2) keyNum:d4k, amp:p; part3 (noteOn 3) keyNum:fs4k, amp:p; part4 (noteOn 4) keyNum:a4k, amp:mp; t+.5; part2 (noteOn 2) keyNum:c4k, amp:p; t+.5; part1 (noteOn 1) keyNum:g2k, amp:mp; part2 (noteOn 2) keyNum:b3k, amp:p; part3 (noteOn 3) keyNum:d4k, amp:p; part4 (noteOn 4) keyNum:g4k, amp:mp; t+2; part1 (noteOn 1) keyNum:g2k, amp:mp; part2 (noteOn 2) keyNum:b3k, amp:p; part3 (noteOn 3) keyNum:d4k, amp:p; part4 (noteOn 4) keyNum:g4k, amp:mp; t+1; k = k + 1; } t+3; part4 (noteOff 4); part3 (noteOff 3); part2 (noteOff 2); part1 (noteOff 1); END;