diff options
| author | Richard <q@1bpm.net> | 2022-01-22 22:27:01 +0000 |
|---|---|---|
| committer | Richard <q@1bpm.net> | 2022-01-22 22:27:01 +0000 |
| commit | 44d3d5ece0a53d5316a2ccc9898b79992d81fef7 (patch) | |
| tree | b456d3007f3e8c5a122f0dc286192e8eaf90a1b1 | |
| parent | 5afc582483c0658f3c8bac9cd854a7905e8d88c7 (diff) | |
| download | csd-unfixedbugs1-44d3d5ece0a53d5316a2ccc9898b79992d81fef7.tar.gz csd-unfixedbugs1-44d3d5ece0a53d5316a2ccc9898b79992d81fef7.tar.bz2 csd-unfixedbugs1-44d3d5ece0a53d5316a2ccc9898b79992d81fef7.zip | |
update
| -rw-r--r-- | BID-rework/bid_source.udo | 135 | ||||
| -rw-r--r-- | BID-rework/instruments.udo | 312 | ||||
| -rw-r--r-- | BUG1/BUG1.csd | 36 | ||||
| -rw-r--r-- | BUG5/BUG5.csd | 11 | ||||
| -rw-r--r-- | BUG5/bid_source.udo | 157 | ||||
| -rw-r--r-- | BUG5/instruments.udo | 52 | ||||
| -rw-r--r-- | BUG6/BUG6.csd | 5 | ||||
| -rw-r--r-- | BUG6/bid_source.udo | 40 | ||||
| -rw-r--r-- | BUG6/instruments.udo | 2 | ||||
| -rw-r--r-- | BUG7/BUG7.csd | 85 | ||||
| -rw-r--r-- | BUG7/bid_source.udo | 79 | ||||
| -rw-r--r-- | BUG7/instruments.udo | 163 | ||||
| -rw-r--r-- | BUG7/oprepare.udo | 92 | ||||
| -rw-r--r-- | BUG7/src_vox.udo | 11 | ||||
| -rw-r--r-- | BUG7/vox.het | 301 | ||||
| -rw-r--r-- | BUG8/BUG8.csd | 313 | ||||
| -rw-r--r-- | BUG8/wavetables.udo (renamed from BID-rework/wavetables.udo) | 2 | ||||
| -rw-r--r-- | BUG9/BUG9.csd (renamed from BID-rework/BUG5.csd) | 85 | ||||
| -rw-r--r-- | BUG9/bid.udo (renamed from BID-rework/bid.udo) | 24 | ||||
| -rw-r--r-- | BUG9/bid_source.udo | 84 | ||||
| -rw-r--r-- | BUG9/bussing.udo (renamed from BID-rework/bussing.udo) | 5 | ||||
| -rw-r--r-- | BUG9/instruments.udo | 179 | ||||
| -rw-r--r-- | BUG9/txt_tools.udo (renamed from BID-rework/txt_tools.udo) | 2 | ||||
| -rw-r--r-- | BUG9/wavetables.udo | 16 |
24 files changed, 1609 insertions, 582 deletions
diff --git a/BID-rework/bid_source.udo b/BID-rework/bid_source.udo deleted file mode 100644 index a64d00a..0000000 --- a/BID-rework/bid_source.udo +++ /dev/null @@ -1,135 +0,0 @@ -/* - Debugger - Unfixed Bugs : BUG #5 - - Bug Infested Directives source - Provided as a string due to readfi not being available on all platforms. - Used with bid_loadtext (whereas a separate file would be used with bid_loadfile and requires readfi support) -*/ - -SBID = {{ -; Bug Infested Directives : Debugger - Unfixed Bugs : BUG #5 -v 1.1 - -; tempo, swing percent -b 123, 41 - -; chord groups -c 1 - 3.5, 56, 59, 61, 64 - 4.5, 56, 59, 63 - 8, 59, 60, 62, 65, 69 - -c 2 - 8, 56, 59, 61, 64, 69 - 8, 56, 59, 65, 71, 73 -;8, 56, 59, 63, 68 -;4.5, 57, 60, 65, 69, 71 -; 4.5, 60, 61, 65, 67, 70 ; 57, 60, 65, 69, 71 - - -; sections: section number, length, chordgroup -s 1, 32, 2 -s 2, 32, 1 -s 3, 32, 1 - - - -; patterns: trig , dur, amp, chance -i stringchord, 1 -; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - - 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 - 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4.5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.6, 1, 1, 1, 1, 1, 1, 1, 1 - 1,.6, 1,.6, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 0,.7, 1,.6, 1, 1, 1, 1, 1, 1 -i stringchord, 2, -1 -i stringchord, 3, -1 - - -i chord1, 1, -1 -i chord1, 2 -; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - - 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 - 3.5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4.5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.6, 1, 1, 1, 1, 1, 1, 1, 1 - 1,.6, 1,.6, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 0,.7, 1,.6, 1, 1, 1, 1, 1, 1 -i chord1, 3, 2 - -i clap, 1, -1 -i clap, 2 -; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - - 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0 - 0, 0, 0, 0,.1, 0, 0, 0, 0, 0, 0, 0,.1, 0, 0, 0, 0, 0, 0, 0,.1, 1, 0, 0, 0, 0, 0, 0,.1, 0, 0, 1 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 -i clap, 3, 2 - -i snare, 1 -; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - - 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 - 1, 1, 1, 1, 1, 1, 1,.5, 1,.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1,.5, 1, 1, 1, 1, 1, 1 -i snare, 2, 1 -i snare, 3, 1 - -i hat1, 1 -; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - - 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 - 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1,.8, 1, 1, 1, 1, 1, 1 - 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1,.5, 1, 1, 1, 1, 1, 1 -i hat1, 2, 1 -i hat1, 3, 1 - -i hat2, 1, -1 -i hat2, 2 -; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - - 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 0 - .1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 -i hat2, 3, 2 - - -i mel1, 1 -; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - - 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0 - .2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.1,.2,.2,.1,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.1,.1,.5,.2,.2,.2 - 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1,.8, 1, 1, 1, 1, 1, 1 - 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1,.5, 1, 1, 1, 1, 1, 1 -i mel1, 2 - 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0 - .2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.1,.2,.2,.1,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.1,.1,.5,.2,.2,.2 - 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1,.8, 1, 1, 1, 1, 1, 1 - 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1,.5, 1, 1, 1, 1, 1, 1 -i mel1, 3, 2 - - -i 303, 1, -1 -i 303, 2, -1 -i 303, 3 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 - .2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 - .6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6 - - -i bass, 1, -1 -i bass, 2 -; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - - 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1 - .5,.2,.2,.2,.2,.2,.2,.2,.2,.2,.5,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.5,.2,.2,.2,.2,.2, - 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1,.8, 1, 1, 1, 1, 1, 1 - 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1,.5, 1, 1, 1, 1, 1, 1 -i bass, 3, 2 - - -i kick, 1 -; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - - 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0 - .9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9 - 1, 0,.8, 0, 1, 0, 0, 0, 1, 0,.7, 0, 1, 0, 0, 0, 1, 0,.8, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0,.6,.6 - 1, 1,.1, 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1, 1, 1, 1, 1,.1, 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1,.6,.2 -i kick, 2, 1 -i kick, 3, 1 -}} diff --git a/BID-rework/instruments.udo b/BID-rework/instruments.udo deleted file mode 100644 index 834f942..0000000 --- a/BID-rework/instruments.udo +++ /dev/null @@ -1,312 +0,0 @@ -#ifndef UDO_INSTRUMENTS -#define UDO_INSTRUMENTS ## -/* - Debugger - Unfixed Bugs : BUG #5 - - Sound generators - Names should correspond to those used in BID file, prepended with play_ -*/ - - -#include "wavetables.udo" -#include "bussing.udo" -#include "bid.udo" - - -instr play_hat1 - iamp = bid_getparameter(p4, p5, 2) - idel1 = random(0.01, 0.03) - idel2 = random(0.01, 0.03) - xtratim(max(idel1, idel2)) - p3 = 0.22 - kfreq linseg 1000, p3*0.2, 300, p3*0.8, 500 ; mid as 500 not 300 - aenv expsega .1, .0005, 1, p3 - .0005, .01 - asqr1 oscil 1, kfreq, gifnSquare, -1 - asqr2 oscil 1, kfreq*1.4471, gifnSquare, -1 - asqr3 oscil 1, kfreq*1.6170, gifnSquare, -1 - asqr4 oscil 1, kfreq*1.9265, gifnSquare, -1 - asqr5 oscil 1, kfreq*2.5028, gifnSquare, -1 - asqr6 oscil 1, kfreq*2.6637, gifnSquare, -1 - a808 sum asqr1, asqr2, asqr3, asqr4, asqr5, asqr6 - a808 butterhp a808, 3270 - a808 butterhp a808, 3270 - aout = a808 * aenv * iamp - aL delay aout, idel1 - aR delay aout, idel2 - bus_mix("master", aL, aR) -endin - - -instr play_hat2 - iamp = bid_getparameter(p4, p5, 2) - idel1 = random(0.005, 0.02) - idel2 = random(0.005, 0.02) - xtratim(max(idel1, idel2)) - kfreq init 415.3*0.8 - aenv expsega .1, .0005, 1, p3 - .0005, .01 - asqr1 oscil 1, kfreq, gifnSquare, -1 - asqr2 oscil 1, kfreq*1.4471, gifnSquare, -1 - asqr3 oscil 1, kfreq*1.6170, gifnSquare, -1 - asqr4 oscil 1, kfreq*1.9265, gifnSquare, -1 - asqr5 oscil 1, kfreq*2.5028, gifnSaw, -1 - asqr6 oscil 1, kfreq*2.6637, gifnSaw, -1 - a808 sum asqr1, asqr2, asqr3, asqr4, asqr5, asqr6 - a808 butterhp a808, 3270 - a808 butterhp a808, 3270 - aout = a808 * aenv * iamp - aL delay aout, idel1 - aR delay aout, idel2 - bus_mix("master", aL, aR) -endin - -instr play_bass - iamp = bid_getparameter(p4, p5, 2) - inote = tab_i(random(1, ftlen(gibid_chordfn) - 3), gibid_chordfn) - 24 - a1 foscil 0.56, cpsmidinn(inote), 1, 2, random(0, 6), gifnSine - a1 pareq a1, 150, 0.24, 0.9 - a1 pareq a1, 80, 1.3, 0.9 - kenv linseg 1, p3, 0 - aout = a1*kenv - bus_mix("master", aout, aout) -endin - - -instr play_kick ; 808 style kick - iamp = bid_getparameter(p4, p5, 2) - - idist = 0.35 ;= (i(gksection) == 1) ? 0.55 : 0.35 - xtratim 0.1 - krelease release - ktune init 0 - kmul transeg 0.2, p3*0.5, -15, 0.01, p3*0.5, 0, 0 - kbend transeg 0.5, 1.2, -4, 0, 1, 0, 0 - asig gbuzz 0.5, 50*octave(ktune)*semitone(kbend), 20, 1, kmul, gifnCosine - aenv transeg 1, p3-0.004, -6, 0 - gkpump = k(aenv) - aatt linseg 0, 0.004, 1 - asig = asig*aenv*aatt - aenv linseg 1, 0.07, 0 - acps expsega 400, 0.07, 0.001, 1, 0.001 - aimp oscili aenv, acps*octave(ktune*0.25) - amix = ((asig*0.7)+(aimp*0.35))*2*iamp - gkpump = min(rms(amix) * 7, 1) - aout1 distort amix, idist, gifnSine - - - aout1 *= 1.6 - bus_mix("master", aout1, aout1) -endin - - -instr play_snare - icps0 = 211 - iamp = bid_getparameter(p4, p5, 2) - ;p3 = random(0.03, 0.5) - icps1 = 2.0 * icps0 - kcps port icps0, 0.007, icps1 - kcpsx = kcps * 1.5 - - kfmd port 0.0, 0.01, 0.7 - aenv1 expon 1.0, 0.03, 0.5 - kenv2 port 1.0, 0.008, 0.0 - aenv2 interp kenv2 - aenv3 expon 1.0, 0.025, 0.5 - - a_ oscili 1.0, kcps - a1 oscili 1.0, kcps * (1.0 + a_*kfmd) - a_ oscili 1.0, kcpsx - a2 oscili 1.0, kcpsx * (1.0 + a_*kfmd) - - a3 unirand 2.0 - a3 = a3 - 1.0 - a3 butterbp a3, 3200, 1500 - a3 = a3 * aenv2 - - a0 = a1 + a2*aenv3 + a3*1.0 - a0 = a0 * aenv1 - a0 butterhp a0, 210 - aout = a0*iamp - bus_mix("master", aout, aout) - -endin - - -/* - Convenience opcode for playing current chord on given instrument, passing p4 as note and p5 as amp - - chordinstrument Sinstrument - - Sinstrument the instrument name - ipos position in pattern - idataindex section specific data index; pointer to ftable -*/ -opcode chordinstrument, 0, Sii - Sinstrument, ipos, idataindex xin - iamp = bid_getparameter(ipos, idataindex, 2) - index = 1 ; index 0 is chordgroup length - while (index < ftlen(gibid_chordfn)) do - event_i "i", Sinstrument, 0, p3, tab_i(index, gibid_chordfn), iamp - index += 1 - od - -endop - - - -instr play_clap - iamp = bid_getparameter(p4, p5, 2) - ;p3 = 0.065 - aL noise 1, 0.9 - aR noise 0.5, 0.4 - aL butterbp aL, 1200, 1100 - aR butterbp aR, 1200, 1100 - aL butterhp aL, 400 - aR butterhp aR, 400 - kamp1 linseg 1, p3*0.1, 0, p3*0.1, 1, p3*0.2, 0.1, p3*0.3, 0.5, p3*0.2, 0, p3*0.05, 0.4, p3*0.05, 0 - kamp2 linseg 1, p3*0.15, 0, p3*0.15, 1, p3*0.1, 0.1, p3*0.2, 0.5, p3*0.3, 0, p3*0.05, 0.4, p3*0.05, 0 - - aL = aL*kamp1*12*iamp - aR = aR*kamp2*12*iamp - bus_mix("master", aL, aR) - bus_mix("reverb", aL*0.2, aR*0.2) -endin - -instr play_mel1 - iamp = bid_getparameter(p4, p5, 2) - inote = tab_i(1, gibid_chordfn) ;tab_i(random(1, ftlen(gibid_chordfn) - 3), gibid_chordfn) - 12 - inote2 = tab_i(2, gibid_chordfn) ;tab_i(random(1, ftlen(gibid_chordfn) - 3), gibid_chordfn) - 12 - aL moog 0.6*iamp, cpsmidinn(inote - 12), 0.1, 0.02, 4, 0.01, gifnSine, gifnSaw, gifnSine - aR moog 0.6*iamp, cpsmidinn(inote2 - 12), 0.1, 0.002, 4, 0.01, gifnSine, gifnSaw, gifnSine - kenv linseg 1, p3*0.8, 0, p3*0.2, 0 - aL *= kenv - aR *= kenv - bus_mix("master", aL, aR) -endin - -instr string - if (random(0, 1) > 0.8) then - ifqc = cpsmidinn(p4) - else - ifqc = cpsmidinn(p4+12) - endif - iamp = p5 -idur = p3 - ifm1 = ifqc - ifm2 = ifqc*3 - ifm3 = ifqc*4 - indx1 = 7.5/log(ifqc) ;range from ca 2 to 1 - indx2 = 15/sqrt(ifqc) ;range from ca 2.6 to .5 - indx3 = 1.25/sqrt(ifqc) ;range from ca .2 to .038 - - irise = 0.1 - idec = 0.4 - inoisdur= .1 - ivibdel = 0.25 - ivibwth = 0.01 - ivibrte = 5.5 - - kvib init 0 - kvbctl linen 1,.5,p3-ivibdel,.1 ; vibrato control envelope - krnd randi .0075,2 ; random deviation vib width - kvib oscili kvbctl*ivibwth+krnd,ivibrte*kvbctl ; generator - - ktrans linseg 1,inoisdur,0,1,0 ; transient envelope - anoise randi ktrans*iamp/4,.2*ifqc ; attack noise... - attack oscili anoise,2000 ; ...centered around 2kHz - - amod1 oscili ifm1*(indx1+ktrans),ifm1 - amod2 oscili ifm2*(indx2+ktrans),ifm2 - amod3 oscili ifm3*(indx3+ktrans),ifm3 - asig oscili iamp,(ifqc+amod1+amod2+amod3)*(1+kvib) - asig linen (asig+attack),irise,idur,idec - asig butterhp asig, 800 - asig butterhp asig, 200 - kenv linseg 0, p3*0.25, 0.7, p3*0.5, 1, p3*0.25, 0 - asig *= kenv - asig *= 0.2 - aL = asig - aR = asig - bus_mix("delay1", aL, aR) -bus_mix("reverb", aL, aR) - - -endin - - -instr play_303 - iamp = bid_getparameter(p4, p5, 2) - ifilter = random(50, 70) - inote = tab_i(random(1, ftlen(gibid_chordfn) - 1), gibid_chordfn) - - ifrq1 = 440 * exp(log(2) * (ifilter - 69) / 12) ; filter start freq. - kamp linseg 1, p3-0.01, 1, 0.025, 0, 1, 0 ; release envelope - kcps init cpsmidinn(inote) - kffrq port 0, 60/150, ifrq1 ; filter frequency - a1 phasor kcps ; oscillator - a1 = 1 - 2 * a1 - - a1x butterbp a1, kffrq, kcps * 1.0 ; filters - a1x = a1x * (2 + kffrq / kcps) ; correct amplitude - a1 = a1x + a1 * 0.25 ; 0.5 - a1 butterlp a1, kffrq - - a1 = taninv(a1 * 4 * iamp) ; distortion ; 2.5 - - keqf limit kffrq * 4, 10, sr * 0.48 ; EQ frequency - a1 pareq a1 * 0.4, keqf, 4.0, 1.0, 2 - a1 butterhp a1, 250 - a1 = a1 * kamp * 0.72 - aL, aR pan2 a1, random(0.3, 0.7) - bus_mix("reverb", aL*0.3, aR*0.3) - bus_mix("master", aL*0.8, aR*0.8) -endin - -instr chord1 - inote = p4 - iamp = p5 - kfreq init cpsmidinn(inote) - - aphs1 phasor kfreq - aphs2 phasor kfreq - koda = abs(oscil(random(0, 2), random(0, 1))) - a1 tablei aphs1, gifnSine, 1, 0, 1 - a1 *= linseg(1, p3*0.9, 0) - - av1L linseg 3, p3, 0 - aL tablei (aphs2+a1)+av1L+koda, gifnSine, 1, 0, 1 - - av1R linseg 4, p3, 0 - aR tablei (aphs2+a1)+av1R+koda, gifnSine, 1, 0, 1 - - kfi linseg 0, p3*0.2, 1, p3*0.8, 1 - aL phaser1 aL*kfi, oscil:k(7400, 0.1, gifnSine, random(0, 0.5)) + 1000, 8, .9 - aR phaser1 aR*kfi, oscil:k(7400, 0.1, gifnSine, random(0, 0.5)) + 1000, 8, .9 - aL *= 0.16 * iamp - aR *= 0.16 * iamp - aL butterhp aL, 520 - aR butterhp aR, 520 - if (i(gksection) == 3) then - aL butterlp aL, 1000 - aR butterlp aR, 1000 - endif - bus_mix("delay1", aL, aR) - ;bus_mix("master", aL, aR) -endin - - -/* - Play chord1 above, called from BID -*/ -instr play_chord1 - chordinstrument "chord1", p4, p5 - turnoff -endin - -instr play_stringchord - chordinstrument "string", p4, p5 - turnoff -endin - - - -#end diff --git a/BUG1/BUG1.csd b/BUG1/BUG1.csd index fb09f77..bbba770 100644 --- a/BUG1/BUG1.csd +++ b/BUG1/BUG1.csd @@ -1,6 +1,7 @@ <CsoundSynthesizer>
<CsOptions>
-g -odac
+-m0
</CsOptions>
<CsInstruments>
/*
@@ -8,11 +9,12 @@ Debugger - Unfixed Bugs - BUG1
By Richard Knight 2019
+ Revised 2021
*/
sr = 44100
-kr = 4410
+ksmps = 10
nchnls = 2
; general globals
@@ -126,9 +128,9 @@ endin instr 800
aL zar 3
aR zar 4
- ;aL compress aL, aL, -1, 30, 60, 1.2, 0.1, 0.01, 0.01
- ;aR compress aR, aR, -1, 30, 60, 1.2, 0.1, 0.01, 0.01
- outs aL*0.9, aR*0.9
+ aL limit aL*2, -0dbfs, 0dbfs
+ aR limit aR*2, -0dbfs, 0dbfs
+ outs aL, aR
zacl 3, 4
endin
@@ -175,24 +177,26 @@ endin /* kick */
instr 901
- kax linseg 300, p3*0.05, 100, p3*0.1, 40, p3*0.8, 20
- kenv linseg 1,p3*0.2,0.6,p3*0.2,0.4,p3*0.2,0.1,p3*0.2,0
- kpit linseg 500, p3*0.2, 100, p3*0.4, 40, p3*0.2, 30, p3*0.2, 20
- a2 oscil 8500,kpit*0.35,1
- a3 oscil 9500,kpit*0.2,1
+ aax linseg 300, p3*0.05, 100, p3*0.1, 40, p3*0.8, 20
+ aenv linseg 1,p3*0.2,0.6,p3*0.2,0.4,p3*0.2,0.1,p3*0.2,0
+ apit linseg 500, p3*0.2, 100, p3*0.4, 40, p3*0.2, 30, p3*0.2, 20
+ a2 oscil 8500,apit*0.35,1
+ a3 oscil 9500,apit*0.2,1
an noise 3000,-0.1
ax1 oscil 300, 400, 1
ax2 oscil 80, 900, 1
- kaxenv linseg 0.2, p3*0.02, 0
- akx = (ax1*ax2)*kaxenv
+ aaxenv linseg 0.2, p3*0.02, 0
+ akx = (ax1*ax2)*aaxenv
aout = a2+a3 ; + ax
- gkpump = kenv
- amix = p4*((aout*kenv)+akx)
- adist distort amix, 0.13, 1
- aeq1 pareq adist, 70, 1.5, 2
- aeq2 pareq aeq1, 200, 0.7, 0.9
+ gkpump = k(aenv)
+ amix = p4*((aout*aenv)+akx)
+ amix pareq amix, 100, 0.1, 0.9
+ adist distort amix, 0.43, 1
+ aeq1 pareq adist, 60, 1.5, 2
+ aeq2 pareq aeq1, 100, 0.1, 0.9
aout pareq aeq2, 5000, 1.8, 0.5
+ aout *= 2
zawm aout*0.7, 1
zawm aout*0.7, 2
endin
diff --git a/BUG5/BUG5.csd b/BUG5/BUG5.csd index e240fcf..7d45739 100644 --- a/BUG5/BUG5.csd +++ b/BUG5/BUG5.csd @@ -1,6 +1,7 @@ <CsoundSynthesizer> <CsOptions> -odac +-m0 </CsOptions> <CsInstruments> /* @@ -67,6 +68,14 @@ endin instr global_master igain = 1 aL, aR bus_read "master" + itime6 = tab_i(1, gibid_sectionlengths)*gibid_beattime + if (gksection == 6) then + khpf linseg 5, itime6*0.5, 10, itime6*0.3, 100, itime6*0.2, 500 + klpf linseg 22050, itime6*0.5, 22050, itime6*0.3, 10000, itime6*0.2, 1000 + aL butterhp butterlp(aL, klpf), khpf + aR butterhp butterlp(aR, klpf), khpf + endif + aL limit aL*0.5, -1, 1 aR limit aR*0.5, -1, 1 outs aL*gkmastergain*igain, aR*gkmastergain*igain @@ -95,6 +104,7 @@ endin instr sequencer isection = 1 + event_i "i", "bid_setcurrentchord", 0, 1, isection, 0 event_i "i", "global_delay1", 0, p3 event_i "i", "global_reverb", 0, p3 @@ -122,6 +132,7 @@ instr sequencer bid_seq "bass", kpos, ksection bid_seq "clap", kpos, ksection bid_seq "303", kpos, ksection + bid_seq "303b", kpos, ksection kpos = (kpos < 31) ? kpos + 1 : 0 diff --git a/BUG5/bid_source.udo b/BUG5/bid_source.udo index a64d00a..7052e2e 100644 --- a/BUG5/bid_source.udo +++ b/BUG5/bid_source.udo @@ -22,6 +22,16 @@ c 1 c 2 8, 56, 59, 61, 64, 69 8, 56, 59, 65, 71, 73 + +c 3 + 2.5, 56, 59, 65, 71, 73 + 1.5, 58, 59, 67, 71, 78 + 2.5, 59, 61, 67, 71, 73 + 1.5, 61, 64, 67, 71, 78 + + + + ;8, 56, 59, 63, 68 ;4.5, 57, 60, 65, 69, 71 ; 4.5, 60, 61, 65, 67, 70 ; 57, 60, 65, 69, 71 @@ -29,8 +39,12 @@ c 2 ; sections: section number, length, chordgroup s 1, 32, 2 -s 2, 32, 1 -s 3, 32, 1 +s 2, 64, 1 +s 3, 24, 1 +s 4, 8, 3 +s 5, 32, 2 +s 6, 32, 2 +s 7, 32, 1 @@ -43,6 +57,15 @@ i stringchord, 1 1,.6, 1,.6, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 0,.7, 1,.6, 1, 1, 1, 1, 1, 1 i stringchord, 2, -1 i stringchord, 3, -1 +i stringchord, 4, -1 +i stringchord, 5, 1 +i stringchord, 6, -1 +i stringchord, 7 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,.6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.6, 1, 1, 1, 1, 1, 1, 1, 1 + 1,.6, 1,.6, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 0,.7, 1,.6, 1, 1, 1, 1, 1, 1 i chord1, 1, -1 @@ -53,6 +76,11 @@ i chord1, 2 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.6, 1, 1, 1, 1, 1, 1, 1, 1 1,.6, 1,.6, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 0,.7, 1,.6, 1, 1, 1, 1, 1, 1 i chord1, 3, 2 +i chord1, 4, 2 +i chord1, 5, 2 +i chord1, 6, 2 +i chord1, 7, -1 + i clap, 1, -1 i clap, 2 @@ -62,6 +90,20 @@ i clap, 2 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 i clap, 3, 2 +i clap, 4 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 1, 0 + .1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 +i clap, 5, 2 +i clap, 6, 2 +i clap, 7 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0 + 0, 0, 0, 0,.1, 0, 0, 0, 0, 0, 0, 0,.1, 0, 0, 0, 0, 0, 0, 0,.1, 1, 0, 0, 0, 0, 0, 0,.2, 0, 0, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 i snare, 1 ; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - @@ -71,6 +113,20 @@ i snare, 1 1, 1, 1, 1, 1, 1, 1,.5, 1,.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1,.5, 1, 1, 1, 1, 1, 1 i snare, 2, 1 i snare, 3, 1 +i snare, 4 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 +i snare, 5, 1 +i snare, 6, -1 +i snare, 7 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 i hat1, 1 ; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - @@ -80,6 +136,20 @@ i hat1, 1 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1,.5, 1, 1, 1, 1, 1, 1 i hat1, 2, 1 i hat1, 3, 1 +i hat1, 4, 1 +i hat1, 5 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1,.4, 1,.8, 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1,.8, 1,.8, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1,.5, 1, 1, 1, 1, 1, 1 +i hat1, 6, 5 +i hat1, 7 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 0 + .1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1 + .4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 i hat2, 1, -1 i hat2, 2 @@ -89,6 +159,20 @@ i hat2, 2 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 i hat2, 3, 2 +i hat2, 4, -1 +i hat2, 5 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1 + .1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 +i hat2, 6, 5 +i hat2, 7 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0 + .1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1 + 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1,.8, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1,.5, 1, 1, 1, 1, 1, 1 i mel1, 1 @@ -103,6 +187,20 @@ i mel1, 2 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1,.8, 1, 1, 1, 1, 1, 1 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1,.5, 1, 1, 1, 1, 1, 1 i mel1, 3, 2 +i mel1, 4 + 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0 + .2,.2,.2,.2,.5,.2,.2,.2,.2,.2,.2,.2,.5,.2,.2,.2,.2,.2,.2,.2,.5,.2,.2,.2,.2,.2,.2,.2,.5,.2,.2,.2 + 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1,.8, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1,.5, 1, 1, 1, 1, 1, 1 +i mel1, 5, -1 +i mel1, 6, -1 +i mel1, 7 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0 + .2,.2,.2,.2,.2,.2, 2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + i 303, 1, -1 @@ -112,7 +210,33 @@ i 303, 3 .2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 .6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6 +i 303, 4, 3 +i 303, 5 + 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1 + .2,.2,.2,.7,.2,.2,.2,.7,.2,.2,.2,.7,.2,.2,.2,.7,.2,.2,.2,.7,.2,.2,.2,.7,.2,.2,.2,.7,.2,.2,.2,.2 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 +i 303, 6, 5 +i 303, 7 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0 + .2,.2,.2,.2,.2,.2, 2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.6 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + + +i 303b, 1, -1 +i 303b, 2, -1 +i 303b, 3, -1 +i 303b, 4, -1 +i 303b, 5 + 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 + .2,.2,.2,.2,.2,.2, 2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 +i 303b, 6, 5 +i 303b, 7, -1 i bass, 1, -1 i bass, 2 @@ -122,7 +246,25 @@ i bass, 2 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1,.8, 1, 1, 1, 1, 1, 1 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1,.5, 1, 1, 1, 1, 1, 1 i bass, 3, 2 - +i bass, 4 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0 + .2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2 + 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1,.8, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1,.5, 1, 1, 1, 1, 1, 1 +i bass, 5 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1 + .5,.2,.5,.2,.2,.2,.2,.2,.2,.2,.5,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.5,.2,.2,.2,.5,.2,.2,.2,.2,.2, + 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1,.8, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1,.5, 1, 1, 1, 1, 1, 1 +i bass, 6, 5 +i bass, 7 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0 + .5,.5,.3,.5,.5,.5,.3,.5,.5,.5,.3,.5,.5,.5,.3,.5,.5,.5,.3,.5,.5,.5,.3,.5,.5,.5,.3,.5,.5,.5,.3,.5 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 i kick, 1 ; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - @@ -132,4 +274,13 @@ i kick, 1 1, 1,.1, 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1, 1, 1, 1, 1,.1, 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1,.6,.2 i kick, 2, 1 i kick, 3, 1 +i kick, 4 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0 + .9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 +i kick, 5, 1 +i kick, 6, 1 +i kick, 7, 1 }} diff --git a/BUG5/instruments.udo b/BUG5/instruments.udo index 834f942..356d775 100644 --- a/BUG5/instruments.udo +++ b/BUG5/instruments.udo @@ -18,7 +18,12 @@ instr play_hat1 idel1 = random(0.01, 0.03) idel2 = random(0.01, 0.03) xtratim(max(idel1, idel2)) - p3 = 0.22 + isection = i(gksection) + if (isection == 5 || isection == 6 || isection == 7) then + p3 = 0.15 + else + p3 = 0.22 + endif kfreq linseg 1000, p3*0.2, 300, p3*0.8, 500 ; mid as 500 not 300 aenv expsega .1, .0005, 1, p3 - .0005, .01 asqr1 oscil 1, kfreq, gifnSquare, -1 @@ -53,7 +58,7 @@ instr play_hat2 a808 sum asqr1, asqr2, asqr3, asqr4, asqr5, asqr6 a808 butterhp a808, 3270 a808 butterhp a808, 3270 - aout = a808 * aenv * iamp + aout = a808 * aenv * iamp * 0.8 aL delay aout, idel1 aR delay aout, idel2 bus_mix("master", aL, aR) @@ -66,7 +71,7 @@ instr play_bass a1 pareq a1, 150, 0.24, 0.9 a1 pareq a1, 80, 1.3, 0.9 kenv linseg 1, p3, 0 - aout = a1*kenv + aout = a1*kenv * 1.2 bus_mix("master", aout, aout) endin @@ -261,6 +266,33 @@ instr play_303 bus_mix("master", aL*0.8, aR*0.8) endin +instr play_303b + iamp = bid_getparameter(p4, p5, 2) + ifilter = random(70, 90) + inote1 = cpsmidinn(tab_i(ftlen(gibid_chordfn) - 4, gibid_chordfn) + 12) + inote2 = cpsmidinn(tab_i(ftlen(gibid_chordfn) - 3, gibid_chordfn) + 12) + + ifrq1 = 440 * exp(log(2) * (ifilter - 69) / 12) ; filter start freq. + kcps linseg inote1, p3*0.2, inote1, p3*0.6, inote2, p3*0.2, inote2 + kffrq port 0, 60/150, ifrq1 ; filter frequency + a1 phasor kcps ; oscillator + a1 = 1 - 2 * a1 + + a1x butterbp a1, kffrq, kcps * 1.0 ; filters + a1x = a1x * (2 + kffrq / kcps) ; correct amplitude + a1 = a1x + a1 * 0.25 ; 0.5 + a1 butterlp a1, kffrq + + a1 = taninv(a1 * 2.5 * iamp) + + keqf limit kffrq * 4, 10, sr * 0.48 ; EQ frequency + a1 pareq a1 * 0.4, keqf, 4.0, 1.0, 2 + a1 butterhp a1, 250 + aL, aR pan2 a1, random(0.3, 0.7) + bus_mix("reverb", aL*1.3, aR*1.3) + bus_mix("master", aL*0.5, aR*0.5) +endin + instr chord1 inote = p4 iamp = p5 @@ -279,16 +311,18 @@ instr chord1 aR tablei (aphs2+a1)+av1R+koda, gifnSine, 1, 0, 1 kfi linseg 0, p3*0.2, 1, p3*0.8, 1 - aL phaser1 aL*kfi, oscil:k(7400, 0.1, gifnSine, random(0, 0.5)) + 1000, 8, .9 - aR phaser1 aR*kfi, oscil:k(7400, 0.1, gifnSine, random(0, 0.5)) + 1000, 8, .9 + isection = i(gksection) + if (isection == 3 || isection == 4 || isection == 5 || isection == 6) then + aL butterlp aL, 600 + aR butterlp aR, 600 + else + aL phaser1 aL*kfi, oscil:k(7400, 0.1, gifnSine, random(0, 0.5)) + 1000, 8, .9 + aR phaser1 aR*kfi, oscil:k(7400, 0.1, gifnSine, random(0, 0.5)) + 1000, 8, .9 + endif aL *= 0.16 * iamp aR *= 0.16 * iamp aL butterhp aL, 520 aR butterhp aR, 520 - if (i(gksection) == 3) then - aL butterlp aL, 1000 - aR butterlp aR, 1000 - endif bus_mix("delay1", aL, aR) ;bus_mix("master", aL, aR) endin diff --git a/BUG6/BUG6.csd b/BUG6/BUG6.csd index 2520d25..394959b 100644 --- a/BUG6/BUG6.csd +++ b/BUG6/BUG6.csd @@ -1,7 +1,7 @@ <CsoundSynthesizer> <CsOptions> -odac -;-m0 +-m0 </CsOptions> <CsInstruments> /* @@ -130,6 +130,9 @@ instr global_master aL += resony(anL, kfreq*4, 3, 24, 4) * 0.005 * knoiseamp aR += resony(anR, kfreq*4, 3, 24, 4) * 0.005 * knoiseamp bus_mix("delay1", aL*knoiseamp*0.5, aR*knoiseamp*0.5) + khpf expseg 1, ilen*0.4, 300, ilen*0.4, 600, ilen*0.1, 20, ilen*0.1, 20 + aL butterhp aL, khpf + aR butterhp aR, khpf endif aL limit aL*0.5, -1, 1 aR limit aR*0.5, -1, 1 diff --git a/BUG6/bid_source.udo b/BUG6/bid_source.udo index fd2b6b6..76d508a 100644 --- a/BUG6/bid_source.udo +++ b/BUG6/bid_source.udo @@ -26,7 +26,7 @@ s 1, 64, 1 s 2, 64, 1 s 3, 8, 2 s 4, 56, 1 - +s 5, 32, 2 i glitchread, 1, -1 i glitchread, 2, -1 @@ -37,7 +37,7 @@ i glitchread, 4 .1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.3,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1 1, 1, 1, 1, 1,.9, 1,.8, 1, 1, 1,.9, 1,.8,.6, 1, 1, 1, 1, 1, 1,.9, 1,.8, 1, 1, 1,.9, 1,.8, 1, 1 1, 1, 1,.8, 1,.8, 1,.8, 1,.8, 1,.8, 1,.8,.3, 1, 1, 1, 1,.8, 1,.8, 1,.8, 1,.8, 1,.8, 1,.8, 1, 1 - +i glitchread, 5, -1 i 303, 1, -1 @@ -49,6 +49,13 @@ i 303, 2 1, 1, 1, 1, 1, 1,.4, 1, 1, 1,.4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.6, 1,.4, 1, 1, 1, 1, 1, 1, 1, 1 i 303, 3, -1 i 303, 4, 2 +i 303, 5 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1 + .1,.1,.1,.3,.1,.1,.1,.3,.1,.1,.1,.3,.1,.1,.1,.3,.1,.1,.1,.3,.1,.1,.1,.3,.1,.1,.1,.3,.1,.1,.3,.1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + i 303b, 1 ; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - @@ -59,7 +66,12 @@ i 303b, 1 i 303b, 2, 1 i 303b, 3, 1 i 303b, 4, 1 - +i 303b, 5 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0 + .1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 i blip, 1 ; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - @@ -70,7 +82,12 @@ i blip, 1 i blip, 2, 1 i blip, 3, 1 i blip, 4, 1 - +i blip, 5 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1 + .1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 i clap, 1, -1 i clap, 2 @@ -86,6 +103,7 @@ i clap, 3 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 i clap, 4, 2 +i clap, 5, 3 i snare, 1 @@ -100,8 +118,9 @@ i snare, 3 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1 .1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.3, 1, 1,.3,.3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.3, 1, 1,.3,.3, 1, 1, 1, 1, 1, 1, 1, 1, 1,.3, 1,.3, 1,.3,.3,.3 i snare, 4, 1 +i snare, 5, 3 i hat1, 1 @@ -113,6 +132,8 @@ i hat1, 1 i hat1, 2, 1 i hat1, 3, 1 i hat1, 4, 1 +i hat1, 5, 1 + i hat2, 1, -1 i hat2, 2 @@ -130,6 +151,7 @@ i hat2, 3 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1,.5, 1, 1, 1, 1, 1, 1 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 i hat2, 4, 2 +i hat2, 5, 2 i shaker, 1 @@ -141,6 +163,7 @@ i shaker, 1 i shaker, 2, 1 i shaker, 3, 1 i shaker, 4, 1 +i shaker, 5, -1 i kick, 1 ; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - @@ -156,6 +179,12 @@ i kick, 3 1, 0,.8, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0,.8, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1,.6 1, 1,.1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.2 i kick, 4, 1 +i kick, 5 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0 + .4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.3 + 1, 1,.4, 1, 1, 1,.4, 1, 1, 1,.4, 1, 1, 1,.4, 1, 1, 1,.4, 1, 1, 1,.4, 1, 1, 1,.4, 1, 1, 1,.4, 1 + 1, 1,.4, 1, 1, 1,.4, 1, 1, 1,.4, 1, 1, 1,.4, 1, 1, 1,.4, 1, 1, 1,.4, 1, 1, 1,.4, 1, 1, 1,.4, 1 i kick2, 1 ; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - @@ -166,4 +195,5 @@ i kick2, 1 i kick2, 2, 1 i kick2, 3, 1 i kick2, 4, 1 +i kick2, 5, 1 }} diff --git a/BUG6/instruments.udo b/BUG6/instruments.udo index 55a7b93..0dd7734 100644 --- a/BUG6/instruments.udo +++ b/BUG6/instruments.udo @@ -474,7 +474,7 @@ instr play_glitchread aL table awindex*giglitchsamples, giglitchbufferL aR table awindex*giglitchsamples, giglitchbufferR aL butterhp aL, 350 - aR butterhp aL, 350 + aR butterhp aR, 350 aL *= 0.4 * iamp aR *= 0.4 * iamp if (random(0, 1) > 0.7) then diff --git a/BUG7/BUG7.csd b/BUG7/BUG7.csd index b1b478e..9e52133 100644 --- a/BUG7/BUG7.csd +++ b/BUG7/BUG7.csd @@ -32,7 +32,8 @@ gksection init -1 #include "bid.udo" ; Bug Infested Directive tools and parsing #include "instruments.udo" ; sound generators #include "txt_tools.udo" ; text tools - +#include "src_vox.udo" +#include "oprepare.udo" ; offline preparation system instr global_delay1 @@ -43,6 +44,31 @@ instr global_delay1 bus_mix("master", aL*0.8, aR*0.8) endin + +instr global_delay2 + aL, aR bus_read "delay2" + ifreq1 = (gibid_tempo / 60) / 8 + kfdbkL = abs(oscil(0.8, 1.63)) + kfdbkR = abs(oscil(0.8, 1.67)) + + atimeL = abs(oscil(0.2, ifreq1)) + 0.01 + atimeR = abs(oscil(0.2, ifreq1)) + 0.01 + + aLdlr delayr 1 + aLdel deltapi atimeL + aLdel butterhp aLdel, 130 + delayw aL + (aLdel * kfdbkL) + + aRdlr delayr 1 + aRdel deltapi atimeR + aRdel butterhp aRdel, 130 + delayw aR + (aRdel * kfdbkR) + + aLdel *= 1-gkpump + aRdel *= 1-gkpump + bus_mix("master", aLdel, aRdel) +endin + /* Master audio output */ @@ -60,24 +86,32 @@ instr global_master kclapamp init 0 kcofferamp init 0 if (gksection == 1) then - kclapamp linseg 0, itime1*0.6, 1, itime1*0.4, 1 + kclapamp linseg 0, itime1*0.3, 0, itime1*0.3, 1, itime1*0.4, 1 kcofferamp line 0, itime1, 1 - krevamp linseg 1, itime1*0.1, 0, itime1*0.9, 0 + krevamp linseg 1, itime1*0.2, 0, itime1*0.8, 0 + - arL, arR freeverb aL*2, aR*2, 0.9, 0.9 - ir = 512 - fL pvsanal arL, ir, ir/4, ir, 1 - fR pvsanal arR, ir, ir/4, ir, 1 - kshift = line(1000, itime1*0.1, 0) - kshifto = abs(oscil(100, 10)) - f1L pvshift fL, kshift+kshifto, 300 - f1R pvshift fR, kshift+kshifto, 300 - arL pvsynth f1L - arR pvsynth f1R + adeltime linseg 0.05, itime1*0.1, 0 + + adumpL delayr 1 + arL deltapi adeltime*abs(oscil(1, 3)) + delayw aL + + adumpR delayr 1 + arR deltapi adeltime*abs(oscil(1, 2)) + delayw aR + + klpf linseg 100, itime1*0.05, 6000, itime1*0.05, 8000, itime1*0.1, 22050, itime1*0.8, 22050 + + arL butterlp arL, klpf + arR butterlp arR, klpf + aL = (krevamp*arL) + ((1-krevamp)*aL) aR = (krevamp*arR) + ((1-krevamp)*aR) - + elseif (gksection == 3) then + kclapamp = 1 + kcofferamp = 1 endif aL += (aclapL * kclapamp) + (acofferL * kcofferamp) + (akickL * kclapamp) + (ahat1L * kcofferamp) + (arimL * kcofferamp) aR += (aclapR * kclapamp) + (acofferR * kcofferamp) + (akickR * kclapamp) + (ahat1R * kcofferamp) + (arimR * kcofferamp) @@ -110,6 +144,15 @@ endin /* + Initialise the performance: run offline preparation and then call parseandrun +*/ +instr bootstrap + Sprepare[] fillarray "vox" + oprepare(Sprepare, "parseandrun") + turnoff +endin + +/* Parse BID file and run the sequencer */ instr parseandrun @@ -134,6 +177,11 @@ instr sequencer event_i "i", "bid_setcurrentchord", 0, 1, isection, 0 event_i "i", "global_master", 0, p3 event_i "i", "global_delay1", 0, p3 + event_i "i", "global_delay2", 0, p3 + + if (isection == 1) then + event_i "i", "play_stringchord", 0, tab_i(1, gibid_sectionlengths)*gibid_beattime, 1, 1 + endif kmetro metro (gibid_tempo / 60) * 4 kpos init 0 kposabs init 0 @@ -148,12 +196,15 @@ instr sequencer endif bid_seq "kick", kpos, ksection + bid_seq "kick2", kpos, ksection bid_seq "koffer", kpos, ksection bid_seq "clap", kpos, ksection bid_seq "hat1", kpos, ksection bid_seq "3031", kpos, ksection bid_seq "3032", kpos, ksection - ;bid_seq "hat2", kpos, ksection + bid_seq "vox", kpos, ksection + bid_seq "vox2", kpos, ksection + bid_seq "hat2", kpos, ksection bid_seq "rim", kpos, ksection @@ -163,7 +214,7 @@ instr sequencer if (kposabs+1 < ksection16ths) then kposabs += 1 else - event "i", "notify_change", 0, 1, ksection + event "i","notify_change", 0, 1, ksection ;event "i", "play_crash", 0, gibid_beattime*4 ksection += 1 kposchord = 0 @@ -187,6 +238,6 @@ endin </CsInstruments> <CsScore> -i"parseandrun" 0 1 +i"bootstrap" 0 1 </CsScore> </CsoundSynthesizer>
\ No newline at end of file diff --git a/BUG7/bid_source.udo b/BUG7/bid_source.udo index bf034b4..e122649 100644 --- a/BUG7/bid_source.udo +++ b/BUG7/bid_source.udo @@ -21,24 +21,30 @@ c 1 ; sections: section number, length, chordgroup -s 1, 256, 1 -s 2, 64, 1 +s 1, 252, 1 +s 2, 4, 1 +s 3, 64, 1 -i glitchread, 1 +i glitchread, 1, -1 +i glitchread, 2, -1 +i glitchread, 3 ; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 + 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 .3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3 + i 3031, 1 ; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 .1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 +i 3031, 2, -1 +i 3031, 3, 1 i 3032, 1 ; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - @@ -46,7 +52,8 @@ i 3032, 1 .1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 - +i 3032, 2, -1 +i 3032, 3, 1 i clap, 1 ; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - @@ -54,7 +61,8 @@ i clap, 1 .1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 .3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3 -i clap, 2 +i clap, 2, -1 +i clap, 3 ; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0 .1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1 @@ -62,6 +70,31 @@ i clap, 2 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 +i vox, 1 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + .1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 +i vox, 2, -1 +i vox, 3, 1 + +i vox2, 1 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 + 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + .3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 +i vox2, 2 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 + 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 +i vox2, 3, 1 + i rim, 1 ; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - @@ -69,6 +102,8 @@ i rim, 1 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 +i rim, 2, -1 +i rim, 3, 1 i hat1, 1 ; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - @@ -76,14 +111,18 @@ i hat1, 1 .3,.1,.2,.1,.3,.1,.2,.1,.3,.1,.2,.1,.3,.1,.2,.1,.3,.1,.2,.1,.3,.1,.2,.1,.3,.1,.2,.1,.3,.1,.2,.1 .4,.4, 1,.4,.4,.4, 1,.4,.4,.4, 1,.4,.4,.4, 1,.4,.4,.4, 1,.4,.4,.4, 1,.4,.4,.4, 1,.4,.4,.4, 1,.4 .9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9,.9 +i hat1, 2, -1 +i hat1, 3, -1 - -i hat2, 1 +i hat2, 1, -1 +i hat2, 2, -1 +i hat2, 3 ; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - - 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1 + 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0 .1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.3,.3, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + i kick, 1 ; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - @@ -91,6 +130,23 @@ i kick, 1 .4,.4,.4,.9,.9,.4,.1,.1,.4,.4,.4,.4,.9,.9,.4,.1,.1,.4,.4,.4,.4,.9,.9,.4,.1,.1,.4,.4,.4,.4,.9,.9 1,.5,.8, 1, 1, 1,.5,.8, 1, 1, 1,.5,.8, 1, 1, 1,.5,.8, 1, 1, 1,.5,.8, 1, 1, 1,.5,.8, 1, 1, 1,.5 1, 1,.1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.6,.2 +i kick, 2, -1 +i kick, 3, 1 + + +i kick2, 1, -1 +i kick2, 2 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 +1.6,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 +i kick2, 3 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0 + .1,1,.01,.1,.4,1, 1,.1,.1,.1,.1,.4,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.2,.1,.1,.1,.01,1,.4,.1,.1,.1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 i koffer, 1 @@ -99,5 +155,6 @@ i koffer, 1 .3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3,.3 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 - +i koffer, 2, -1 +i koffer, 3, 1 }} diff --git a/BUG7/instruments.udo b/BUG7/instruments.udo index 6c3bb31..4b1b46a 100644 --- a/BUG7/instruments.udo +++ b/BUG7/instruments.udo @@ -10,6 +10,7 @@ #include "wavetables.udo" #include "bussing.udo" +#include "oprepare.udo" #include "bid.udo" @@ -33,20 +34,16 @@ instr play_3031 kffrq port 0, 60/150, ifrq1 ; filter frequency a1 phasor kcps ; oscillator a1 = 1 - 2 * a1 - a1x butterbp a1, kffrq, kcps * 1.0 ; filters a1x = a1x * (2 + kffrq / kcps) ; correct amplitude a1 = a1x + a1 * 0.25 ; 0.5 a1 butterlp a1, kffrq - a1 = taninv(a1 * 2.5 * iamp) ; distortion ; 2.5 - keqf limit kffrq * 4, 10, sr * 0.48 ; EQ frequency a1 pareq a1 * 0.6, keqf, 4.0, 1.0, 2 a1 pareq a1, 50, 1.3, 0.6 a1 pareq a1, 130, 0.6, 0.6 - a1 = a1 * kamp * 0.8 - ;a1 *= line(0, p3, 1) + a1 = a1 * kamp * 1.2 aL, aR pan2 a1, random(0.3, 0.7) bus_mix("delay1", aL*0.3, aR*0.3) bus_mix("master", aL, aR) @@ -85,13 +82,65 @@ instr play_3032 a1 pareq a1 * 0.6, keqf, 4.0, 1.0, 2 a1 pareq a1, 50, 1.3, 0.6 a1 pareq a1, 130, 0.6, 0.6 - a1 = a1 * kamp * 0.8 - ;a1 *= line(0, p3, 1) + a1 = a1 * kamp * 1.2 aL, aR pan2 a1, random(0.3, 0.7) bus_mix("delay1", aL*0.3, aR*0.3) bus_mix("master", aL, aR) endin +instr play_vox + iamp = bid_getparameter(p4, p5, 2) * 2.4 * random(0.5, 1) + ifn = giopreparedfns[0] ;oprepare_getfn("vox") + apos phasor (1/(ftlen(ifn)/sr)) + ioffset1 random 0, 1 + ioffset2 random 0, 1 + ioffset3 random 0, 1 + ioffset4 random 0, 1 + aL1 table3 apos+ioffset1, ifn, 1 + aR1 table3 apos+ioffset2, ifn, 1 + aL2 table3 apos+ioffset3, ifn, 1 + aR2 table3 apos+ioffset4, ifn, 1 + kamp = linseg(0, p3*0.2, 1, p3*0.7, 1, p3*0.1, 0) + aL = aL1 + aL2 + aR = aR1 + aR2 + aL butterhp aL, 240 + aR butterhp aR, 240 + aL *= iamp * kamp + aR *= iamp * kamp + bus_mix("delay1", aL*random(0, 1), aR*random(0, 1)) + if (random(0, 1) > 0.99) then + bus_mix("delay2", aL*random(0, 1), aR*random(0, 1)) + endif + bus_mix("master", aL, aR) +endin + +instr play_vox2 + iamp = bid_getparameter(p4, p5, 2) * 4.4 * random(0.5, 1) + ispecial = bid_getparameter(p4, p5, 4) + ifn = giopreparedfns[0] ;oprepare_getfn("vox") + apos phasor -(1/(ftlen(ifn)/sr)) + a1 table3 apos, ifn, 1 + ir = 256 + f1 pvsanal a1, ir, ir/4, ir, 1 + if (ispecial = 1) then + kshift = -abs:k(oscil:k(500, 1)) + else + kshift init -random(100, 400) + endif + f2 pvshift f1, kshift, 300 + aL pvsynth f2 + aL butterhp aL, 700 + aL *= iamp * 4 + aR = aL + if (ispecial == 1) then + bus_mix("delay2", aL*0.8, aR*0.8) + else + bus_mix("delay1", aL, aR) + endif + ;bus_mix("master", aL, aR) +endin + + instr play_clap iamp = bid_getparameter(p4, p5, 2) * random(0.4, 1) * 0.8 aL noise 1, 0.3 @@ -243,7 +292,7 @@ instr play_kick ; 808 style kick aenv linseg 0, 0.07, 1 acps expsega 400, 0.07, 0.001, 1, 0.001 amix = (asig*0.7)*1*iamp - gkpump = min(rms(amix) * 7, 1) + ;gkpump = min(rms(amix) * 7, 1) aout1 pareq amix, 100, 0.01, 0.7 aout1 distort aout1, idist, gifnSquare aout1 pareq aout1, 50, 2, 0.4 @@ -253,6 +302,39 @@ instr play_kick ; 808 style kick bus_mix("kick", aout1, aout1) endin + + +instr play_kick2 ; 808 style kick + iamp = bid_getparameter(p4, p5, 2) + + idist = 0.2 ;= (i(gksection) == 1) ? 0.55 : 0.35 + xtratim 0.1 + krelease release + ktune init 1 + kmul transeg 0.2, p3*0.5, -15, 0.01, p3*0.5, 0, 0 + kbend transeg 0.5, 1.2, -4, 0, 1, 0, 0 + asig gbuzz 0.5, 50*octave(ktune)*semitone(kbend), 20, 1, kmul, gifnCosine + aenv transeg 1, p3-0.004, -6, 0 + aatt linseg 0, 0.004, 1 + asig = asig*aenv*aatt + aenv linseg 1, 0.07, 0 + acps expsega 400, 0.07, 0.001, 1, 0.001 + aimp oscili aenv, acps*octave(ktune*0.25) + amix = ((asig*0.7)+(aimp*0.35))*2*iamp + gkpump = min(rms(amix) * 7, 1) + aout1 pareq amix, 150, 0.2, 0.7 + aout1 distort aout1, idist, gifnSaw + aout1 pareq aout1, 350, 0.1, 0.7 + aout1 pareq aout1, 90, 1.4, 0.7 + ;aout1 pareq aout1, 190, 0.7, 0.6 + aout1 pareq aout1, 4900, 2, 0.7 + aout1 pareq aout1, 8900, 2, 0.7 + aout1 *= 1.3 + bus_mix("delay2", aout1, aout1) + bus_mix("master", aout1, aout1) +endin + + instr play_koffer iamp = bid_getparameter(p4, p5, 2) ifreq = cpsmidinn(tab_i(ftlen(gibid_chordfn) - 2, gibid_chordfn)+12) @@ -268,5 +350,70 @@ instr play_koffer endin +instr stringin + ifqc = cpsmidinn(p4) + iamp = 1 + idur = p3 + ifm1 = ifqc + ifm2 = ifqc*3 + ifm3 = ifqc*4 + indx1 = 7.5/log(ifqc) ;range from ca 2 to 1 + indx2 = 15/sqrt(ifqc) ;range from ca 2.6 to .5 + indx3 = 1.25/sqrt(ifqc) ;range from ca .2 to .038 + + irise = 0.1 + idec = 0.4 + inoisdur = .1 + ivibdel = 0.25 + ivibwth = 0.01 + ivibrte = 5.5 + + kvib init 0 + kvbctl linen 1,.5,p3-ivibdel,.1 ; vibrato control envelope + krnd randi .0075,2 ; random deviation vib width + kvib oscili kvbctl*ivibwth+krnd,ivibrte*kvbctl ; generator + + ktrans linseg 1,inoisdur,0,1,0 ; transient envelope + anoise randi ktrans*iamp/4,.2*ifqc ; attack noise... + attack oscili anoise,2000 ; ...centered around 2kHz + + amod1 oscili ifm1*(indx1+ktrans),ifm1 + amod2 oscili ifm2*(indx2+ktrans),ifm2 + amod3 oscili ifm3*(indx3+ktrans),ifm3 + asig oscili iamp,(ifqc+amod1+amod2+amod3)*(1+kvib) + asig linen (asig+attack),irise,idur,idec + asig butterhp asig, 800 + asig butterhp asig, 200 + kenv linseg 0, p3*0.5, 0.1, p3*0.3, 0.3, p3*0.1, 0.6, p3*0.1, 1 + asig *= kenv * (abs:k(oscil:k(0.9, random(0.01, 1), -1, random(0, 1)))) + asig *= 0.1 + aL, aR pan2 asig, abs:k(oscil:k(1, random(0.1, 3), -1, random(0, 1))) + bus_mix("master", aL, aR) +endin + +/* + Convenience opcode for playing current chord on given instrument, passing p4 as note and p5 as amp + + chordinstrument Sinstrument + + Sinstrument the instrument name + ipos position in pattern + idataindex section specific data index; pointer to ftable +*/ +opcode chordinstrument, 0, Sii + Sinstrument, ipos, idataindex xin + iamp = bid_getparameter(ipos, idataindex, 2) + index = 1 ; index 0 is chordgroup length + while (index < ftlen(gibid_chordfn)) do + event_i "i", Sinstrument, 0, p3, tab_i(index, gibid_chordfn), iamp + index += 1 + od + +endop + +instr play_stringchord + chordinstrument "stringin", p4, p5 + turnoff +endin #end diff --git a/BUG7/oprepare.udo b/BUG7/oprepare.udo new file mode 100644 index 0000000..b4fdb05 --- /dev/null +++ b/BUG7/oprepare.udo @@ -0,0 +1,92 @@ +#ifndef UDO_OPREPARE +#define UDO_OPREPARE ## +/* + Debugger - Unfixed Bugs : BUG #3 + + Offline preparation system: record a sound in one k-cycle to a ftable for future use + To be used where online playback would be too CPU heavy + In the case of BUG3, it is used for the 909 hi-hat + + Instruments to be prepared should be prepended with src_ +*/ + + +/* + Internal preparation instrument: loop through gSoprepare + p4 index of gSoprepare to process + p5 instrument name to schedule when all sounds have been prepared +*/ +gSoprepare[] init 1 ; filled by oprepare opcode: input instrument names without src_ prepended +giopreparedfns[] init 1 ; filled by oprepare opcode: output ftable numbers corresponding to above +instr _oprepare + iprepareindex = p4 + SonComplete = p5 + if (iprepareindex >= lenarray(gSoprepare)) then + event_i "i", SonComplete, 0, 3600 + turnoff + else + Sprepareinstr = gSoprepare[iprepareindex] + Srcinstr = sprintf("src_%s", Sprepareinstr) + ilen = 0.8 + p3 = ilen + ifn ftgen 0, 0, sr*ilen, 7, 0 + giopreparedfns[iprepareindex] = ifn + ktimek timeinstk + if (ktimek == 1) then + kcycles = ilen * kr + kcount init 0 +loop: + apos phasor (1/(ftlen(ifn)/sr)) + aproc subinstr Srcinstr, 1, 0.1 + tabw aproc, apos, ifn, 1 + loop_lt kcount, 1, kcycles, loop + elseif (ktimek == 5) then + scoreline_i sprintf("i\"_oprepare\" 0 1 %d \"%s\"", iprepareindex+1, SonComplete) + turnoff + endif + endif + +endin + + +/* + Start the offline preparation + + oprepare Snames[], SonComplete + + Snames[] list of instruments to process (instrument name without src_ prepended) + SonComplete instrument to be scheduled when preparation process has completed +*/ +opcode oprepare, 0, S[]S + Snames[], SonComplete xin + gSoprepare = Snames + giopreparedfns[] init lenarray(Snames) + scoreline_i sprintf("i\"_oprepare\" 0 1 0 \"%s\"", SonComplete) +endop + + +/* + Get the ftable number of a specified instrument name as originally passed to oprepare + + ifn oprepare_getfn Sname + + ifn the ftable + Sname name of offline-prepared instrument +*/ +opcode oprepare_getfn, i, S + Sname xin + ifn = -1 + index = 0 + while (index < lenarray(gSoprepare)) do + if (strcmp(gSoprepare[index], Sname) == 0) then + ifn = giopreparedfns[index] + endif + index += 1 + od +complete: + xout ifn +endop + + +#end + diff --git a/BUG7/src_vox.udo b/BUG7/src_vox.udo new file mode 100644 index 0000000..1a0c87f --- /dev/null +++ b/BUG7/src_vox.udo @@ -0,0 +1,11 @@ +#ifndef SRC_VOX +#define SRC_VOX ## + + +instr src_vox + ipitch = p4 + a1 adsyn 1, 1, 1, "vox.het" + out a1 +endin + +#end diff --git a/BUG7/vox.het b/BUG7/vox.het new file mode 100644 index 0000000..09ccde7 --- /dev/null +++ b/BUG7/vox.het @@ -0,0 +1,301 @@ +HETRO 100 +-1,0,0,6,0,9,125,13,162,16,105,19,0,49,0,52,119,55,292,59,589,62,764,65,866,69,975,72,1199,75,1450,78,1807,82,2220,85,2627,88,3042,92,3438,95,3767,98,4107,102,4556,105,5119,108,6027,111,7776,115,8129,118,5518,121,3894,125,4006,128,4717,131,4854,134,4447,138,4378,141,4745,144,4865,148,4625,151,4452,154,4332,157,4012,161,3828,164,3818,167,3903,171,4106,174,4055,177,3853,180,3661,184,3651,187,3785,190,3825,194,3777,197,3649,200,3445,204,3273,207,3071,210,2860,213,2692,217,2607,220,2579,223,2589,227,2594,230,2639,233,2776,236,2935,240,3068,243,3197,246,3336,250,3473,253,3568,256,3569,259,3536,263,3629,266,3684,269,3324,273,2533,276,1799,279,1673,282,1611,286,1239,289,849,292,662,296,617,299,587,302,546,306,522,309,495,312,417,315,291,319,167,322,82,325,71,329,91,332,96,335,79,338,0,342,96,345,73,348,80,352,181,355,467,358,1125,361,1901,365,2455,368,2916,371,3352,375,3564,378,3524,381,3441,384,3425,388,3442,391,3428,394,3396,398,3311,401,3274,404,3306,408,3302,411,3208,414,3149,417,3085,421,2869,424,2461,427,1759,431,943,434,574,437,820,440,1242,444,1528,447,1578,450,1417,454,1121,457,768,460,558,463,680,467,957,470,1214,473,1364,477,1685,480,1943,483,2148,487,2322,490,2427,493,2420,496,2247,500,2051,503,2005,506,1990,510,1865,513,1769,516,1743,519,1697,523,1725,526,1833,529,1809,533,1722,536,1753,539,1787,542,1766,546,1713,549,1630,552,1544,556,1483,559,1443,562,1437,565,1519,569,1663,572,1790,575,1874,579,1903,582,1870,585,1781,589,1659,592,1556,595,1496,598,1462,602,1439,605,1414,608,1394,612,1382,615,1365,618,1354,621,1381,625,1457,628,1553,631,1613,635,1600,638,1572,641,1576,644,1592,648,1602,651,1551,654,1502,658,1507,661,1533,664,1515,667,1383,671,1114,674,910,677,1019,681,1199,684,1165,687,1005,691,879,694,749,697,540,700,326,704,155,707,68,710,105,714,97,717,145,720,198,723,140,727,0,746,0,750,70,753,0,756,77,760,104,763,90,766,0,769,0,773,69,776,0,32767 +-2,0,300,6,195,9,284,13,280,16,270,19,276,49,213,52,193,55,199,59,212,62,202,65,198,69,195,72,202,75,204,78,211,82,216,85,220,88,225,92,230,95,235,98,242,102,250,105,255,108,261,111,285,115,301,118,284,121,285,125,291,128,289,131,288,134,291,138,294,141,295,144,298,148,300,151,299,154,299,157,299,161,301,164,301,167,296,171,294,174,291,177,290,180,289,184,287,187,286,190,282,194,280,197,279,200,279,204,279,207,276,210,274,213,273,217,273,220,274,223,276,227,279,230,282,233,285,236,288,240,289,243,292,246,295,250,298,253,302,256,305,259,307,263,310,266,312,269,308,273,292,276,271,279,275,282,283,286,277,289,275,292,292,296,302,299,296,302,288,306,285,309,285,312,290,315,295,319,285,322,247,325,257,329,289,332,300,335,361,338,438,342,377,345,344,348,302,352,296,355,274,358,278,361,283,365,282,368,282,371,286,375,287,378,286,381,285,384,285,388,286,391,286,394,287,398,286,401,287,404,288,408,290,411,288,414,288,417,288,421,287,424,284,427,275,431,243,434,216,437,241,440,258,444,263,447,262,450,260,454,257,457,242,460,226,463,242,467,262,470,274,473,284,477,309,480,328,483,339,487,335,490,333,493,333,496,336,500,340,503,338,506,337,510,339,513,341,516,342,519,347,523,349,526,345,529,346,533,349,536,346,539,342,542,339,546,337,549,334,552,329,556,322,559,317,562,313,565,312,569,313,572,314,575,314,579,313,582,313,585,312,589,311,592,311,595,314,598,318,602,324,605,332,608,339,612,344,615,349,618,353,621,356,625,358,628,358,631,361,635,366,638,370,641,370,644,368,648,364,651,363,654,360,658,354,661,346,664,337,667,325,671,308,674,288,677,290,681,294,684,286,687,275,691,271,694,273,697,270,700,267,704,244,707,193,710,265,714,247,717,273,720,311,723,336,727,391,746,270,750,295,753,267,756,267,760,295,763,297,766,259,769,264,773,317,776,317,32767 + +-1,0,0,59,0,62,67,65,70,69,78,72,85,75,99,78,110,82,131,85,145,88,164,92,177,95,199,98,212,102,214,105,227,108,256,111,403,115,686,118,1531,121,2050,125,1911,128,2210,131,2509,134,2652,138,2763,141,2902,144,3011,148,3098,151,3143,154,3230,157,3278,161,3332,164,3337,167,3226,171,3040,174,2877,177,2683,180,2346,184,2168,187,2105,190,2154,194,2191,197,2000,200,1705,204,1274,207,1048,210,1275,213,1259,217,1203,220,1246,223,1269,227,1350,230,1424,233,1576,236,1817,240,2084,243,2256,246,2268,250,2160,253,1830,256,1357,259,980,263,598,266,219,269,259,273,452,276,475,279,327,282,209,286,113,289,0,292,85,296,86,299,0,329,0,332,66,335,89,338,99,342,0,358,0,361,71,365,120,368,250,371,370,375,454,378,578,381,702,384,780,388,826,391,863,394,885,398,941,401,980,404,987,408,981,411,980,414,945,417,886,421,785,424,638,427,507,431,404,434,289,437,188,440,84,444,89,447,152,450,119,454,0,457,78,460,123,463,141,467,121,470,91,473,0,477,98,480,190,483,299,487,426,490,691,493,1100,496,1717,500,2553,503,3479,506,4435,510,5368,513,5925,516,6029,519,5784,523,5290,526,4805,529,4325,533,3799,536,3227,539,2795,542,2728,546,2969,549,3222,552,3272,556,3266,559,3416,562,3347,565,2623,569,1827,572,1902,575,1952,579,1514,582,2137,585,3158,589,3389,592,3087,595,2789,598,2502,602,2174,605,2080,608,2513,612,3468,615,4458,618,4947,621,4581,625,3556,628,3233,631,4169,635,4331,638,3285,641,2707,644,2581,648,2291,651,2131,654,1661,658,1302,661,1521,664,1511,667,810,671,831,674,1298,677,788,681,1135,684,1050,687,486,691,446,694,482,697,398,700,267,704,135,707,98,710,132,714,219,717,212,720,79,723,0,727,67,730,71,733,121,737,109,740,74,743,0,750,0,753,83,756,128,760,102,763,0,766,0,769,102,773,110,776,99,779,85,783,0,829,0,832,78,835,0,32767 +-2,0,600,59,372,62,577,65,570,69,499,72,238,75,203,78,214,82,225,85,237,88,443,92,472,95,487,98,491,102,492,105,504,108,522,111,606,115,613,118,596,121,580,125,588,128,583,131,587,134,592,138,593,141,596,144,602,148,606,151,606,154,604,157,602,161,601,164,598,167,594,171,589,174,586,177,580,180,571,184,565,187,560,190,561,194,562,197,557,200,550,204,538,207,531,210,555,213,546,217,544,220,552,223,552,227,558,230,562,233,566,236,570,240,574,243,575,246,576,250,581,253,586,256,587,259,593,263,602,266,662,269,632,273,598,276,590,279,568,282,560,286,524,289,528,292,585,296,576,299,572,329,548,332,574,335,592,338,540,342,557,358,615,361,622,365,579,368,567,371,567,375,567,378,571,381,569,384,566,388,567,391,571,394,573,398,573,401,575,404,578,408,577,411,574,414,575,417,576,421,569,424,557,427,549,431,547,434,547,437,547,440,461,444,459,447,547,450,564,454,611,457,559,460,538,463,535,467,512,470,483,473,404,477,487,480,623,483,654,487,671,490,670,493,673,496,674,500,675,503,681,506,689,510,694,513,701,516,706,519,706,523,705,526,701,529,697,533,692,536,685,539,676,542,672,546,672,549,669,552,661,556,652,559,651,562,648,565,633,569,609,572,619,575,624,579,594,582,614,585,635,589,633,592,628,595,631,598,640,602,653,605,671,608,680,612,678,615,678,618,684,621,694,625,715,628,728,631,712,635,713,638,734,641,740,644,732,648,732,651,720,654,723,658,730,661,706,664,691,667,748,671,741,674,678,677,750,681,686,684,609,687,588,691,681,694,655,697,641,700,647,704,645,707,713,710,729,714,705,717,685,720,643,723,581,727,691,730,751,733,707,737,716,740,719,743,708,750,733,753,707,756,680,760,680,763,568,766,592,769,674,773,651,776,648,779,707,783,702,829,647,832,658,835,658,32767 + +-1,0,0,105,0,108,90,111,204,115,424,118,607,121,727,125,849,128,979,131,1075,134,1179,138,1215,141,1251,144,1351,148,1458,151,1564,154,1669,157,1753,161,1898,164,2032,167,2108,171,2196,174,2185,177,1962,180,1596,184,1255,187,1317,190,1570,194,1535,197,1111,200,711,204,815,207,909,210,713,213,516,217,433,220,358,223,360,227,419,230,492,233,600,236,582,240,477,243,346,246,228,250,179,253,152,256,88,259,0,263,0,266,114,269,146,273,131,276,0,335,0,338,80,342,99,345,0,404,0,408,70,411,0,421,0,424,66,427,0,467,0,470,66,473,0,480,0,483,69,487,134,490,182,493,222,496,272,500,366,503,557,506,885,510,1272,513,1709,516,2008,519,2017,523,1849,526,1718,529,1787,533,1974,536,2088,539,2209,542,2343,546,2415,549,2508,552,2503,556,2474,559,2464,562,2626,565,2787,569,2792,572,2594,575,2120,579,1889,582,1905,585,1890,589,1799,592,1725,595,1668,598,1646,602,1618,605,1516,608,1391,612,1238,615,1177,618,1092,621,1219,625,1412,628,1491,631,1698,635,1948,638,2085,641,1985,644,1716,648,1392,651,1098,654,792,658,597,661,513,664,535,667,635,671,775,674,757,677,553,681,469,684,384,687,273,691,278,694,148,697,0,700,124,704,166,707,106,710,128,714,142,717,95,720,0,733,0,737,75,740,0,773,0,776,71,779,74,783,70,786,0,789,0,793,67,796,86,799,0,802,0,806,70,809,0,812,68,816,70,819,66,822,0,32767 +-2,0,900,105,746,108,771,111,807,115,829,118,842,121,847,125,855,128,865,131,877,134,886,138,895,141,902,144,905,148,907,151,908,154,906,157,903,161,899,164,895,167,892,171,884,174,877,177,869,180,855,184,839,187,839,190,845,194,846,197,834,200,804,204,818,207,830,210,833,213,813,217,819,220,833,223,830,227,839,230,852,233,854,236,855,240,854,243,841,246,842,250,834,253,848,256,808,259,767,263,789,266,847,269,848,273,872,276,836,335,785,338,826,342,923,345,953,404,851,408,883,411,865,421,874,424,898,427,948,467,859,470,958,473,935,480,814,483,922,487,972,490,995,493,1007,496,903,500,688,503,684,506,695,510,701,513,709,516,714,519,713,523,847,526,1049,529,1049,533,1040,536,1035,539,1028,542,1019,546,1011,549,1002,552,990,556,974,559,964,562,955,565,949,569,947,572,942,575,936,579,928,582,935,585,941,589,940,592,940,595,946,598,952,602,963,605,981,608,1000,612,1021,615,1022,618,826,621,701,625,710,628,715,631,720,635,726,638,735,641,739,644,737,648,732,651,729,654,720,658,714,661,709,664,723,667,900,671,946,674,926,677,916,681,837,684,861,687,846,691,801,694,981,697,825,700,796,704,925,707,906,710,926,714,855,717,747,720,753,733,718,737,784,740,903,773,752,776,807,779,776,783,817,786,811,789,799,793,785,796,815,799,771,802,807,806,823,809,774,812,782,816,786,819,799,822,799,32767 + +-1,0,0,108,0,111,172,115,244,118,346,121,444,125,567,128,695,131,882,134,1068,138,1169,141,1157,144,992,148,787,151,645,154,577,157,526,161,437,164,398,167,461,171,527,174,570,177,612,180,624,184,621,187,608,190,502,194,324,197,227,200,286,204,266,207,227,210,265,213,223,217,267,220,280,223,222,227,224,230,242,233,221,236,208,240,214,243,229,246,210,250,170,253,94,256,0,401,0,404,65,408,71,411,0,414,0,417,79,421,66,424,0,467,0,470,93,473,0,477,71,480,0,483,0,487,78,490,94,493,111,496,168,500,243,503,330,506,422,510,583,513,798,516,1116,519,1469,523,1614,526,1656,529,1693,533,1665,536,1545,539,1405,542,1156,546,920,549,838,552,953,556,1077,559,1051,562,970,565,1026,569,1020,572,981,575,896,579,968,582,1125,585,1068,589,1059,592,868,595,768,598,763,602,733,605,710,608,584,612,602,615,769,618,815,621,860,625,846,628,685,631,554,635,361,638,327,641,270,644,269,648,246,651,201,654,191,658,147,661,201,664,273,667,420,671,706,674,880,677,811,681,703,684,619,687,543,691,296,694,119,697,116,700,73,704,0,707,82,710,88,714,88,717,0,730,0,733,69,737,0,789,0,793,88,796,0,32767 +-2,0,1200,108,950,111,1201,115,1140,118,1138,121,1131,125,1141,128,1149,131,1162,134,1172,138,1178,141,1188,144,1198,148,1212,151,1218,154,1210,157,1206,161,1210,164,1203,167,1181,171,1177,174,1174,177,1169,180,1161,184,1151,187,1143,190,1135,194,1107,197,1081,200,1102,204,1104,207,1078,210,1109,213,1086,217,1107,220,1114,223,1097,227,1106,230,1125,233,1140,236,1155,240,1162,243,1166,246,1174,250,1185,253,1117,256,1094,401,1159,404,1156,408,1161,411,1151,414,1159,417,1176,421,1153,424,1141,467,1111,470,1170,473,1123,477,1206,480,1247,483,1262,487,1290,490,1318,493,1342,496,1331,500,1339,503,1350,506,1365,510,1243,513,1059,516,1063,519,1065,523,1058,526,1053,529,1050,533,1045,536,1036,539,1031,542,1020,546,1008,549,1012,552,1198,556,1313,559,1293,562,1266,565,1261,569,1253,572,1245,575,1234,579,1239,582,1248,585,1246,589,1248,592,1245,595,1254,598,1266,602,1277,605,1294,608,1253,612,1050,615,1041,618,1045,621,1054,625,1063,628,1065,631,1078,635,1078,638,867,641,740,644,945,648,1070,651,904,654,1072,658,1040,661,1056,664,1115,667,1284,671,1266,674,1231,677,1197,681,1158,684,1140,687,1148,691,1188,694,1179,697,1155,700,1193,704,1089,707,1084,710,1074,714,1216,717,1140,730,1330,733,1233,737,1229,789,1154,793,1179,796,1179,32767 + +-1,0,0,59,0,62,68,65,0,69,65,72,74,75,72,78,75,82,72,85,0,92,0,95,66,98,106,102,131,105,102,108,0,111,139,115,302,118,399,121,420,125,447,128,418,131,409,134,354,138,376,141,436,144,470,148,476,151,491,154,532,157,517,161,486,164,482,167,512,171,535,174,483,177,413,180,394,184,420,187,405,190,327,194,272,197,241,200,190,204,114,207,100,210,113,213,100,217,78,220,74,223,120,227,143,230,106,233,96,236,119,240,121,243,124,246,122,250,86,253,0,463,0,467,123,470,123,473,0,477,0,480,92,483,150,487,198,490,255,493,320,496,386,500,433,503,482,506,632,510,984,513,1653,516,2445,519,3143,523,3467,526,3301,529,3141,533,2804,536,2229,539,1533,542,833,546,355,549,223,552,347,556,629,559,628,562,419,565,490,569,450,572,519,575,486,579,519,582,559,585,491,589,479,592,470,595,342,598,241,602,137,605,197,608,427,612,618,615,752,618,738,621,713,625,694,628,742,631,727,635,586,638,355,641,152,644,111,648,92,651,167,654,286,658,300,661,286,664,187,667,94,671,117,674,83,677,75,681,85,684,0,32767 +-2,0,1500,59,1468,62,1479,65,1466,69,1479,72,1486,75,1469,78,1471,82,1494,85,1554,92,1434,95,1457,98,1469,102,1481,105,1468,108,1383,111,1533,115,1462,118,1420,121,1610,125,1515,128,1430,131,1465,134,1488,138,1498,141,1495,144,1503,148,1513,151,1517,154,1505,157,1501,161,1497,164,1486,167,1476,171,1464,174,1454,177,1443,180,1432,184,1428,187,1420,190,1401,194,1393,197,1399,200,1408,204,1529,207,1670,210,1473,213,1486,217,1658,220,1597,223,1439,227,1427,230,1397,233,1402,236,1443,240,1460,243,1463,246,1469,250,1505,253,1545,463,1612,467,1597,470,1545,473,1539,477,1622,480,1562,483,1596,487,1620,490,1637,493,1648,496,1654,500,1660,503,1628,506,1411,510,1375,513,1396,516,1408,519,1410,523,1408,526,1400,529,1398,533,1394,536,1387,539,1377,542,1357,546,1309,549,1272,552,1318,556,1353,559,1409,562,1599,565,1574,569,1580,572,1547,575,1551,579,1560,582,1550,585,1559,589,1562,592,1555,595,1577,598,1529,602,1359,605,1297,608,1351,612,1371,615,1383,618,1388,621,1398,625,1402,628,1407,631,1418,635,1432,638,1405,641,1123,644,1164,648,931,651,1283,654,1424,658,1409,661,1397,664,1349,667,1262,671,1328,674,1389,677,1433,681,1412,684,1412,32767 + +-1,0,0,108,0,111,150,115,420,118,1079,121,1757,125,2193,128,2066,131,1937,134,2119,138,1971,141,1700,144,1673,148,2119,151,2249,154,1922,157,1737,161,1567,164,1165,167,718,171,443,174,383,177,443,180,465,184,439,187,513,190,497,194,536,197,459,200,432,204,439,207,376,210,330,213,301,217,301,220,212,223,201,227,240,230,194,233,152,236,180,240,158,243,157,246,132,250,198,253,180,256,147,259,91,263,0,457,0,460,69,463,153,467,176,470,191,473,157,477,85,480,94,483,0,487,101,490,205,493,332,496,462,500,582,503,738,506,908,510,970,513,884,516,625,519,389,523,316,526,288,529,314,533,331,536,300,539,242,542,168,546,112,549,95,552,124,556,149,559,158,562,190,565,210,569,240,572,266,575,267,579,256,582,239,585,205,589,192,592,194,595,152,598,116,602,91,605,108,608,153,612,134,615,138,618,113,621,123,625,141,628,151,631,186,635,214,638,216,641,180,644,139,648,105,651,114,654,126,658,100,661,0,32767 +-2,0,1800,108,1742,111,1702,115,1674,118,1718,121,1719,125,1728,128,1734,131,1750,134,1776,138,1782,141,1806,144,1817,148,1810,151,1814,154,1817,157,1810,161,1804,164,1798,167,1784,171,1761,174,1742,177,1738,180,1777,184,1972,187,1977,190,1965,194,1940,197,1965,200,1910,204,1923,207,1920,210,1913,213,1931,217,1944,220,1953,223,1953,227,1977,230,1967,233,1934,236,1801,240,1768,243,1804,246,1788,250,1814,253,1813,256,1824,259,1912,263,1934,457,1731,460,1785,463,1823,467,1835,470,1799,473,1810,477,1883,480,1759,483,1621,487,1609,490,1647,493,1655,496,1660,500,1664,503,1674,506,1688,510,1695,513,1708,516,1739,519,1768,523,1602,526,1592,529,1732,533,1721,536,1711,539,1699,542,1690,546,1664,549,1640,552,1647,556,1679,559,1873,562,1910,565,1894,569,1882,572,1872,575,1870,579,1872,582,1864,585,1863,589,1872,592,1876,595,1894,598,1910,602,1814,605,1655,608,1686,612,1696,615,1734,618,1741,621,1791,625,1772,628,1808,631,1825,635,1825,638,1842,641,1856,644,1857,648,1856,651,1826,654,1805,658,1760,661,1760,32767 + +-1,0,0,108,0,111,92,115,123,118,216,121,367,125,570,128,827,131,1090,134,1333,138,1605,141,1880,144,2182,148,2426,151,2720,154,3015,157,3484,161,4058,164,4466,167,4790,171,4923,174,4526,177,3413,180,1996,184,1267,187,1226,190,1289,194,1397,197,1722,200,1827,204,1959,207,1634,210,1604,213,1420,217,1344,220,1174,223,1025,227,765,230,494,233,331,236,449,240,580,243,420,246,388,250,326,253,176,256,219,259,183,263,118,266,108,269,118,273,131,276,101,279,0,282,0,286,66,289,0,335,0,338,66,342,93,345,0,381,0,384,74,388,89,391,101,394,115,398,113,401,113,404,120,408,136,411,137,414,137,417,123,421,96,424,89,427,102,431,92,434,0,487,0,490,78,493,111,496,140,500,166,503,205,506,279,510,359,513,426,516,444,519,458,523,442,526,386,529,357,533,333,536,287,539,231,542,183,546,138,549,132,552,113,556,101,559,117,562,140,565,164,569,160,572,170,575,177,579,141,582,142,585,144,589,111,592,101,595,91,598,67,602,80,605,75,608,83,612,120,615,123,618,120,621,123,625,119,628,93,631,73,635,76,638,66,641,0,32767 +-2,0,2100,108,2119,111,2160,115,2195,118,1996,121,1985,125,2005,128,2027,131,2053,134,2072,138,2085,141,2096,144,2107,148,2117,151,2121,154,2118,157,2114,161,2108,164,2098,167,2086,171,2074,174,2062,177,2045,180,2011,184,1999,187,2199,190,2245,194,2244,197,2221,200,2214,204,2195,207,2206,210,2199,213,2208,217,2207,220,2218,223,2224,227,2241,230,2205,233,2121,236,2234,240,2194,243,2042,246,2083,250,2116,253,2094,256,2187,259,2194,263,2205,266,2192,269,2215,273,2226,276,2229,279,2254,282,2246,286,2207,289,2139,335,2150,338,2180,342,2120,345,2066,381,2255,384,2259,388,2254,391,2141,394,2012,398,2008,401,2010,404,2021,408,2032,411,2023,414,2030,417,2031,421,2013,424,2169,427,2236,431,2166,434,2176,487,1960,490,1983,493,1994,496,1998,500,1997,503,2009,506,2025,510,2040,513,2065,516,2088,519,2098,523,2092,526,2093,529,2086,533,2074,536,2064,539,2043,542,2025,546,2001,549,1996,552,1970,556,1979,559,2184,562,2231,565,2213,569,2202,572,2187,575,2175,579,2191,582,2182,585,2174,589,2198,592,2190,595,2196,598,2246,602,2142,605,1976,608,1992,612,2052,615,2068,618,2097,621,2122,625,2134,628,2158,631,2194,635,2206,638,2221,641,2221,32767 + +-1,0,0,111,0,115,92,118,138,121,187,125,304,128,447,131,523,134,567,138,696,141,793,144,803,148,803,151,750,154,680,157,661,161,725,164,789,167,811,171,841,174,898,177,1054,180,1023,184,1010,187,1091,190,1153,194,1161,197,933,200,717,204,765,207,664,210,676,213,712,217,743,220,774,223,747,227,682,230,634,233,689,236,865,240,674,243,593,246,606,250,597,253,527,256,383,259,284,263,211,266,108,269,111,273,110,276,86,279,0,332,0,335,136,338,75,342,74,345,0,358,0,361,79,365,0,368,80,371,142,375,212,378,254,381,251,384,265,388,261,391,272,394,261,398,245,401,247,404,287,408,316,411,340,414,318,417,278,421,200,424,123,427,87,431,72,434,0,493,0,496,84,500,101,503,123,506,162,510,193,513,210,516,220,519,207,523,171,526,146,529,167,533,199,536,202,539,230,542,248,546,219,549,177,552,124,556,100,559,106,562,113,565,115,569,99,572,97,575,114,579,128,582,113,585,107,589,112,592,101,595,68,598,0,602,0,605,89,608,89,612,102,615,101,618,93,621,75,625,0,32767 +-2,0,2400,111,2444,115,2516,118,2503,121,2309,125,2290,128,2315,131,2343,134,2368,138,2374,141,2389,144,2406,148,2417,151,2421,154,2417,157,2416,161,2409,164,2390,167,2372,171,2351,174,2330,177,2321,180,2294,184,2272,187,2259,190,2250,194,2249,197,2228,200,2207,204,2305,207,2470,210,2481,213,2478,217,2480,220,2476,223,2304,227,2248,230,2269,233,2285,236,2306,240,2332,243,2367,246,2367,250,2413,253,2462,256,2499,259,2497,263,2518,266,2460,269,2325,273,2254,276,2253,279,2217,332,2445,335,2411,338,2501,342,2460,345,2446,358,2481,361,2508,365,2567,368,2556,371,2540,375,2535,378,2532,381,2540,384,2539,388,2543,391,2480,394,2315,398,2290,401,2291,404,2312,408,2314,411,2315,414,2313,417,2310,421,2295,424,2256,427,2248,431,2282,434,2318,493,2299,496,2330,500,2339,503,2348,506,2357,510,2371,513,2391,516,2411,519,2424,523,2433,526,2444,529,2435,533,2415,536,2404,539,2394,542,2379,546,2357,549,2330,552,2294,556,2264,559,2326,562,2456,565,2293,569,2484,572,2504,575,2486,579,2475,582,2497,585,2499,589,2496,592,2497,595,2513,598,2456,602,2264,605,2301,608,2358,612,2404,615,2415,618,2446,621,2482,625,2482,32767 + +-1,0,0,108,0,111,136,115,173,118,195,121,193,125,230,128,456,131,682,134,948,138,1092,141,1202,144,1315,148,1242,151,1201,154,1231,157,1261,161,1289,164,1297,167,1342,171,1261,174,1134,177,973,180,755,184,708,187,824,190,828,194,844,197,901,200,767,204,726,207,626,210,516,213,470,217,518,220,449,223,436,227,444,230,359,233,352,236,419,240,478,243,496,246,558,250,528,253,361,256,287,259,292,263,283,266,263,269,160,273,99,276,0,282,0,286,65,289,0,329,0,332,84,335,148,338,105,342,92,345,0,358,0,361,70,365,88,368,122,371,160,375,215,378,210,381,227,384,258,388,262,391,286,394,384,398,406,401,388,404,397,408,406,411,408,414,387,417,330,421,230,424,148,427,130,431,88,434,67,437,0,477,0,480,71,483,0,490,0,493,98,496,118,500,112,503,141,506,202,510,248,513,253,516,250,519,265,523,299,526,320,529,301,533,309,536,301,539,292,542,259,546,210,549,276,552,297,556,192,559,140,562,157,565,175,569,127,572,122,575,106,579,101,582,109,585,91,589,76,592,65,595,0,598,69,602,80,605,136,608,162,612,145,615,122,618,108,621,91,625,66,628,0,32767 +-2,0,2700,108,2659,111,2679,115,2773,118,2808,121,2710,125,2566,128,2596,131,2629,134,2653,138,2667,141,2683,144,2706,148,2721,151,2728,154,2712,157,2703,161,2698,164,2685,167,2675,171,2657,174,2638,177,2620,180,2633,184,2816,187,2816,190,2807,194,2785,197,2756,200,2761,204,2747,207,2735,210,2749,213,2764,217,2761,220,2770,223,2785,227,2804,230,2808,233,2665,236,2599,240,2614,243,2627,246,2671,250,2733,253,2767,256,2798,259,2805,263,2742,266,2664,269,2836,273,2811,276,2775,282,2770,286,2802,289,2820,329,2679,332,2700,335,2790,338,2811,342,2684,345,2718,358,2679,361,2778,365,2816,368,2808,371,2673,375,2563,378,2660,381,2709,384,2552,388,2618,391,2745,394,2599,398,2584,401,2586,404,2602,408,2606,411,2605,414,2613,417,2613,421,2602,424,2580,427,2609,431,2597,434,2603,437,2603,477,2638,480,2735,483,2606,490,2612,493,2649,496,2656,500,2648,503,2673,506,2698,510,2714,513,2749,516,2779,519,2786,523,2779,526,2773,529,2778,533,2766,536,2748,539,2731,542,2708,546,2674,549,2675,552,2659,556,2606,559,2622,562,2816,565,2837,569,2837,572,2814,575,2806,579,2806,582,2803,585,2796,589,2802,592,2832,595,2841,598,2739,602,2606,605,2633,608,2672,612,2726,615,2783,618,2801,621,2805,625,2740,628,2740,32767 + +-1,0,0,115,0,118,85,121,134,125,215,128,326,131,412,134,469,138,459,141,439,144,415,148,423,151,340,154,388,157,514,161,600,164,718,167,880,171,999,174,1077,177,1056,180,947,184,657,187,477,190,421,194,513,197,469,200,620,204,679,207,566,210,529,213,502,217,492,220,486,223,412,227,363,230,293,233,293,236,342,240,392,243,518,246,482,250,327,253,188,256,161,259,171,263,168,266,215,269,163,273,126,276,73,279,0,329,0,332,111,335,339,338,275,342,174,345,0,361,0,365,76,368,95,371,107,375,145,378,163,381,151,384,177,388,190,391,217,394,266,398,268,401,286,404,299,408,333,411,306,414,316,417,308,421,255,424,168,427,76,431,81,434,68,437,0,477,0,480,97,483,133,487,199,490,218,493,181,496,128,500,128,503,201,506,300,510,439,513,593,516,558,519,425,523,421,526,442,529,459,533,594,536,741,539,914,542,1078,546,1146,549,1133,552,898,556,565,559,359,562,307,565,231,569,321,572,311,575,337,579,381,582,342,585,251,589,206,592,233,595,218,598,138,602,112,605,158,608,211,612,271,615,259,618,233,621,178,625,120,628,88,631,125,635,83,638,0,641,98,644,88,648,0,32767 +-2,0,3000,115,2880,118,2829,121,2840,125,2858,128,2884,131,2916,134,2947,138,2970,141,2987,144,3019,148,3022,151,3047,154,3028,157,3010,161,3002,164,2986,167,2961,171,2945,174,2932,177,2910,180,2890,184,2875,187,3039,190,3095,194,3054,197,3061,200,3036,204,2999,207,3005,210,3026,213,3030,217,3034,220,3040,223,3064,227,3087,230,3098,233,2977,236,2891,240,2897,243,2938,246,2975,250,3008,253,3077,256,3105,259,3097,263,3002,266,2885,269,2868,273,2943,276,2952,279,2927,329,2990,332,2987,335,3022,338,3078,342,3031,345,2914,361,2873,365,3053,368,3102,371,3124,375,3112,378,3101,381,3120,384,3109,388,3094,391,3016,394,2883,398,2862,401,2869,404,2877,408,2900,411,2902,414,2915,417,2912,421,2909,424,2919,427,2904,431,2925,434,2911,437,2931,477,2933,480,3011,483,2953,487,2977,490,2987,493,2993,496,2969,500,2966,503,3003,506,3027,510,3045,513,3061,516,3097,519,3133,523,3135,526,3133,529,3134,533,3112,536,3096,539,3080,542,3060,546,3043,549,3022,552,2984,556,2937,559,2892,562,2905,565,3055,569,3125,572,3136,575,3126,579,3113,582,3116,585,3123,589,3125,592,3114,595,3095,598,2967,602,2900,605,2945,608,2985,612,3075,615,3112,618,3126,621,3144,625,3161,628,3136,631,2987,635,2925,638,2960,641,3026,644,3034,648,3034,32767 + +-1,0,0,125,0,128,68,131,98,134,160,138,195,141,222,144,236,148,248,151,283,154,279,157,264,161,275,164,300,167,314,171,298,174,212,177,199,180,193,184,230,187,283,190,296,194,289,197,315,200,256,204,201,207,278,210,356,213,318,217,291,220,292,223,261,227,210,230,193,233,185,236,149,240,134,243,151,246,170,250,159,253,100,256,0,259,77,263,87,266,110,269,0,329,0,332,80,335,319,338,302,342,137,345,0,365,0,368,88,371,80,375,77,378,120,381,116,384,123,388,114,391,91,394,82,398,76,401,0,404,0,408,70,411,67,414,0,493,0,496,120,500,192,503,192,506,145,510,93,513,111,516,175,519,251,523,281,526,296,529,271,533,227,536,175,539,171,542,192,546,242,549,298,552,321,556,346,559,357,562,343,565,276,569,229,572,203,575,189,579,166,582,151,585,136,589,97,592,111,595,148,598,179,602,200,605,190,608,181,612,130,615,117,618,144,621,160,625,233,628,227,631,211,635,225,638,148,641,125,644,123,648,122,651,90,654,105,658,111,661,102,664,127,667,67,671,0,32767 +-2,0,3300,125,3200,128,3212,131,3206,134,3253,138,3262,141,3290,144,3316,148,3324,151,3320,154,3319,157,3308,161,3295,164,3280,167,3268,171,3250,174,3199,177,3184,180,3245,184,3385,187,3379,190,3361,194,3345,197,3307,200,3296,204,3294,207,3277,210,3295,213,3301,217,3305,220,3322,223,3352,227,3383,230,3399,233,3401,236,3262,240,3190,243,3239,246,3281,250,3311,253,3381,256,3445,259,3408,263,3302,266,3248,269,3347,329,3277,332,3167,335,3257,338,3286,342,3195,345,3166,365,3366,368,3347,371,3252,375,3331,378,3370,381,3396,384,3388,388,3383,391,3288,394,3260,398,3414,401,3389,404,3202,408,3180,411,3184,414,3212,493,3347,496,3324,500,3334,503,3364,506,3375,510,3386,513,3319,516,3136,519,3134,523,3135,526,3138,529,3129,533,3116,536,3090,539,3186,542,3372,546,3370,549,3337,552,3303,556,3261,559,3221,562,3193,565,3165,569,3143,572,3132,575,3127,579,3120,582,3121,585,3151,589,3303,592,3192,595,3150,598,3182,602,3214,605,3287,608,3346,612,3301,615,3124,618,3141,621,3140,625,3193,628,3229,631,3254,635,3301,638,3362,641,3370,644,3362,648,3305,651,3240,654,3236,658,3211,661,3192,664,3310,667,3339,671,3339,32767 + +-1,0,0,125,0,128,70,131,0,134,112,138,128,141,163,144,185,148,146,151,133,154,140,157,162,161,193,164,235,167,275,171,252,174,188,177,142,180,143,184,163,187,167,190,168,194,154,197,145,200,187,204,223,207,215,210,206,213,158,217,187,220,207,223,163,227,109,230,98,233,100,236,91,240,77,243,120,246,142,250,128,253,73,256,81,259,69,263,71,266,0,332,0,335,155,338,209,342,146,345,91,348,65,352,0,490,0,493,67,496,95,500,125,503,140,506,151,510,123,513,80,516,69,519,86,523,95,526,104,529,117,533,104,536,79,539,76,542,89,546,130,549,159,552,177,556,127,559,140,562,161,565,127,569,106,572,109,575,108,579,92,582,75,585,0,589,0,592,65,595,0,598,71,602,133,605,174,608,130,612,124,615,105,618,82,621,108,625,169,628,162,631,138,635,98,638,116,641,93,644,0,648,0,651,71,654,80,658,72,661,70,664,67,667,0,32767 +-2,0,3600,125,3724,128,3744,131,3600,134,3545,138,3557,141,3588,144,3615,148,3631,151,3649,154,3626,157,3609,161,3589,164,3569,167,3555,171,3536,174,3507,177,3480,180,3514,184,3671,187,3666,190,3633,194,3617,197,3590,200,3575,204,3559,207,3558,210,3571,213,3566,217,3583,220,3604,223,3626,227,3661,230,3664,233,3507,236,3628,240,3601,243,3552,246,3568,250,3603,253,3519,256,3630,259,3737,263,3601,266,3516,332,3676,335,3594,338,3565,342,3539,345,3567,348,3560,352,3563,490,3641,493,3668,496,3660,500,3667,503,3692,506,3700,510,3725,513,3605,516,3484,519,3491,523,3494,526,3490,529,3471,533,3468,536,3527,539,3731,542,3737,546,3694,549,3684,552,3633,556,3571,559,3540,562,3518,565,3510,569,3703,572,3745,575,3733,579,3731,582,3726,585,3669,589,3466,592,3460,595,3471,598,3514,602,3552,605,3624,608,3681,612,3710,615,3639,618,3495,621,3517,625,3557,628,3583,631,3644,635,3703,638,3687,641,3711,644,3749,648,3700,651,3646,654,3580,658,3525,661,3553,664,3667,667,3667,32767 + +-1,0,0,111,0,115,91,118,149,121,144,125,161,128,117,131,118,134,202,138,236,141,226,144,298,148,379,151,447,154,425,157,373,161,387,164,351,167,243,171,174,174,178,177,173,180,156,184,153,187,159,190,181,194,207,197,210,200,160,204,120,207,111,210,132,213,117,217,122,220,129,223,144,227,176,230,186,233,132,236,79,240,72,243,88,246,65,250,0,253,65,256,0,335,0,338,74,342,0,345,0,348,66,352,0,365,0,368,65,371,0,375,0,378,66,381,0,384,0,388,66,391,89,394,72,398,74,401,91,404,79,408,88,411,86,414,70,417,75,421,0,490,0,493,79,496,91,500,102,503,100,506,109,510,132,513,133,516,114,519,116,523,94,526,0,529,0,533,76,536,104,539,101,542,0,546,0,549,70,552,102,556,134,559,187,562,176,565,147,569,148,572,109,575,78,579,0,589,0,592,70,595,81,598,112,602,133,605,86,608,0,612,70,615,144,618,160,621,140,625,102,628,104,631,82,635,0,32767 +-2,0,3900,111,3881,115,3855,118,3913,121,3967,125,3991,128,3963,131,3782,134,3836,138,3858,141,3885,144,3912,148,3927,151,3935,154,3927,157,3919,161,3912,164,3893,167,3848,171,3805,174,3802,177,3822,180,4017,184,3984,187,3932,190,3921,194,3911,197,3883,200,3861,204,3818,207,3815,210,3845,213,3845,217,3863,220,3883,223,3903,227,3918,230,3939,233,3989,236,4017,240,3905,243,3829,246,3879,250,3960,253,3957,256,3883,335,3821,338,3843,342,3925,345,3926,348,3896,352,3932,365,3900,368,3952,371,3973,375,3976,378,3942,381,3951,384,3979,388,3976,391,3975,394,4021,398,4030,401,4013,404,3999,408,3861,411,4026,414,4079,417,4048,421,4041,490,3950,493,3979,496,3988,500,3998,503,4023,506,4037,510,3992,513,3803,516,3803,519,3836,523,3825,526,3781,529,3820,533,3802,536,3782,539,3779,542,3833,546,3868,549,3859,552,3951,556,3919,559,3879,562,3834,565,3787,569,3781,572,3752,575,3736,579,3732,589,3948,592,3796,595,3783,598,3820,602,3853,605,3937,608,3896,612,3735,615,3805,618,3836,621,3865,625,3932,628,3930,631,3899,635,3899,32767 + +-1,0,0,125,0,128,100,131,133,134,188,138,190,141,126,144,130,148,134,151,129,154,142,157,132,161,184,164,180,167,156,171,178,174,191,177,189,180,169,184,124,187,110,190,114,194,111,197,108,200,122,204,92,207,0,210,82,213,84,217,89,220,87,223,68,227,0,332,0,335,72,338,123,342,74,345,0,401,0,404,70,408,108,411,114,414,128,417,107,421,0,503,0,506,71,510,174,513,295,516,318,519,321,523,387,526,416,529,380,533,325,536,215,539,88,542,81,546,85,549,92,552,133,556,72,559,0,569,0,572,73,575,0,32767 +-2,0,4200,125,3975,128,4057,131,4076,134,4114,138,4146,141,4203,144,4216,148,4227,151,4249,154,4231,157,4233,161,4204,164,4189,167,4146,171,4120,174,4100,177,4079,180,4088,184,4198,187,4230,190,4212,194,4179,197,4151,200,4152,204,4118,207,4066,210,4135,213,4110,217,4124,220,4160,223,4186,227,4202,332,4252,335,4247,338,4249,342,4208,345,4296,401,4233,404,4091,408,4079,411,4069,414,4082,417,4077,421,4065,503,4023,506,4016,510,4070,513,4110,516,4141,519,4188,523,4193,526,4189,529,4177,533,4159,536,4152,539,4157,542,4177,546,4237,549,4368,552,4294,556,4272,559,4249,569,4086,572,4108,575,4108,32767 + +-1,0,0,138,0,141,73,144,102,148,121,151,130,154,129,157,124,161,123,164,100,167,0,180,0,184,87,187,101,190,99,194,81,197,0,204,0,207,79,210,0,227,0,230,96,233,119,236,103,240,66,243,0,246,0,250,89,253,90,256,0,335,0,338,85,342,90,345,0,506,0,510,86,513,130,516,104,519,0,526,0,529,79,533,97,536,112,539,133,542,158,546,160,549,124,552,84,556,69,559,0,598,0,602,87,605,102,608,0,612,0,615,96,618,102,621,74,625,0,32767 +-2,0,4500,138,4465,141,4481,144,4500,148,4519,151,4532,154,4530,157,4523,161,4510,164,4486,167,4439,180,4421,184,4558,187,4520,190,4510,194,4490,197,4437,204,4483,207,4570,210,4636,227,4471,230,4508,233,4552,236,4594,240,4641,243,4584,246,4461,250,4521,253,4585,256,4641,335,4588,338,4528,342,4445,345,4505,506,4360,510,4401,513,4439,516,4475,519,4527,526,4528,529,4507,533,4491,536,4479,539,4451,542,4415,546,4395,549,4369,552,4356,556,4424,559,4479,598,4478,602,4485,605,4538,608,4548,612,4481,615,4480,618,4511,621,4514,625,4514,32767 + +-1,0,0,148,0,151,65,154,0,210,0,213,73,217,67,220,78,223,0,240,0,243,67,246,0,259,0,263,65,266,0,332,0,335,89,338,70,342,0,506,0,510,66,513,0,533,0,536,67,539,0,556,0,559,66,562,65,565,0,579,0,582,73,585,0,32767 +-2,0,4800,148,4816,151,4838,154,4822,210,4818,213,4824,217,4697,220,4710,223,4722,240,4699,243,4685,246,4768,259,4666,263,4717,266,4800,332,4950,335,4829,338,4876,342,4892,506,4704,510,4739,513,4757,533,4847,536,4821,539,4788,556,4899,559,4839,562,4792,565,4735,579,4653,582,4684,585,4684,32767 + +-1,0,0,115,0,118,87,121,112,125,104,128,71,131,0,138,0,141,69,144,129,148,186,151,135,154,104,157,100,161,105,164,86,167,70,171,0,174,77,177,100,180,92,184,87,187,86,190,90,194,0,223,0,227,66,230,0,342,0,345,65,348,0,470,0,473,81,477,104,480,83,483,90,487,92,490,0,496,0,500,68,503,89,506,102,510,94,513,70,516,0,32767 +-2,0,5100,115,5102,118,5043,121,5072,125,5122,128,5186,131,5158,138,5055,141,5078,144,5112,148,5125,151,5156,154,5154,157,5132,161,5098,164,5042,167,5015,171,4988,174,5073,177,5204,180,5168,184,5115,187,5075,190,5040,194,5002,223,5007,227,5045,230,5047,342,5035,345,5128,348,5196,470,5027,473,5113,477,5098,480,5071,483,5117,487,5162,490,5106,496,5001,500,5006,503,5028,506,5057,510,5080,513,5115,516,5115,32767 + +-1,0,0,141,0,144,65,148,99,151,125,154,133,157,116,161,89,164,81,167,83,171,87,174,82,177,81,180,91,184,112,187,114,190,85,194,0,493,0,496,66,500,0,503,70,506,73,510,68,513,74,516,0,32767 +-2,0,5400,141,5399,144,5424,148,5444,151,5446,154,5437,157,5434,161,5412,164,5356,167,5336,171,5305,174,5272,177,5297,180,5425,184,5401,187,5363,190,5333,194,5294,493,5316,496,5335,500,5355,503,5365,506,5388,510,5420,513,5448,516,5448,32767 + +-1,0,0,32767 +-2,0,5700,32767 + +-1,0,0,32767 +-2,0,6000,32767 + +-1,0,0,32767 +-2,0,6300,32767 + +-1,0,0,125,0,128,74,131,0,134,66,138,0,161,0,164,66,167,71,171,74,174,69,177,0,190,0,194,66,197,78,200,79,204,0,207,65,210,72,213,0,227,0,230,70,233,80,236,114,240,95,243,88,246,73,250,0,487,0,490,65,493,0,549,0,552,66,556,0,582,0,585,71,589,71,592,79,595,67,598,0,615,0,618,79,621,0,32767 +-2,0,6600,125,6545,128,6605,131,6715,134,6654,138,6566,161,6556,164,6587,167,6649,171,6717,174,6719,177,6677,190,6695,194,6667,197,6647,200,6630,204,6546,207,6549,210,6613,213,6615,227,6740,230,6736,233,6674,236,6612,240,6676,243,6624,246,6544,250,6618,487,6577,490,6595,493,6633,549,6660,552,6613,556,6524,582,6526,585,6542,589,6538,592,6579,595,6626,598,6678,615,6540,618,6612,621,6612,32767 + +-1,0,0,125,0,128,89,131,117,134,0,138,142,141,189,144,169,148,107,151,86,154,130,157,138,161,232,164,235,167,124,171,116,174,155,177,197,180,155,184,108,187,74,190,77,194,92,197,109,200,122,204,134,207,134,210,126,213,139,217,183,220,198,223,123,227,82,230,111,233,159,236,229,240,168,243,86,246,132,250,137,253,0,256,82,259,149,263,162,266,110,269,0,371,0,375,72,378,0,483,0,487,68,490,0,493,82,496,86,500,78,503,68,506,73,510,0,513,72,516,75,519,0,529,0,533,84,536,82,539,0,572,0,575,81,579,84,582,82,585,89,589,83,592,0,32767 +-2,0,6900,125,6861,128,6895,131,6876,134,6749,138,6855,141,6880,144,6897,148,6849,151,6839,154,6913,157,6921,161,6898,164,6902,167,6947,171,7004,174,7014,177,6959,180,6902,184,6866,187,6993,190,7009,194,6948,197,6887,200,6903,204,6875,207,6832,210,6846,213,6877,217,6873,220,6917,223,6975,227,7028,230,6851,233,6833,236,6904,240,6939,243,6914,246,6864,250,6908,253,6941,256,6839,259,6868,263,6940,266,6910,269,6836,371,6798,375,6874,378,6935,483,6846,487,6889,490,6923,493,6953,496,6982,500,7013,503,7040,506,7043,510,7022,513,6880,516,6928,519,6962,529,6958,533,6911,536,6882,539,6836,572,6872,575,6870,579,6846,582,6832,585,6849,589,6858,592,6858,32767 + +-1,0,0,128,0,131,66,134,94,138,113,141,109,144,122,148,86,151,0,154,91,157,109,161,179,164,230,167,155,171,120,174,110,177,133,180,154,184,111,187,77,190,67,194,91,197,159,200,185,204,166,207,122,210,125,213,84,217,95,220,115,223,71,227,0,230,70,233,98,236,114,240,100,243,78,246,88,250,77,253,0,256,69,259,89,263,83,266,0,368,0,371,80,375,122,378,78,381,0,384,0,388,105,391,141,394,127,398,128,401,140,404,175,408,201,411,194,414,197,417,206,421,156,424,87,427,0,480,0,483,74,487,89,490,84,493,116,496,102,500,86,503,0,506,116,510,149,513,161,516,147,519,113,523,73,526,0,529,0,533,86,536,80,539,0,32767 +-2,0,7200,128,7196,131,7271,134,7228,138,7134,141,7174,144,7201,148,7253,151,7320,154,7242,157,7228,161,7200,164,7168,167,7119,171,7084,174,7079,177,7216,180,7176,184,7122,187,7068,190,7064,194,7119,197,7184,200,7190,204,7124,207,7075,210,7148,213,7160,217,7123,220,7187,223,7242,227,7107,230,7067,233,7113,236,7207,240,7245,243,7205,246,7158,250,7247,253,7189,256,7120,259,7202,263,7264,266,7177,368,7045,371,7091,375,7148,378,7235,381,7175,384,7072,388,7089,391,7141,394,7147,398,7161,401,7191,404,7225,408,7237,411,7238,414,7255,417,7256,421,7236,424,7283,427,7256,480,7217,483,7180,487,7200,490,7271,493,7283,496,7301,500,7255,503,7165,506,7095,510,7112,513,7168,516,7272,519,7303,523,7336,526,7321,529,7319,533,7265,536,7218,539,7218,32767 + +-1,0,0,118,0,121,73,125,0,128,0,131,88,134,67,138,149,141,136,144,119,148,109,151,65,154,103,157,97,161,150,164,150,167,87,171,92,174,110,177,110,180,94,184,98,187,80,190,76,194,68,197,81,200,0,204,0,207,82,210,111,213,109,217,0,220,90,223,66,227,0,230,0,233,95,236,131,240,119,243,75,246,88,250,79,253,0,256,66,259,84,263,0,384,0,388,73,391,0,408,0,411,99,414,91,417,66,421,80,424,86,427,79,431,0,480,0,483,81,487,116,490,105,493,93,496,102,500,76,503,0,506,68,510,121,513,153,516,97,519,0,523,0,526,78,529,0,533,65,536,0,549,0,552,104,556,130,559,89,562,70,565,92,569,114,572,115,575,140,579,127,582,113,585,153,589,170,592,152,595,107,598,0,602,77,605,89,608,0,621,0,625,67,628,0,32767 +-2,0,7500,118,7539,121,7570,125,7586,128,7492,131,7521,134,7513,138,7488,141,7453,144,7514,148,7502,151,7412,154,7485,157,7524,161,7522,164,7447,167,7382,171,7463,174,7593,177,7542,180,7455,184,7481,187,7589,190,7524,194,7502,197,7472,200,7437,204,7569,207,7487,210,7429,213,7454,217,7401,220,7477,223,7555,227,7618,230,7585,233,7489,236,7499,240,7532,243,7490,246,7463,250,7554,253,7528,256,7442,259,7500,263,7599,384,7608,388,7528,391,7402,408,7534,411,7519,414,7542,417,7538,421,7486,424,7422,427,7410,431,7429,480,7580,483,7461,487,7505,490,7459,493,7485,496,7607,500,7618,503,7510,506,7415,510,7460,513,7504,516,7609,519,7555,523,7523,526,7512,529,7527,533,7595,536,7565,549,7540,552,7592,556,7524,559,7464,562,7529,565,7591,569,7532,572,7498,575,7488,579,7461,582,7452,585,7480,589,7482,592,7496,595,7538,598,7587,602,7482,605,7522,608,7575,621,7386,625,7473,628,7473,32767 + +-1,0,0,118,0,121,87,125,0,128,66,131,66,134,106,138,170,141,163,144,152,148,133,151,78,154,92,157,114,161,141,164,140,167,91,171,96,174,108,177,134,180,160,184,144,187,83,190,79,194,115,197,131,200,158,204,139,207,81,210,91,213,95,217,77,220,95,223,88,227,68,230,0,233,69,236,87,240,92,243,90,246,86,250,0,256,0,259,84,263,72,266,0,358,0,361,79,365,0,384,0,388,92,391,79,394,0,398,84,401,125,404,81,408,71,411,95,414,75,417,0,477,0,480,69,483,78,487,128,490,123,493,0,496,83,500,93,503,114,506,165,510,154,513,127,516,0,519,0,523,66,526,71,529,0,539,0,542,72,546,74,549,86,552,83,556,93,559,86,562,0,572,0,575,70,579,72,582,89,585,99,589,87,592,70,595,0,32767 +-2,0,7800,118,7856,121,7843,125,7834,128,7797,131,7831,134,7835,138,7736,141,7773,144,7799,148,7813,151,7746,154,7777,157,7821,161,7822,164,7754,167,7678,171,7747,174,7891,177,7843,180,7764,184,7748,187,7847,190,7826,194,7769,197,7735,200,7742,204,7809,207,7794,210,7702,213,7711,217,7696,220,7777,223,7830,227,7866,230,7868,233,7802,236,7804,240,7805,243,7746,246,7749,250,7706,256,7744,259,7812,263,7745,266,7690,358,7841,361,7816,365,7877,384,7908,388,7817,391,7759,394,7859,398,7805,401,7790,404,7823,408,7828,411,7817,414,7856,417,7818,477,7764,480,7722,483,7730,487,7832,490,7815,493,7619,496,7823,500,7760,503,7713,506,7768,510,7798,513,7775,516,7634,519,7673,523,7687,526,7767,529,7886,539,7845,542,7794,546,7703,549,7710,552,7818,556,7803,559,7779,562,7890,572,7835,575,7786,579,7765,582,7781,585,7799,589,7808,592,7823,595,7823,32767 + +-1,0,0,118,0,121,65,125,0,131,0,134,97,138,131,141,70,144,79,148,132,151,108,154,73,157,82,161,84,164,98,167,78,171,114,174,149,177,146,180,136,184,115,187,99,190,101,194,114,197,137,200,91,204,103,207,108,210,97,213,102,217,97,220,103,223,94,227,0,230,0,233,86,236,118,240,109,243,89,246,90,250,66,253,0,256,0,259,71,263,70,266,81,269,0,381,0,384,69,388,113,391,92,394,0,398,68,401,146,404,129,408,107,411,111,414,85,417,80,421,84,424,74,427,0,487,0,490,81,493,123,496,118,500,127,503,142,506,145,510,101,513,0,516,0,519,71,523,71,526,0,536,0,539,90,542,133,546,115,549,121,552,155,556,141,559,86,562,80,565,93,569,115,572,97,575,119,579,106,582,145,585,194,589,160,592,125,595,97,598,75,602,105,605,130,608,102,612,73,615,0,618,0,621,75,625,0,32767 +-2,0,8100,118,8184,121,8081,125,8138,131,8110,134,8067,138,8085,141,8022,144,8115,148,8160,151,8068,154,8013,157,8110,161,8154,164,8055,167,8105,171,8211,174,8179,177,8134,180,8050,184,8051,187,8118,190,8092,194,8048,197,8047,200,7987,204,8072,207,8192,210,8153,213,8074,217,8166,220,8062,223,8076,227,8018,230,8029,233,8078,236,8078,240,8106,243,8070,246,8071,250,8164,253,8089,256,8055,259,8117,263,8052,266,8007,269,8110,381,8198,384,8188,388,8091,391,8008,394,7970,398,7992,401,8077,404,8098,408,8119,411,8104,414,8141,417,8119,421,8075,424,8010,427,8103,487,8004,490,7958,493,7991,496,7979,500,8006,503,8048,506,8092,510,8145,513,8074,516,7978,519,8051,523,8061,526,8045,536,8199,539,8201,542,8135,546,8068,549,8039,552,8134,556,8157,559,8080,562,8188,565,8224,569,8148,572,8138,575,8099,579,8070,582,8097,585,8123,589,8115,592,8132,595,8122,598,8000,602,8064,605,8086,608,8047,612,8148,615,8279,618,8146,621,8128,625,8128,32767 + +-1,0,0,125,0,128,69,131,0,134,0,138,78,141,73,144,0,148,70,151,0,157,0,161,113,164,139,167,91,171,115,174,168,177,159,180,128,184,105,187,80,190,78,194,153,197,173,200,106,204,139,207,134,210,84,213,118,217,108,220,87,223,93,227,73,230,0,233,105,236,114,240,96,243,80,246,81,250,0,378,0,381,65,384,67,388,105,391,81,394,0,398,0,401,110,404,104,408,84,411,72,414,0,487,0,490,66,493,94,496,72,500,0,513,0,516,90,519,191,523,253,526,192,529,116,533,85,536,0,539,95,542,173,546,211,549,225,552,235,556,202,559,133,562,96,565,87,569,164,572,150,575,193,579,147,582,192,585,285,589,230,592,152,595,141,598,148,602,142,605,158,608,187,612,134,615,105,618,143,621,112,625,70,628,0,32767 +-2,0,8400,125,8534,128,8437,131,8435,134,8384,138,8316,141,8350,144,8454,148,8451,151,8344,157,8446,161,8421,164,8362,167,8276,171,8331,174,8460,177,8417,180,8351,184,8332,187,8381,190,8377,194,8340,197,8332,200,8456,204,8461,207,8457,210,8420,213,8352,217,8452,220,8358,223,8365,227,8424,230,8467,233,8363,236,8377,240,8406,243,8337,246,8375,250,8478,378,8493,381,8460,384,8475,388,8386,391,8295,394,8401,398,8458,401,8362,404,8364,408,8411,411,8391,414,8301,487,8328,490,8301,493,8338,496,8314,500,8317,513,8247,516,8284,519,8367,523,8386,526,8376,529,8341,533,8297,536,8322,539,8498,542,8471,546,8426,549,8379,552,8428,556,8458,559,8418,562,8312,565,8451,569,8452,572,8473,575,8413,579,8366,582,8394,585,8426,589,8436,592,8467,595,8435,598,8331,602,8362,605,8403,608,8361,612,8345,615,8321,618,8363,621,8462,625,8479,628,8479,32767 + +-1,0,0,144,0,148,75,151,75,154,0,157,0,161,74,164,109,167,72,171,129,174,147,177,117,180,98,184,85,187,0,190,106,194,138,197,148,200,101,204,164,207,176,210,85,213,72,217,80,220,0,223,86,227,71,230,0,233,78,236,113,240,79,243,88,246,137,250,88,253,87,256,98,259,87,263,65,266,0,384,0,388,71,391,72,394,0,398,0,401,120,404,119,408,96,411,77,414,0,424,0,427,72,431,0,470,0,473,69,477,0,500,0,503,74,506,116,510,84,513,68,516,122,519,131,523,98,526,69,529,69,533,116,536,80,539,80,542,139,546,165,549,209,552,160,556,164,559,132,562,117,565,81,569,134,572,137,575,185,579,144,582,177,585,259,589,209,592,129,595,96,598,118,602,142,605,145,608,152,612,133,615,150,618,147,621,90,625,0,32767 +-2,0,8700,144,8786,148,8797,151,8782,154,8793,157,8729,161,8733,164,8670,167,8715,171,8757,174,8762,177,8708,180,8661,184,8744,187,8780,190,8703,194,8618,197,8604,200,8708,204,8748,207,8730,210,8709,213,8621,217,8735,220,8612,223,8645,227,8625,230,8583,233,8604,236,8651,240,8681,243,8650,246,8652,250,8607,253,8620,256,8674,259,8725,263,8667,266,8641,384,8750,388,8665,391,8598,394,8557,398,8572,401,8647,404,8659,408,8696,411,8678,414,8705,424,8747,427,8764,431,8725,470,8735,473,8654,477,8672,500,8726,503,8728,506,8768,510,8732,513,8588,516,8629,519,8695,523,8743,526,8725,529,8677,533,8655,536,8580,539,8673,542,8798,546,8765,549,8701,552,8774,556,8729,559,8722,562,8630,565,8552,569,8726,572,8772,575,8710,579,8695,582,8718,585,8737,589,8749,592,8779,595,8744,598,8648,602,8689,605,8747,608,8710,612,8660,615,8657,618,8705,621,8736,625,8736,32767 + +-1,0,0,125,0,128,72,131,0,167,0,171,104,174,89,177,99,180,111,184,0,187,0,190,79,194,125,197,117,200,80,204,124,207,135,210,92,213,66,217,0,220,0,223,80,227,76,230,0,233,95,236,136,240,91,243,92,246,140,250,94,253,0,256,69,259,0,398,0,401,82,404,78,408,83,411,66,414,0,496,0,500,87,503,122,506,137,510,76,513,73,516,92,519,109,523,112,526,97,529,96,533,145,536,130,539,128,542,99,546,95,549,140,552,112,556,145,559,91,562,83,565,0,572,0,575,106,579,68,582,125,585,152,589,109,592,66,595,0,598,0,602,90,605,90,608,83,612,66,615,100,618,85,621,0,32767 +-2,0,9000,125,9124,128,9047,131,8984,167,8979,171,9040,174,9029,177,8980,180,8965,184,9018,187,9062,190,8973,194,8926,197,8922,200,8983,204,8986,207,9043,210,9080,213,9054,217,9031,220,8880,223,8928,227,8961,230,9042,233,8933,236,8948,240,8975,243,8937,246,8955,250,8925,253,8908,256,8996,259,9045,398,8914,401,8944,404,8950,408,8994,411,8964,414,8991,496,9170,500,9040,503,9022,506,9064,510,9092,513,8979,516,8976,519,9048,523,9069,526,9043,529,9037,533,9004,536,8918,539,8895,542,8864,546,8913,549,9023,552,9097,556,9042,559,9062,562,8918,565,8897,572,9077,575,8996,579,8849,582,8907,585,9049,589,9058,592,9112,595,9051,598,8929,602,9029,605,9059,608,9057,612,9003,615,8999,618,9035,621,9035,32767 + +-1,0,0,125,0,128,91,131,0,134,0,138,103,141,98,144,94,148,71,151,0,154,0,157,68,161,102,164,140,167,113,171,155,174,186,177,124,180,0,184,85,187,69,190,0,194,113,197,174,200,140,204,194,207,236,210,190,213,121,217,124,220,118,223,85,227,93,230,114,233,114,236,125,240,102,243,80,246,106,250,0,401,0,404,79,408,0,500,0,503,71,506,68,510,0,513,101,516,110,519,0,529,0,533,69,536,0,539,81,542,67,546,0,549,65,552,70,556,83,559,75,562,81,565,68,569,83,572,101,575,147,579,120,582,133,585,195,589,191,592,109,595,0,598,0,602,90,605,72,608,77,612,98,615,104,618,0,32767 +-2,0,9300,125,9414,128,9293,131,9332,134,9433,138,9334,141,9254,144,9241,148,9292,151,9410,154,9406,157,9324,161,9244,164,9279,167,9267,171,9332,174,9377,177,9353,180,9414,184,9375,187,9317,190,9287,194,9388,197,9385,200,9385,204,9292,207,9302,210,9349,213,9328,217,9371,220,9370,223,9267,227,9251,230,9297,233,9230,236,9246,240,9264,243,9205,246,9261,250,9199,401,9218,404,9256,408,9277,500,9330,503,9368,506,9373,510,9198,513,9257,516,9304,519,9414,529,9396,533,9332,536,9265,539,9242,542,9312,546,9432,549,9325,552,9229,556,9334,559,9376,562,9231,565,9231,569,9385,572,9368,575,9312,579,9299,582,9353,585,9359,589,9356,592,9409,595,9467,598,9437,602,9363,605,9409,608,9269,612,9201,615,9306,618,9306,32767 + +-1,0,0,115,0,118,65,121,0,125,91,128,150,131,82,134,97,138,152,141,161,144,182,148,125,151,102,154,79,157,148,161,171,164,233,167,225,171,283,174,306,177,188,180,161,184,239,187,229,190,152,194,132,197,205,200,210,204,264,207,278,210,260,213,200,217,165,220,157,223,119,227,91,230,111,233,126,236,149,240,105,243,109,246,166,250,115,253,87,256,99,259,0,263,66,266,118,269,70,273,0,381,0,384,73,388,65,391,101,394,89,398,73,401,0,404,72,408,76,411,0,493,0,496,70,500,82,503,72,506,80,510,89,513,170,516,162,519,81,523,0,526,0,529,106,533,137,536,131,539,134,542,82,546,0,549,106,552,116,556,125,559,97,562,144,565,117,569,73,572,88,575,135,579,145,582,157,585,161,589,155,592,100,595,0,598,0,602,89,605,0,608,0,612,113,615,99,618,0,621,77,625,79,628,0,32767 +-2,0,9600,115,9591,118,9631,121,9687,125,9711,128,9619,131,9584,134,9551,138,9514,141,9542,144,9559,148,9480,151,9545,154,9698,157,9614,161,9544,164,9575,167,9567,171,9619,174,9650,177,9532,180,9552,184,9632,187,9594,190,9562,194,9651,197,9668,200,9665,204,9575,207,9577,210,9611,213,9589,217,9681,220,9689,223,9691,227,9601,230,9604,233,9515,236,9528,240,9547,243,9528,246,9531,250,9516,253,9531,256,9610,259,9693,263,9615,266,9584,269,9523,273,9602,381,9602,384,9595,388,9596,391,9680,394,9730,398,9692,401,9545,404,9536,408,9602,411,9714,493,9611,496,9629,500,9654,503,9704,506,9691,510,9545,513,9611,516,9654,519,9592,523,9464,526,9650,529,9721,533,9698,536,9638,539,9575,542,9608,546,9744,549,9623,552,9581,556,9662,559,9709,562,9583,565,9517,569,9651,572,9689,575,9646,579,9623,582,9643,585,9673,589,9669,592,9686,595,9496,598,9504,602,9590,605,9532,608,9565,612,9548,615,9645,618,9727,621,9631,625,9599,628,9599,32767 + +-1,0,0,131,0,134,83,138,188,141,175,144,153,148,172,151,186,154,119,157,153,161,203,164,224,167,274,171,317,174,219,177,92,180,96,184,161,187,120,190,76,194,175,197,300,200,232,204,247,207,247,210,238,213,231,217,206,220,235,223,226,227,135,230,200,233,199,236,132,240,115,243,116,246,124,250,109,253,85,256,88,259,0,263,0,266,88,269,0,388,0,391,82,394,0,398,0,401,81,404,125,408,122,411,0,414,71,417,73,421,0,424,0,427,75,431,0,483,0,487,78,490,91,493,128,496,136,500,86,503,66,506,135,510,170,513,166,516,118,519,70,523,0,526,79,529,127,533,120,536,135,539,137,542,82,546,0,549,93,552,81,556,75,559,0,562,94,565,74,569,0,572,66,575,78,579,84,582,104,585,101,589,101,592,0,595,0,598,82,602,86,605,68,608,72,612,0,32767 +-2,0,9900,131,9748,134,9742,138,9810,141,9859,144,9834,148,9785,151,9816,154,9813,157,9827,161,9855,164,9858,167,9883,171,9911,174,9964,177,9808,180,9828,184,9923,187,9885,190,9877,194,9889,197,9921,200,9932,204,9866,207,9855,210,9895,213,9858,217,9952,220,9959,223,9969,227,9903,230,9888,233,9968,236,9923,240,9852,243,9839,246,9812,250,9834,253,9838,256,9906,259,10011,263,9941,266,9873,269,9837,388,9714,391,9840,394,9987,398,9966,401,9830,404,9823,408,9878,411,9810,414,9868,417,9901,421,9858,424,9835,427,9894,431,9865,483,9906,487,9878,490,9893,493,9948,496,9966,500,9857,503,9811,506,9812,510,9838,513,9935,516,10003,519,9963,523,9836,526,9937,529,9842,533,9985,536,9971,539,9917,542,9962,546,10072,549,9948,552,9906,556,9841,559,9920,562,9869,565,9846,569,9965,572,10002,575,9984,579,9935,582,9946,585,9992,589,9983,592,9973,595,9790,598,9844,602,9900,605,9883,608,9903,612,9903,32767 + +-1,0,0,131,0,134,81,138,141,141,146,144,181,148,181,151,170,154,93,157,104,161,161,164,163,167,145,171,196,174,211,177,197,180,192,184,227,187,156,190,114,194,152,197,266,200,241,204,233,207,134,210,141,213,149,217,109,220,114,223,159,227,108,230,138,233,127,236,84,240,89,243,89,246,154,250,196,253,131,256,109,259,85,263,0,266,66,269,0,381,0,384,69,388,103,391,119,394,95,398,0,408,0,411,77,414,112,417,104,421,0,493,0,496,66,500,134,503,105,506,98,510,96,513,94,516,97,519,98,523,137,526,121,529,171,533,176,536,96,539,0,542,82,546,0,549,122,552,121,556,116,559,0,562,106,565,103,569,0,572,68,575,77,579,133,582,139,585,94,589,85,592,95,595,88,598,108,602,127,605,97,608,0,612,0,615,67,618,79,621,0,32767 +-2,0,10200,131,10118,134,10153,138,10132,141,10131,144,10140,148,10116,151,10132,154,10100,157,10135,161,10156,164,10150,167,10158,171,10132,174,10108,177,10205,180,10225,184,10206,187,10258,190,10170,194,10076,197,10183,200,10213,204,10149,207,10109,210,10201,213,10113,217,10208,220,10252,223,10215,227,10203,230,10173,233,10216,236,10234,240,10137,243,10138,246,10122,250,10145,253,10136,256,10190,259,10225,263,10087,266,10164,269,10162,381,10231,384,10188,388,10181,391,10253,394,10297,398,10283,408,10169,411,10140,414,10152,417,10186,421,10196,493,10259,496,10136,500,10137,503,10130,506,10130,510,10116,513,10174,516,10130,519,10085,523,10148,526,10088,529,10088,533,10110,536,10205,539,10295,542,10210,546,10256,549,10242,552,10242,556,10181,559,10238,562,10198,565,10141,569,10268,572,10320,575,10326,579,10246,582,10218,585,10285,589,10284,592,10108,595,10082,598,10117,602,10215,605,10206,608,10228,612,10192,615,10169,618,10157,621,10157,32767 + +-1,0,0,171,0,174,68,177,0,500,0,503,88,506,120,510,83,513,0,526,0,529,93,533,97,536,66,539,0,552,0,556,78,559,0,565,0,569,79,572,83,575,75,579,100,582,0,585,0,589,104,592,127,595,0,605,0,608,87,612,86,615,0,631,0,635,65,638,0,32767 +-2,0,10500,171,10420,174,10407,177,10516,500,10407,503,10490,506,10454,510,10504,513,10570,526,10411,529,10446,533,10468,536,10488,539,10495,552,10407,556,10475,559,10603,565,10438,569,10594,572,10652,575,10659,579,10556,582,10463,585,10454,589,10527,592,10578,595,10600,605,10542,608,10516,612,10521,615,10529,631,10481,635,10544,638,10544,32767 + +-1,0,0,187,0,190,67,194,0,200,0,204,74,207,0,210,0,213,78,217,104,220,107,223,98,227,0,256,0,259,66,263,0,266,65,269,0,506,0,510,80,513,97,516,66,519,0,523,0,526,92,529,86,533,98,536,97,539,71,542,0,546,81,549,109,552,106,556,103,559,73,562,76,565,122,569,94,572,100,575,70,579,0,585,0,589,71,592,104,595,0,638,0,641,90,644,84,648,72,651,0,32767 +-2,0,10800,187,10781,190,10777,194,10747,200,10715,204,10794,207,10880,210,10873,213,10855,217,10784,220,10796,223,10838,227,10867,256,10842,259,10898,263,10894,266,10829,269,10838,506,10766,510,10812,513,10783,516,10754,519,10840,523,10838,526,10757,529,10757,533,10758,536,10782,539,10808,542,10847,546,10765,549,10728,552,10734,556,10768,559,10727,562,10685,565,10727,569,10665,572,10679,575,10650,579,10770,585,10732,589,10813,592,10754,595,10693,638,10667,641,10732,644,10786,648,10752,651,10752,32767 + +-1,0,0,32767 +-2,0,11100,32767 + +-1,0,0,148,0,151,70,154,0,157,0,161,71,164,73,167,0,187,0,190,65,194,0,32767 +-2,0,11400,148,11362,151,11336,154,11439,157,11439,161,11389,164,11460,167,11492,187,11438,190,11424,194,11424,32767 + +-1,0,0,121,0,125,74,128,85,131,0,194,0,197,66,200,88,204,79,207,76,210,66,213,0,575,0,579,65,582,0,32767 +-2,0,11700,121,11788,125,11808,128,11784,131,11850,194,11680,197,11634,200,11634,204,11629,207,11709,210,11782,213,11838,575,11661,579,11737,582,11737,32767 + +-1,0,0,115,0,118,80,121,94,125,73,128,103,131,95,134,0,144,0,148,86,151,143,154,168,157,96,161,0,164,91,167,0,171,0,174,93,177,107,180,67,184,0,187,0,190,68,194,96,197,98,200,93,204,88,207,139,210,129,213,103,217,96,220,85,223,0,227,0,230,86,233,0,575,0,579,82,582,0,32767 +-2,0,12000,115,12058,118,12014,121,12054,125,12111,128,12064,131,12002,134,11985,144,11955,148,11976,151,11955,154,11947,157,11953,161,12140,164,12060,167,11896,171,11936,174,12005,177,11981,180,12025,184,12061,187,11997,190,12057,194,11960,197,11920,200,12043,204,12038,207,11972,210,12054,213,12040,217,11925,220,12064,223,12079,227,12121,230,12089,233,12105,575,11885,579,12004,582,12004,32767 + +-1,0,0,148,0,151,65,154,85,157,0,194,0,197,66,200,0,204,65,207,86,210,0,213,0,217,65,220,0,227,0,230,66,233,0,32767 +-2,0,12300,148,12288,151,12246,154,12222,157,12172,194,12175,197,12195,200,12170,204,12162,207,12209,210,12221,213,12172,217,12164,220,12160,227,12186,230,12187,233,12187,32767 + +-1,0,0,151,0,154,74,157,0,32767 +-2,0,12600,151,12560,154,12546,157,12546,32767 + +-1,0,0,151,0,154,88,157,0,32767 +-2,0,12900,151,12896,154,12890,157,12890,32767 + +-1,0,0,32767 +-2,0,13200,32767 + +-1,0,0,184,0,187,77,190,0,197,0,200,81,204,106,207,85,210,165,213,139,217,91,220,0,32767 +-2,0,13500,184,13611,187,13546,190,13449,197,13458,200,13491,204,13485,207,13499,210,13531,213,13456,217,13431,220,13431,32767 + +-1,0,0,125,0,128,76,131,77,134,0,174,0,177,75,180,97,184,124,187,180,190,129,194,65,197,71,200,155,204,203,207,135,210,186,213,146,217,87,220,0,32767 +-2,0,13800,125,13783,128,13786,131,13850,134,13802,174,13837,177,13836,180,13835,184,13883,187,13839,190,13735,194,13708,197,13722,200,13774,204,13772,207,13777,210,13782,213,13730,217,13761,220,13761,32767 + +-1,0,0,125,0,128,67,131,0,141,0,144,75,148,0,171,0,174,65,177,81,180,82,184,87,187,116,190,107,194,91,197,0,200,120,204,173,207,160,210,199,213,121,217,88,220,67,223,0,227,68,230,0,32767 +-2,0,14100,125,14093,128,14091,131,14157,141,14105,144,14041,148,14012,171,14156,174,14151,177,14126,180,14134,184,14173,187,14073,190,14007,194,14015,197,14033,200,14044,204,14041,207,14043,210,14062,213,14016,217,14035,220,14169,223,14225,227,14176,230,14176,32767 + +-1,0,0,131,0,134,83,138,101,141,93,144,95,148,77,151,72,154,68,157,0,171,0,174,67,177,77,180,87,184,78,187,67,190,0,200,0,204,84,207,87,210,141,213,83,217,0,500,0,503,82,506,0,32767 +-2,0,14400,131,14478,134,14383,138,14327,141,14419,144,14380,148,14331,151,14406,154,14446,157,14492,171,14446,174,14453,177,14424,180,14406,184,14455,187,14361,190,14296,200,14325,204,14337,207,14321,210,14375,213,14471,217,14409,500,14302,503,14351,506,14351,32767 + +-1,0,0,141,0,144,77,148,93,151,75,154,94,157,66,161,71,164,82,167,0,171,0,174,79,177,97,180,117,184,136,187,82,190,0,204,0,207,78,210,116,213,0,32767 +-2,0,14700,141,14707,144,14677,148,14653,151,14720,154,14721,157,14806,161,14755,164,14761,167,14792,171,14783,174,14762,177,14737,180,14686,184,14734,187,14670,190,14769,204,14580,207,14602,210,14629,213,14629,32767 + +-1,0,0,177,0,180,89,184,120,187,96,190,72,194,0,32767 +-2,0,15000,177,15056,180,14971,184,15001,187,14938,190,14887,194,14887,32767 + +-1,0,0,32767 +-2,0,15300,32767 + +-1,0,0,32767 +-2,0,15600,32767 + +-1,0,0,32767 +-2,0,15900,32767 + +-1,0,0,32767 +-2,0,16200,32767 + +-1,0,0,32767 +-2,0,16500,32767 + +-1,0,0,32767 +-2,0,16800,32767 + +-1,0,0,32767 +-2,0,17100,32767 + +-1,0,0,32767 +-2,0,17400,32767 + +-1,0,0,32767 +-2,0,17700,32767 + +-1,0,0,32767 +-2,0,18000,32767 + +-1,0,0,32767 +-2,0,18300,32767 + +-1,0,0,32767 +-2,0,18600,32767 + +-1,0,0,32767 +-2,0,18900,32767 + +-1,0,0,32767 +-2,0,19200,32767 + +-1,0,0,32767 +-2,0,19500,32767 + +-1,0,0,32767 +-2,0,19800,32767 + +-1,0,0,32767 +-2,0,20100,32767 + +-1,0,0,32767 +-2,0,20400,32767 + +-1,0,0,32767 +-2,0,20700,32767 + +-1,0,0,32767 +-2,0,21000,32767 + +-1,0,0,32767 +-2,0,21300,32767 + +-1,0,0,32767 +-2,0,21600,32767 + +-1,0,0,32767 +-2,0,21900,32767 + +-1,0,0,32767 +-2,0,22200,32767 + +-1,0,0,32767 +-2,0,22500,32767 + +-1,0,0,32767 +-2,0,22800,32767 + +-1,0,0,32767 +-2,0,23100,32767 + +-1,0,0,32767 +-2,0,23400,32767 + +-1,0,0,32767 +-2,0,23700,32767 + +-1,0,0,32767 +-2,0,24000,32767 + +-1,0,0,32767 +-2,0,24300,32767 + +-1,0,0,32767 +-2,0,24600,32767 + +-1,0,0,32767 +-2,0,24900,32767 + +-1,0,0,32767 +-2,0,25200,32767 + +-1,0,0,32767 +-2,0,25500,32767 + +-1,0,0,32767 +-2,0,25800,32767 + +-1,0,0,32767 +-2,0,26100,32767 + +-1,0,0,32767 +-2,0,26400,32767 + +-1,0,0,32767 +-2,0,26700,32767 + +-1,0,0,32767 +-2,0,27000,32767 + +-1,0,0,32767 +-2,0,27300,32767 + +-1,0,0,32767 +-2,0,27600,32767 + +-1,0,0,32767 +-2,0,27900,32767 + +-1,0,0,32767 +-2,0,28200,32767 + +-1,0,0,32767 +-2,0,28500,32767 + +-1,0,0,32767 +-2,0,28800,32767 + +-1,0,0,177,0,180,89,184,120,187,96,190,72,194,0,32767 +-2,0,29100,177,29044,180,29129,184,29099,187,29162,190,29213,194,29213,32767 + +-1,0,0,141,0,144,77,148,93,151,75,154,94,157,66,161,71,164,82,167,0,171,0,174,79,177,97,180,117,184,136,187,82,190,0,204,0,207,78,210,116,213,0,32767 +-2,0,29400,141,29393,144,29423,148,29447,151,29380,154,29379,157,29294,161,29345,164,29339,167,29308,171,29317,174,29338,177,29363,180,29414,184,29366,187,29430,190,29331,204,29520,207,29498,210,29471,213,29471,32767 + +-1,0,0,131,0,134,83,138,101,141,93,144,95,148,77,151,72,154,68,157,0,171,0,174,67,177,77,180,87,184,78,187,67,190,0,200,0,204,84,207,87,210,141,213,83,217,0,500,0,503,82,506,0,32767 +-2,0,29700,131,29622,134,29717,138,29773,141,29681,144,29720,148,29769,151,29694,154,29654,157,29608,171,29654,174,29647,177,29676,180,29694,184,29645,187,29739,190,29804,200,29775,204,29763,207,29779,210,29725,213,29629,217,29691,500,29798,503,29749,506,29749,32767 + +-1,0,0,125,0,128,67,131,0,141,0,144,75,148,0,171,0,174,65,177,81,180,82,184,87,187,116,190,107,194,91,197,0,200,120,204,173,207,160,210,199,213,121,217,88,220,67,223,0,227,68,230,0,32767 +-2,0,30000,125,30007,128,30009,131,29943,141,29995,144,30059,148,30088,171,29944,174,29949,177,29974,180,29966,184,29927,187,30027,190,30093,194,30085,197,30067,200,30056,204,30059,207,30057,210,30038,213,30084,217,30065,220,29931,223,29875,227,29924,230,29924,32767 + diff --git a/BUG8/BUG8.csd b/BUG8/BUG8.csd new file mode 100644 index 0000000..5f27a86 --- /dev/null +++ b/BUG8/BUG8.csd @@ -0,0 +1,313 @@ +<CsoundSynthesizer> +<CsOptions> +-odac +</CsOptions> +<CsInstruments> +sr = 44100 +kr = 441 +nchnls = 2 +0dbfs = 1 +seed 0 + +#include "wavetables.udo" + +giampfn init -1 +gifreqfn init -1 +gifftsize = 1024 + + +opcode SCReverb, aa, aakkjpo + + setksmps 1 + + ainL, ainR, kFeedBack, kLPFreq, iSRate, iPitchMod, iSkip xin + iSRate = (iSRate <= 0 ? 1 : (sr / iSRate)) + if (iSkip != 0) igoto SkipInit + + afilt1 init 0 + afilt2 init 0 + afilt3 init 0 + afilt4 init 0 + afilt5 init 0 + afilt6 init 0 + afilt7 init 0 + afilt8 init 0 + + ; Delay times chosen to be prime numbers. + ; Works with sr=44100 ONLY. If you wish to + ; use a different delay time, find some new + ; prime numbers that will give roughly the + ; same delay times for the new sampling rate. + ; Or adjust to taste. + + idel1 = 2473.000 / (iSRate * 44100) + idel2 = 2767.000 / (iSRate * 44100) + idel3 = 3217.000 / (iSRate * 44100) + idel4 = 3557.000 / (iSRate * 44100) + idel5 = 3907.000 / (iSRate * 44100) + idel6 = 4127.000 / (iSRate * 44100) + idel7 = 2143.000 / (iSRate * 44100) + idel8 = 1933.000 / (iSRate * 44100) + + ; kFeedBack: + ; gain of reverb. Adjust empirically + ; for desired reverb time. .6 gives + ; a good small \\\"live\\\" room sound, .8 + ; a small hall, .9 a large hall, + ; .99 an enormous stone cavern. + + ; iPitchMod: + ; amount of random pitch modulation + ; for the delay lines. 1 is the \\\"normal\\\" + ; amount, but this may be too high for + ; held pitches such as piano tones. + ; Adjust to taste. + + ; kLPFreq: + ; Cutoff frequency of lowpass filters + ; in feedback loops of delay lines, + ; in Hz. Lower cutoff frequencies results + ; in a sound with more high-frequency + ; damping. + + ; k1-k8 are used to add random pitch modulation to the + ; delay lines. Helps eliminate metallic overtones + ; in the reverb sound. + + iPitchMod = iPitchMod / iSRate + + k1 randi 0.0010 * iPitchMod, 3.100 * iSRate, 0.06 + k2 randi 0.0011 * iPitchMod, 3.500 * iSRate, 0.90 + k3 randi 0.0017 * iPitchMod, 1.110 * iSRate, 0.70 + k4 randi 0.0006 * iPitchMod, 3.973 * iSRate, 0.30 + k5 randi 0.0010 * iPitchMod, 2.341 * iSRate, 0.63 + k6 randi 0.0011 * iPitchMod, 1.897 * iSRate, 0.70 + k7 randi 0.0017 * iPitchMod, 0.891 * iSRate, 0.90 + k8 randi 0.0006 * iPitchMod, 3.221 * iSRate, 0.44 + + ; apj is used to calculate \\\"resultant junction pressure\\\" for + ; the scattering junction of 8 lossless waveguides + ; of equal characteristic impedance. If you wish to + ; add more delay lines, simply add them to the following + ; equation, and replace the .25 by 2/N, where N is the + ; number of delay lines. + + apj = .25 * (afilt1+afilt2+afilt3+afilt4+afilt5+afilt6+afilt7+afilt8) + + adum1 delayr 1 + adel1 deltap3 idel1 + k1 + delayw ainL + apj - afilt1 + + adum2 delayr 1 + adel2 deltap3 idel2 + k2 + delayw ainR + apj - afilt2 + + adum3 delayr 1 + adel3 deltap3 idel3 + k3 + delayw ainL + apj - afilt3 + + adum4 delayr 1 + adel4 deltap3 idel4 + k4 + delayw ainR + apj - afilt4 + + adum5 delayr 1 + adel5 deltap3 idel5 + k5 + delayw ainL + apj - afilt5 + + adum6 delayr 1 + adel6 deltap3 idel6 + k6 + delayw ainR + apj - afilt6 + + adum7 delayr 1 + adel7 deltap3 idel7 + k7 + delayw ainL + apj - afilt7 + + adum8 delayr 1 + adel8 deltap3 idel8 + k8 + delayw ainR + apj - afilt8 + + ; 1st order lowpass filters in feedback + ; loops of delay lines. + + kLPFreq = kLPFreq * iSRate + + afilt1 tone adel1 * kFeedBack, kLPFreq + afilt2 tone adel2 * kFeedBack, kLPFreq + afilt3 tone adel3 * kFeedBack, kLPFreq + afilt4 tone adel4 * kFeedBack, kLPFreq + afilt5 tone adel5 * kFeedBack, kLPFreq + afilt6 tone adel6 * kFeedBack, kLPFreq + afilt7 tone adel7 * kFeedBack, kLPFreq + afilt8 tone adel8 * kFeedBack, kLPFreq + + ; The outputs of the delay lines are summed + ; and sent to the stereo outputs. This could + ; easily be modified for a 4 or 8-channel + ; sound system. + + aoutL = 0.35 * (afilt1 + afilt3 + afilt5 + afilt7) + aoutR = 0.35 * (afilt2 + afilt4 + afilt6 + afilt8) + + SkipInit: + xout aoutL, aoutR + endop + + +instr liner + index = p4 + isinit = p5 + iampscale = (((gifftsize / 2) - index) / (gifftsize / 2)) * 0.1 + isamp = (isinit == 1) ? random(0, iampscale) : tab_i(index, giampfn) + isfreq = (isinit == 1) ? 440 : tab_i(index, gifreqfn) + tabw oscil:k(1, random(0.01, 1), -1, random(0, 1)) * linseg(isamp, p3, random(0, iampscale)), index, giampfn + tabw linseg(isfreq, p3, random(50, 1900)), index, gifreqfn + +endin + +instr rndoise + ipanrange1 = p4 + ipanrange2 = p5 + ifreqmax = random(100, 1000) + if (random(0, 1) > 0.3) then + a1 oscil line(random(0.5, 1), p3, random(0.5, 1)), random(100, ifreqmax) + else + a1 noise line(random(0.5, 1), p3, random(0.5, 1)), random(-1, 1) + endif + + if (random(0, 1) > 0.6) then + a1 *= oscil(line(random(0.5, 1), p3, random(0.5, 1)), random(100, ifreqmax)) + endif + + if (random(0, 1) > 0.9) then + a1 *= noise(line(random(0.5, 1), p3, random(0.5, 1)), random(-1, 1)) + endif + + if (random(0, 1) > 0.6) then + a1 *= oscil(random:k(0.5, 1), random(100, ifreqmax)) + endif + + if (random(0, 1) > 0.9) then + a1 *= noise(random:k(0.5, 1), random(-1, 1)) + endif + + if (random(0, 1) > 0.6) then + a1 taninv a1 * line(random(1, 10), p3, random(1, 10)) + endif + + if (random(0, 1) > 0.6) then + a1 butterhp a1, line(random(20, 2000), p3, random(20, 2000)) + endif + + if (random(0, 1) > 0.6) then + a1 butterlp a1, line(random(500, 16000), p3, random(500, 16000)) + endif + + if (random(0, 1) > 0.5) then + a1 *= oscil(1, random(1, 50)) + else + a1 *= line(random(0, 1), p3, random(0, 1)) + endif + + if (random(0, 1) > 0.6) then + a1 waveset a1, random(1, 20) + endif + + a1 *= 0.5 + aL, aR pan2 a1, ipanrange1, ipanrange2 + outs aL, aR +endin + + +instr trigrndoise + itime = 0 + imax = random(5, 20) + while (itime < p3) do + ilen = (p3 / imax) * random(0.6, 1.2) + event_i "i", "rndoise", itime, ilen, random(0, 1), random(0, 1) + itime += ilen * random(0.8, 1.1) + od +endin + + +instr clicker + aL noise 0.4, 0.4 + aR noise 0.4, 0.4 + kamp linseg 1, p3, 0 + outs aL*kamp, aR*kamp +endin + + +instr clickmaker + idur random 0.001, 0.01 + kmetro metro random(1, 6) + if (kmetro == 1) then + event "i", "clicker", 0, idur + endif +endin + +instr 1 + ktime timeinsts + isize = gifftsize / 2 + giampfn ftgen 0, 0, isize, 7, 0 + gifreqfn ftgen 0, 0, isize, 7, 0 + + itime = 60 + kmetro metro 1/itime + kinit init 1 + if (kmetro == 1) then + kndex = 0 + while (kndex < isize) do + event "i", "liner", 0, itime, kndex, kinit + kndex += 1 + od + if (kinit == 1) then + kinit = 0 + endif + endif + + event_i "i", "clickmaker", 0, 1 + + kmetro2 metro 3 + if (ktime > 5 && kmetro2 == 1 && random:k(0, 1) > 0.95) then + event "i", "trigrndoise", 0, random:k(0.6, 2) + endif + + ; pvsinit not working here.. + f1 pvsanal oscils(1, 440, 0), gifftsize, gifftsize/4, gifftsize, 1 + pvsftr f1, giampfn, gifreqfn + f2L pvscale f1, 0.03 + oscil(0.01, 0.01) + f2R pvscale f1, 0.03 + oscil(0.01, 0.02, -1, 0.26) + + a2L pvsynth f2L + a2R pvsynth f2R + a2L pareq a2L, 200, 0.3, 0.6 + a2R pareq a2R, 200, 0.3, 0.6 + + k2mul = 3 * (abs(oscil(0.7, 0.1)) + 0.2) + a2L *= k2mul + a2R *= k2mul + + ay pvsynth f1 + ay *= abs(oscil(0.7, 0.001, -1, 0)) + ;ay exciter ay, 3000, 20000, 10, 10 + + a1L = ay + a1R = ay + ;a1L, a1R SCReverb ay, ay, 0.9, 10000 + aL = a1L + a2L + aR = a1R + a2R + + outs aL, aR +endin + + + + +</CsInstruments> +<CsScore> + + +i1 0 100 + +</CsScore> +</CsoundSynthesizer>
\ No newline at end of file diff --git a/BID-rework/wavetables.udo b/BUG8/wavetables.udo index 1b2c209..e81f075 100644 --- a/BID-rework/wavetables.udo +++ b/BUG8/wavetables.udo @@ -1,7 +1,7 @@ #ifndef UDO_WAVETABLES #define UDO_WAVETABLES ## /* - Debugger - Unfixed Bugs : BUG #5 + Debugger - Unfixed Bugs : BUG #3 General waveforms */ diff --git a/BID-rework/BUG5.csd b/BUG9/BUG9.csd index 4f05983..f320921 100644 --- a/BID-rework/BUG5.csd +++ b/BUG9/BUG9.csd @@ -1,21 +1,22 @@ <CsoundSynthesizer> <CsOptions> --odac +-odac +-m0 </CsOptions> <CsInstruments> /* - Debugger - Unfixed Bugs : BUG #5 + Debugger - Unfixed Bugs : BUG #8 http://git.1bpm.net/csd-unfixedbugs1/about/ - By Richard Knight 2022 + By Richard Knight 2021 http://1bpm.net q@1bpm.net */ sr = 44100 -ksmps = 10 +ksmps = 100 nchnls = 2 0dbfs = 1 seed 0 @@ -33,37 +34,12 @@ gksection init -1 #include "txt_tools.udo" ; text tools -instr global_delay1 - aL, aR bus_read "delay1" - aL *= abs(oscil(1, 1)) - aR *= abs(oscil(1, 1)) - aLdlr delayr 0.8 - kdeltime = abs(oscil(0.02, 0.04)) + (gibid_beattime* 0.5) - aLdel deltapi kdeltime + 0.002 - delayw aL + (aLdel * 0.7) - aRdlr delayr 0.8 - aRdel deltapi kdeltime + 0.001 - delayw aR + (aRdel * 0.7) - ;aLdel *= 1-gkpump - ;aRdel *= 1-gkpump - bus_mix("master", aLdel, aRdel) -endin - -/* - Global send effects: reverb -*/ -instr global_reverb - aL, aR bus_read "reverb" - aL, aR freeverb aL, aR, 0.6, 0.3 - bus_mix("master", aL, aR) -endin - /* Master audio output */ instr global_master igain = 1 - aL, aR bus_read "master" + aL, aR bus_read "master" aL limit aL*0.5, -1, 1 aR limit aR*0.5, -1, 1 outs aL*gkmastergain*igain, aR*gkmastergain*igain @@ -71,6 +47,26 @@ endin /* + Print notification of performance time since last notification + or if isection is -1, print completion notification +*/ +gitimetrack times +instr notify_change + isection = p4 + itime times + if (isection == -1) then + tt_notify(sprintf"Complete, runtime: %s", tt_parsetime(itime))) + exitnow + else + isectiontime = itime - gitimetrack + tt_notify(sprintf("%s : section %d complete in %s", tt_parsetime(itime), isection, tt_parsetime(isectiontime))) + gitimetrack = itime + endif + turnoff +endin + + +/* Parse BID file and run the sequencer */ instr parseandrun @@ -84,17 +80,14 @@ instr parseandrun turnoff endin -instr endfade - exitnow -endin - +/* + Sequence BID elements +*/ instr sequencer isection = 1 event_i "i", "bid_setcurrentchord", 0, 1, isection, 0 - event_i "i", "global_delay1", 0, p3 - event_i "i", "global_reverb", 0, p3 event_i "i", "global_master", 0, p3 kmetro metro (gibid_tempo / 60) * 4 kpos init 0 @@ -104,22 +97,18 @@ instr sequencer gksection = ksection if (kmetro == 1) then if (ksection > gibid_maxsection) then - event "i", "endfade", 0, gibid_beattime*8 + event "i", "notify_change", p3, 1, -1 turnoff endif - + ; sequence BID elements bid_seq "kick", kpos, ksection + bid_seq "clap", kpos, ksection bid_seq "hat1", kpos, ksection bid_seq "hat2", kpos, ksection - bid_seq "snare", kpos, ksection - bid_seq "mel1", kpos, ksection - bid_seq "stringchord", kpos, ksection - bid_seq "chord1", kpos, ksection bid_seq "bass", kpos, ksection - bid_seq "clap", kpos, ksection - bid_seq "303", kpos, ksection - + bid_seq "mel1", kpos, ksection + bid_seq "mel2", kpos, ksection kpos = (kpos < 31) ? kpos + 1 : 0 ksection16ths = bid_getsectionlength(ksection) * 4 @@ -127,6 +116,8 @@ instr sequencer if (kposabs+1 < ksection16ths) then kposabs += 1 else + event "i", "notify_change", 0, 1, ksection + ;event "i", "play_crash", 0, gibid_beattime ksection += 1 kposchord = 0 kpos = 0 @@ -144,11 +135,11 @@ instr sequencer endif + endin </CsInstruments> <CsScore> i"parseandrun" 0 1 - </CsScore> -</CsoundSynthesizer>
\ No newline at end of file +</CsoundSynthesizer> diff --git a/BID-rework/bid.udo b/BUG9/bid.udo index 4c0e797..17e9be2 100644 --- a/BID-rework/bid.udo +++ b/BUG9/bid.udo @@ -21,10 +21,9 @@ gibid_chordfn init -1 ; current chord ftable gkbid_chordlength init -1 ; current chord length ; BID internals -gibid_sectionmax init 64 -gibid_sectionlengths ftgen 0, 0, -gibid_sectionmax, -7, 0 ; section lengths -gibid_sections ftgen 0, 0, -pow(gibid_sectionmax, 2), -7, 0 ; section pointers to data: dim0=section, dim1=instrument -gibid_sectiondata ftgen 0, 0, -(99*6), -7, 0 ; section data, ftables contained: dim0=ID, dim1=parameter ftable number +gibid_sectionlengths ftgen 0, 0, -64, -7, 0 ; section lengths +gibid_sections[][] init 64, 64 ; section pointers to data +gibid_sectiondata[][] init 99, 6 ; section data, ftables contained gibid_chordgroups[][] init 16, 12 ; chord groups, pointers to sectionchords by section gibid_sectionchords[] init 16 ; ftables of section chords @@ -119,7 +118,6 @@ opcode _bid_parserowitems, i, Siii endop - /* Read BID data for specified element and trigger accordingly. @@ -134,10 +132,9 @@ opcode bid_seq, 0, Skk Splayer, kpos, ksection xin Sinstrument = sprintf("play_%s", Splayer) instrindex = _bid_gettextindex(Splayer) - kdata = tab:k(ksection * gibid_sectionmax + instrindex, gibid_sections) + kdata = gibid_sections[ksection][instrindex] if (kdata != -1) then ; null section - tab:k(kpos, kon = tablekt:k(kpos, gibid_sectiondata[kdata][0]) if (kon == 1) then @@ -169,8 +166,7 @@ endop */ opcode bid_getparameter, i, iii ipos, idataindex, iparameter xin - ifn = tab_i(idataindex * gibid_sectionmax + iparameter, gibid_sectiondata) - xout tab_i(ipos, ifn) + xout tab_i(ipos, gibid_sectiondata[idataindex][iparameter]) endop @@ -204,8 +200,7 @@ opcode _bid_parserow, 0, Siii Sline, ix1, ix2, imode xin isize = _bid_parserowitems(Sline, ix1, ix2, 0) if (imode == 1) then - ifn ftgen 0, 0, -isize, -7, 0 - tabw_i(ifn, ix1 * gibid_sectionmax + ix2, gibid_sectiondata) + gibid_sectiondata[ix1][ix2] ftgen 0, 0, -isize, -7, 0 elseif (imode == 2) then gibid_chordgroups[ix1][ix2] ftgen 0, 0, -isize, -7, 0 endif @@ -295,13 +290,12 @@ opcode _bid_parseline, i[], Si[] if (irepeatsection == -1) then inewsection = -1 else - inewsection = tab_i(irepeatsection * gibid_sectionmax + instrindex, gibid_sections) + inewsection = gibid_sections[irepeatsection][instrindex] endif - tabw_i(inewsection, isection * gibid_sectionmax + instrindex, gibid_sections) - ;gibid_sections[isection][instrindex] = inewsection + gibid_sections[isection][instrindex] = inewsection else isectiondataindex += 1 - tabw_i(isectiondataindex, isection * gibid_sectionmax + instrindex, gibid_sections) + gibid_sections[isection][instrindex] = isectiondataindex endif ; chord row diff --git a/BUG9/bid_source.udo b/BUG9/bid_source.udo new file mode 100644 index 0000000..205939b --- /dev/null +++ b/BUG9/bid_source.udo @@ -0,0 +1,84 @@ +/* + Debugger - Unfixed Bugs : BUG #8 + + Bug Infested Directives source + Provided as a string due to readfi not being available on all platforms. + Used with bid_loadtext (whereas a separate file would be used with bid_loadfile and requires readfi support) +*/ + +SBID = {{ +; Bug Infested Directives : Debugger - Unfixed Bugs : BUG #4 +v 1.1 + +; tempo, swing percent +b 121, 42 + +; chord groups +c 1 + 4, 60, 65, 67, 75, 77 + 4, 63, 65, 66, 71, 72 + + +; sections: section number, length, chordgroup +s 1, 64, 1 + + +; patterns: trig , dur, amp, chance + + +i clap, 1 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0 + 0, 0, 0, 0,.2, 0, 0, 0, 0, 0, 0, 0,.2, 0, 0,.2, 0, 0, 0, 0,.2, 1, 0, 0, 0, 0, 0, 0,.2, 0, 0, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.9, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + +i bass, 1 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0 + .2,.2,.2,.2,.2,.4,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.4,.2,.2,.2,.2,.4,.2,.2,.2,.2,.2,.2,.2,.2,.2 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + .8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8 + + +i mel1, 1 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0 + .2,.2,.2,.2,.2,.4,.2,.4,.2,.2,.4,.2,.2,.2,.9,.2,.5,.4,.2,.2,.2,.2,.4,.2,.2,.2,.2,.2,.2,.2,.2,.2 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + .8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8 + + + +i hat1, 1 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1,.6, 1, 1, 1, 1, 1, 1, 1,.6, 1,.6, 1, 1, 1, 1, 1,.6, 1, 1, 1, 1, 1, 1, 1,.2 + 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1,.5, 1, 1, 1, 1, 1, 1 + + +i hat2, 1 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.2,.05, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + + +i mel2, 1 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 + .2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.1,.1,.1,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 + + +i kick, 1 +; 1 - - - 2 - - - 3 - - - 4 - - - 5 - - - 6 - - - 7 - - - 8 - - - + 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0 + .4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.3,.3 + 1, 0,.8, 0, 1, 0,.5, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0,.8, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0,.6,.6 + 1, 1,.1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.6,.2 + +}} diff --git a/BID-rework/bussing.udo b/BUG9/bussing.udo index 78755ce..62e4e1c 100644 --- a/BID-rework/bussing.udo +++ b/BUG9/bussing.udo @@ -1,5 +1,10 @@ #ifndef UDO_BUSSING #define UDO_BUSSING ## +/* + Debugger - Unfixed Bugs : BUG #4 + + Global audio bussing +*/ /* diff --git a/BUG9/instruments.udo b/BUG9/instruments.udo new file mode 100644 index 0000000..198d196 --- /dev/null +++ b/BUG9/instruments.udo @@ -0,0 +1,179 @@ +#ifndef UDO_INSTRUMENTS +#define UDO_INSTRUMENTS ## +/* + Debugger - Unfixed Bugs : BUG #8 + + Sound generators + Names should correspond to those used in BID file, prepended with play_ +*/ + + +#include "wavetables.udo" +#include "bussing.udo" +#include "bid.udo" + + +instr play_bass + iamp = bid_getparameter(p4, p5, 2) + ifreq = cpsmidinn(table(1, gibid_chordfn, 0, 0, 1) - 48) + k1 linseg 2.1, p3*0.2, 2, p3*0.8, 2 + k2 line 10, p3, 0 + kamp linseg 1, p3*0.1, 0.6, p3*0.9, 0 + aL foscil 1, ifreq, 4, k1, k2, gifnSine + aR foscil 1, ifreq, 3.9, k1, k2, gifnSine + aL pareq aL*1.3, 200, 0.3, 0.7 + aR pareq aR*1.3, 200, 0.3, 0.7 + bus_mix("master", aL*kamp*iamp, aR*kamp*iamp) +endin + +instr play_mel1 + iamp = bid_getparameter(p4, p5, 2) + ifreq = cpsmidinn(table(random(1, 4), gibid_chordfn, 0, 0, 1) + 12) + kamp init 1 + aL wgbowedbar 1, ifreq, 0.5, 0.2, 0.995 + aR wgbowedbar 1, ifreq, 0.3, 0.5, 0.995 + bus_mix("master", aL*kamp*iamp, aR*kamp*iamp) +endin + +instr play_mel2 + iamp = bid_getparameter(p4, p5, 2) + ifreq = cpsmidinn(table(random(1, 4), gibid_chordfn, 0, 0, 1) - 12) + k1 linseg 1.1, p3*0.2, 2, p3*0.8, 2 + k2 line 1, p3, 6 + kamp linseg 1, p3*0.1, 0.6, p3*0.9, 0 + aL foscil 1, ifreq, 4, k1, k2, gifnSine + aR foscil 1, ifreq, 3.9, k1, k2, gifnSine + aL pareq aL, 200, 0.3, 0.7 + aR pareq aR, 200, 0.3, 0.7 + bus_mix("master", aL*kamp*iamp, aR*kamp*iamp) +endin + +/* + clap +*/ +gifnClap ftgen 0, 0, 1024, 7, 1, 128, 0, 1, 0.9, 128, 0, 1, 0.8, 128, 0, 1, 0.7, 128, 0, 1, 0.5, 256, 0.1, 256, 0 +instr play_clap + iamp = bid_getparameter(p4, p5, 2) + p3 = 0.25 + kbetaL line 0.9, p3, 0.01 + kbetaR line 0.8, p3, 0.01 + aL noise 1, kbetaL + aR noise 1, kbetaR + kfreqL line 700+random(-100, 100), p3, 2500+random(-100, 100) + kfreqR line 700+random(-100, 100), p3, 2500+random(-100, 100) + + apt oscil 1, line(50, p3, 2000) + apt2 oscil 1, line(500, p3, 20) + + aL *= apt * apt2 + aR *= apt * apt2 + aL butterbp aL, kfreqL, 1000 + aR butterbp aR, kfreqR, 1000 + + kndx phasor 1/p3 + kamp tab kndx, gifnClap, 1 + kamp *= linseg(1, p3*0.5, 0.2, p3*0.5, 0) * iamp * 8 + aL *= kamp + aR *= kamp + bus_mix("master", aL, aR) +/* + p3 = 0.03 + kbt linseg 0.5, p3, -0.5 + aL noise 1, kbt + aR noise 1, kbt+0.1 + kbpf linseg 1500, p3, 100 + kbnp linseg 800, p3, 100 + aL butterbp aL, kbpf, kbnp + aR butterbp aR, kbpf, kbnp + aL taninv aL*7 + aR taninv aR*7 + + kamp linseg 1, p3*0.1, 0.3, p3*0.1, 0.9, p3*0.1, 0.3, p3*0.1, 0.8, p3*0.1, 0.2, p3*0.1, 0.7, p3*0.4, 0 + kamp2 = abs(oscil(0.5, 4)) + 0.5 + aL *= kamp * iamp + aR *= kamp * iamp + bus_mix("delay2", aL, aR) + bus_mix("master", aL, aR) + */ +endin + + +/* + Closed lower frequency hi-hat +*/ +instr play_hat1 + iamp = bid_getparameter(p4, p5, 2) + idel = random(0.001, 0.02) + xtratim idel + p3 = random(0.01, 0.04) + ifreq = 200 + aenv expsega .1, .0005, 1, p3 - .0005, .01 + asqr1 oscil 1, ifreq, gifnSaw, -1 + asqr2 oscil 1, ifreq*1.4471, gifnSquare, -1 + asqr3 oscil 1, ifreq*1.6170, gifnSaw, -1 + asqr4 oscil 1, ifreq*1.9265, gifnSaw, -1 + asqr5 oscil 1, ifreq*2.5028, gifnSaw, -1 + asqr6 oscil 1, ifreq*2.6637, gifnSaw, -1 + a808L sum asqr1, asqr2, asqr3, asqr4, asqr5, asqr6 + a808L butterhp a808L, 4270 + ;a808L butterhp a808L, 4270 + aoutL = a808L * aenv * iamp + aoutL delay aoutL, idel + + asqr1 oscil 1, ifreq, gifnSaw, -1 + asqr2 oscil 1, ifreq*1.3471, gifnSaw, -1 + asqr3 oscil 1, ifreq*1.6470, gifnSaw, -1 + asqr4 oscil 1, ifreq*1.8765, gifnSaw, -1 + asqr5 oscil 1, ifreq*2.4028, gifnSaw, -1 + asqr6 oscil 1, ifreq*2.5637, gifnSaw, -1 + a808R sum asqr1, asqr2, asqr3, asqr4, asqr5, asqr6 + a808R butterhp a808R, 4270 + ;a808L butterhp a808L, 4270 + aoutR = a808R * aenv * iamp + aoutR delay aoutR, idel + bus_mix("master", aoutL, aoutR) +endin + + +instr play_hat2 + iamp = bid_getparameter(p4, p5, 2) + idel1 = random(0.005, 0.02) + idel2 = random(0.005, 0.02) + xtratim(max:i(idel1, idel2)) + kfreq = abs(oscil(50, 10)) + 800 + aenv expsega .1, .0005, 1, p3 - .0005, .01 + asqr1 oscil 1, kfreq, gifnSquare, -1 + asqr2 oscil 1, kfreq*1.4471, gifnSquare, -1 + asqr3 oscil 1, kfreq*1.6170, gifnSquare, -1 + asqr4 oscil 1, kfreq*1.9265, gifnSquare, -1 + asqr5 oscil 1, kfreq*2.5028, gifnSquare, -1 + asqr6 oscil 1, kfreq*2.6637, gifnSquare, -1 + a808 sum asqr1, asqr2, asqr3, asqr4, asqr5, asqr6 + a808 butterhp a808, 3270 + a808 butterhp a808, 3270 + aout = a808 * aenv * iamp * 0.64 + aL delay aout, idel1 + aR delay aout, idel2 + bus_mix("master", aL, aR) +endin + + + + +/* + Lightly distorted 808 style kick +*/ +instr play_kick + iamp = bid_getparameter(p4, p5, 2) + aout1 wgbowedbar 1, 60, 0.9, 0.1, 0.1 + aout1 distort aout1, 0.25, gifnSquare + aout1 pareq aout1, 130, 0.3, 0.6 + aout1 pareq aout1, 9000, 5, 0.6 + aout1 *= 0.8 + bus_mix("master", aout1, aout1) +endin + + + + +#end diff --git a/BID-rework/txt_tools.udo b/BUG9/txt_tools.udo index a6c4511..d34459e 100644 --- a/BID-rework/txt_tools.udo +++ b/BUG9/txt_tools.udo @@ -1,7 +1,7 @@ #ifndef UDO_TXTTOOLS #define UDO_TXTTOOLS ## /* - Debugger - Unfixed Bugs : BUG #5 + Debugger - Unfixed Bugs : BUG #4 Text tools */ diff --git a/BUG9/wavetables.udo b/BUG9/wavetables.udo new file mode 100644 index 0000000..82b0552 --- /dev/null +++ b/BUG9/wavetables.udo @@ -0,0 +1,16 @@ +#ifndef UDO_WAVETABLES +#define UDO_WAVETABLES ## +/* + Debugger - Unfixed Bugs : BUG #4 + + General waveforms +*/ + +ipoints = 16384 +gifnCosine ftgen 0, 0, ipoints, 9, 1, 1, 90 +gifnSine ftgen 0, 0, ipoints, 10, 1 +gifnSquare ftgen 0, 0, ipoints, 10, 1, 0, 0.3, 0, 0.2, 0, 0.14, 0, .111 +gifnSaw ftgen 0, 0, ipoints, 10, 0, .2, 0, .4, 0, .6, 0, .8, 0, 1, 0, .8, 0, .6, 0, .4, 0, .2 + +#end + |