OOOO/O
OOOO/O
0
0
Fork 0
mirror of http://CODE.RHODECODE.COM/u/O/O/O synced 2024-11-26 21:49:24 -05:00
Code

⠀⠀⠀⠀ⵙᴥⵙⓄⵙ✤ⵙᗩⵙᴥⵙᗱᗴⵙИNⵙᗱᗴⵙᕤᕦⵙᗱᗴⵙᔓᔕⵙꖴⵙⓄⵙИNⵙ◯ⵙ✤ⵙᗱᗴⵙᗯⵙᙁⵙᗱᗴⵙᗯⵙ◯ⵙИNⵙᗩⵙꖴⵙᔓᔕⵙᑎⵙᗩⵙᕤᕦⵙ⠀⠀⠀⠀◯⠀⠀⠀⠀ⵙ⠀⠀⠀⠀◯⠀⠀⠀⠀ⵙᕤᕦⵙᗩⵙᑎⵙᔓᔕⵙꖴⵙᗩⵙИNⵙ◯ⵙᗯⵙᗱᗴⵙᙁⵙᗯⵙᗱᗴⵙ✤ⵙ◯ⵙИNⵙⓄⵙꖴⵙᔓᔕⵙᗱᗴⵙᕤᕦⵙᗱᗴⵙИNⵙᗱᗴⵙᴥⵙᗩⵙ✤ⵙⓄⵙᴥⵙ⠀⠀⠀⠀

Browse Source
This commit is contained in:
0000OOOO0000 2022-04-23 06:40:49 +03:00 committed by GitHub
parent bad992cc81
commit f8ee336335
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 159 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

159
◯ᗩIᗝ⋏ᗩ◯⚪◯ᗩ⋏ᗝIᗩ◯ⵙ◯ᗩIᗝ⋏ᗩ◯⚪◯ᗩ⋏ᗝIᗩ◯/◯ᗱᗴᴥᗩᗯ✤⏀Ⓞᔓᔕ◯⚪◯ᔓᔕⓄ⏀✤ᗯᗩᴥᗱᗴ◯ⵙ◯ᗱᗴᴥᗩᗯ✤⏀Ⓞᔓᔕ◯⚪◯ᔓᔕⓄ⏀✤ᗯᗩᴥᗱᗴ◯/◯ᴥᗱᗴߦᗩᗱᗴᴥ◯ᔓᔕⓄ✻ᑐᑕⓄᑐᑕ◯⚪◯ᑐᑕⓄᑐᑕ✻Ⓞᔓᔕ◯ᴥᗱᗴᗩߦᗱᗴᴥ◯ⵙ◯ᴥᗱᗴߦᗩᗱᗴᴥ◯ᔓᔕⓄ✻ᑐᑕⓄᑐᑕ◯⚪◯ᑐᑕⓄᑐᑕ✻Ⓞᔓᔕ◯ᴥᗱᗴᗩߦᗱᗴᴥ◯/◯ꕤ⏀ᔓᔕᒍᒐ◯⚪◯ᒍᒐᔓᔕ⏀ꕤ◯ⵙ◯ꕤ⏀ᔓᔕᒍᒐ◯⚪◯ᒍᒐᔓᔕ⏀ꕤ◯/⠀⠀⠀⠀ⵙᴥⵙⓄⵙ✤ⵙᗩⵙᴥⵙᗱᗴⵙИNⵙᗱᗴⵙᕤᕦⵙᗱᗴⵙᔓᔕⵙꖴⵙⓄⵙИNⵙ◯ⵙ✤ⵙᗱᗴⵙᗯⵙᙁⵙᗱᗴⵙᗯⵙ◯ⵙИNⵙᗩⵙꖴⵙᔓᔕⵙᑎⵙᗩⵙᕤᕦⵙ⠀⠀⠀⠀◯⠀⠀⠀⠀ⵙ⠀⠀⠀⠀◯⠀⠀⠀⠀ⵙᕤᕦⵙᗩⵙᑎⵙᔓᔕⵙꖴⵙᗩⵙИNⵙ◯ⵙᗯⵙᗱᗴⵙᙁⵙᗯⵙᗱᗴⵙ✤ⵙ◯ⵙИNⵙⓄⵙꖴⵙᔓᔕⵙᗱᗴⵙᕤᕦⵙᗱᗴⵙИNⵙᗱᗴⵙᴥⵙᗩⵙ✤ⵙⓄⵙᴥⵙ⠀⠀⠀⠀ Normal file
View File

@ -0,0 +1,159 @@
desc:O____ROTARENEG_ESION_TEWLEW_NAISUAG____O____GAUSIAN_WELWET_NOISE_GENERATOR____O
//tags: analysis generator synthesis
//author: SCHWA
// Generator choices are listed in rough order of fanciness and cost.
slider1:-16<-120,6,0.1>Noise dB (RMS)
slider2:0.5<0,1,0.01>Wet Mix
slider3:1<0,3,1{Central Limit Approximation,Box-Muller,Ziggurat (not implemented yet),Inverse Transform}>Gaussian Generator
slider4:0<-1,1>Noise Mean (should be ~0)
slider5:0<0,2>Noise Standard Deviation (should be ~1)
in_pin:left input
in_pin:right input
out_pin:left output
out_pin:right output
@init
AMP_DB = 20.0 / log(10);
CENTRAL_LIMIT = 0;
BOX_MULLER = 1;
ZIGGURAT = 2;
INV_TRANSFORM = 3;
@slider
noise_level = exp(slider1 / AMP_DB);
(slider3 == CENTRAL_LIMIT) ? (
N_DEV = 12;
)
:
(slider3 == INV_TRANSFORM) ? (
A1 = -39.69683028665376;
A2 = 220.9460984245205;
A3 = -275.9285104469687;
A4 = 138.3577518672690;
A5 = -30.66479806614716;
A6 = 2.506628277459239;
B1 = -54.47609879822406;
B2 = 161.5858368580409;
B3 = -155.6989798598866;
B4 = 66.80131188771972;
B5 = -13.28068155288572;
C1 = -0.007784894002430293;
C2 = -0.3223964580411365;
C3 = -2.400758277161838;
C4 = -2.549732539343734;
C5 = 4.374664141464968;
C6 = 2.938163982698783;
D1 = 0.007784695709041462;
D2 = 0.3224671290700398;
D3 = 2.445134137142996;
D4 = 3.754408661907416;
P_LO = 0.02425;
P_HI = 1.0 - P_LO;
);
i = sum = sum2 = 0;
@sample
z0 = z1 = 0;
(slider3 == CENTRAL_LIMIT) ? (
// Quick & dirty.
loop (N_DEV,
z0 += rand(1);
z1 += rand(1);
);
z0 -= N_DEV / 2.0;
z1 -= N_DEV / 2.0;
)
:
(slider3 == BOX_MULLER) ? (
// Conveniently a stereo twofer.
w = 0;
while (
z0 = 2.0 * rand(1) - 1.0;
z1 = 2.0 * rand(1) - 1.0;
w = z0 * z0 + z1 * z1;
w >= 1.0;
);
w = sqrt(-2.0 * log(w) / w);
z0 *= w;
z1 *= w;
)
:
(slider3 == INV_TRANSFORM) ? (
r0 = rand(1);
r1 = rand(1);
(r0 < P_LO) ? (
q = sqrt(-2.0 * log(r0));
z0 = ((((C1 * q + C2) * q + C3) * q + C4) * q + C5) * q + C6;
z0 /= (((D1 * q + D2) * q + D3) * q + D4) * q + 1.0;
)
:
(r0 < P_HI) ? (
q = r0 - 0.5;
r = q * q;
z0 = (((((A1 * r + A2) * r + A3) * r + A4) * r + A5) * r + A6) * q;
z0 /= ((((B1 * r + B2) * r + B3) * r + B4) * r + B5) * r + 1.0;
)
:
(
q = sqrt(-2.0 * log(1.0 - r0));
z0 = -(((((C1 * q + C2) * q + C3) * q + C4) * q + C5) * q + C6);
z0 /= (((D1 * q + D2) * q + D3) * q + D4) * q + 1.0;
);
(r1 < P_LO) ? (
q = sqrt(-2.0 * log(r1));
z1 = ((((C1 * q + C2) * q + C3) * q + C4) * q + C5) * q + C6;
z1 /= (((D1 * q + D2) * q + D3) * q + D4) * q + 1.0;
)
:
(r1 < P_HI) ? (
q = r1 - 0.5;
r = q * q;
z1 = (((((A1 * r + A2) * r + A3) * r + A4) * r + A5) * r + A6) * q;
z1 /= ((((B1 * r + B2) * r + B3) * r + B4) * r + B5) * r + 1.0;
)
:
(
q = sqrt(-2.0 * log(1.0 - r0));
z1 = -(((((C1 * q + C2) * q + C3) * q + C4) * q + C5) * q + C6);
z1 /= (((D1 * q + D2) * q + D3) * q + D4) * q + 1.0;
);
);
spl0 = ((FLOOR(spl0 * (1.0 - slider2) + z0 * noise_level * slider2))+.5)/6;
spl1 = ((FLOOR(spl1 * (1.0 - slider2) + z1 * noise_level * slider2))+.5)/6;
//spl0 = spl0 * (1.0 - slider2) + z0 * noise_level * slider2;
//spl1 = spl1 * (1.0 - slider2) + z1 * noise_level * slider2;
sum += z0;
sum2 += z0 * z0;
i += 1;
(i == srate) ? (
mean = sum / srate;
stdev = sqrt(sum2 / srate - mean * mean);
slider4 = mean;
slider5 = stdev;
sliderchange(2^4 + 2^5);
i = sum = sum2 = 0;
);