wn/tetris
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Tonleiter is running

Browse Source
This commit is contained in:
Wolfgang Hottgenroth
2024-03-26 16:47:42 +01:00
parent 152f171c66
commit 5e2f120432
7 changed files with 88 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
sound-driver/sequencer.c
View File

@ -10,13 +10,14 @@ void sequencerExec(void *handle) {
t_melody *melody = (t_melody*) handle;
if (melody->lengthCnt == 0) {
if (melody->tones[melody->idx].octave == e_O_EndMark) {
if (melody->tones[melody->idx].length == e_L_EndMark) {
melody->idx = 0;
}
psgPlayTone(channel, melody->tones[melody->idx].octave, melody->tones[idx].note);
psgPlayTone(melody->channel, melody->tones[melody->idx].octave, melody->tones[melody->idx].note);
melody->lengthCnt = melody->tones[melody->idx].length;
melody->idx += 1;
}
melody->lengthCnt -= 1;