diff options
Diffstat (limited to 'BUG8')
| -rw-r--r-- | BUG8/BUG8.csd | 313 | ||||
| -rw-r--r-- | BUG8/wavetables.udo | 16 |
2 files changed, 329 insertions, 0 deletions
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/BUG8/wavetables.udo b/BUG8/wavetables.udo new file mode 100644 index 0000000..e81f075 --- /dev/null +++ b/BUG8/wavetables.udo @@ -0,0 +1,16 @@ +#ifndef UDO_WAVETABLES +#define UDO_WAVETABLES ## +/* + Debugger - Unfixed Bugs : BUG #3 + + 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 + |