mirror/sointu
1
0
Fork 0
mirror of https://github.com/vsariola/sointu.git synced 2025-06-03 17:18:20 -04:00
Code Issues Packages Projects Releases Wiki Activity

Optimize compressor size.

Browse Source
This commit is contained in:
Veikko Sariola 2020-05-25 20:29:34 +03:00
parent 55d9ca0ffc
commit 1eb6974d5d
1 changed files with 7 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/opcodes/effects.asm
View File

@ -459,26 +459,19 @@ EXPORT MANGLE_FUNC(su_op_compressor,0)
su_op_compressor_mono:
%endif
fld dword [WRK+su_compres_wrk.level] ; l x^2 x
mov al,1 ; high bits are zero so this is ok. eax = 1 => release
fucomi st0, st1 ; if l > x^2 // we're releasing
jnb su_op_compressor_releasing
xor eax, eax ; eax = 0 => attacking
su_op_compressor_releasing:
fucomi st0, st1
setnb al ; if (st0 >= st1) al = 1; else al = 0;
fsub st1, st0 ; l x^2-l x
call su_env_map ; c l x^2-l x, c is either attack or release parameter mapped in a nonlinear way
fmulp st2, st0 ; l c*(x^2-l) x
faddp st1, st0 ; l+c*(x^2-l) x
fst dword [WRK+su_compres_wrk.level] ; l'=l+c*(x^2-l), l' x
fld dword [INP+su_compres_ports.threshold] ; t l' x
fmul st0, st0 ; t*t
fucomi st0, st1 ; if threshold < l'
jb su_op_compressor_compress ; then we actually do compression
fstp st0 ; l' x
fstp st0 ; x
fld1 ; 1 x
ret ; return unity gain when we are below threshold
su_op_compressor_compress: ; l' x
fdivrp st1, st0 ; t*t/l' x
fmul st0, st0 ; t*t l' x
fxch ; l' t*t x
fucomi st0, st1 ; if l' < t*t
fcmovb st0, st1 ; l'=t*t
fdivp st1, st0 ; t*t/l' x
fld dword [INP+su_compres_ports.ratio] ; r t*t/l' x
do fmul dword [,c_0_5,] ; p=r/2 t*t/l' x
fxch ; t*t/l' p x