Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-02-25 04:29:36 +00:00
Code Issues Projects Releases Wiki Activity

fix psg initial envelope maxvol setting

Browse Source
This commit is contained in:
Irmen de Jong 2023-05-28 22:30:34 +02:00
parent 0eb2d437e2
commit 6e07602d77
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/res/prog8lib/cx16/psg.p8
View File

@ -97,8 +97,9 @@ psg {
envelope_attacks[voice_num] = attack
envelope_sustains[voice_num] = sustain
envelope_releases[voice_num] = release
if maxvolume<envelope_volumes[voice_num]
envelope_volumes[voice_num] = maxvolume
cx16.r0 = mkword(maxvolume, 0)
if cx16.r0<envelope_volumes[voice_num]
envelope_volumes[voice_num] = cx16.r0
envelope_maxvolumes[voice_num] = maxvolume
envelope_states[voice_num] = 0
}