mirror/sointu
1
0
Fork 0
mirror of https://github.com/vsariola/sointu.git synced 2026-03-31 19:23:04 -04:00
Code Issues Packages Projects Releases Wiki Activity

fix: center value 64 for the exp_ parameters

Browse Source
This commit is contained in:
qm210
2024-10-22 00:08:23 +02:00
parent f4742cb02d
commit 15c1126d11
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
vm/compiler/templates/amd64-386/sources.asm
View File

@ -149,8 +149,9 @@ su_op_envelopexp_applyexp:
; qm210: NOW THE ACTUAL EXPONENTIAL SCALING
; - scale the exponent in [0; 1] to [0.125; 8], call that kappa = 2^(6*(expo-0.5))
fld dword [r10] ; stack: [ expo, x' ]
fld qword [{{.Use (.Float 0.5)}}] ; stack: [ 0.5, expo, x' ]
fsubp st1, st0 ; stack: [ expo-0.5, x' ]
{{.Prepare (.Float 0.5)}}
fld dword [{{.Use (.Float 0.5)}}] ; stack: [ 0.5, expo, x' ]
fsubp st1, st0 ; stack: [ expo-0.5, x' ]
{{.Prepare (.Int 6)}}
fimul dword [{{.Use (.Int 6)}}] ; stack: [ 6*(expo-0.5), x' ]
{{.Call "su_power"}} ; stack: [ kappa, x' ]

0
write_envelexp_wav.ps1 Normal file
View File