Modified ADSR envelope, seems to work better.
This commit is contained in:
parent
002c0b79df
commit
ec02d0cc41
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
|
@ -732,7 +732,7 @@ ADSRPHASE STX OSCNUM
|
||||||
:S1 TYA ; Change/step -> A
|
:S1 TYA ; Change/step -> A
|
||||||
CLC
|
CLC
|
||||||
ADC CURRAMP,X ; Add change to current amp
|
ADC CURRAMP,X ; Add change to current amp
|
||||||
BCS :CLAMP ; If overflow, clamp to target
|
* BCS :CLAMP ; If overflow, clamp to target
|
||||||
CMP :TARGET ; Compare with target
|
CMP :TARGET ; Compare with target
|
||||||
BCS :CLAMP ; If target < sum, clamp to target
|
BCS :CLAMP ; If target < sum, clamp to target
|
||||||
BRA :UPDATE
|
BRA :UPDATE
|
||||||
|
|
Loading…
Reference in New Issue